ACCESSVBAで並び替え

ACCESSのフォームを使用してボタンを押すと数値が並び替えるようなプログラムを作りたいのですが、教えてください。


左側は並び替える前
＝＝＝＝＝＝＝＝＝
1　　　　　1
8　　　→　7
7　　　　　8
＝＝＝＝＝＝＝＝＝
左側はs1～s3、右側はtxt4～txt6でテキストボックスを作っています。
→部分はボタンとなっています。
SQLを使う方法は調べたらでてきたのですが、SQLを使わずするとしたらどうしたらいいのでしょうか？

No.1 回答者： ShowMeHow 回答日時： 2016/03/08 19:17

sortのプログラミング方法はいろいろなサイトに紹介されていますので、それを参考にされるのが良いと思います。

３つだけなら、わかりやすい方法としては、最小値と最大値を見つけ出すのが楽かもしれませんね。
ボタンを押下時のイベントで、

Dim S(4) as integer
S(1) = s1.text
S(2) = s2.text
S(3) = s3.text
if s(1)<s(2) then
s(0) = s(1)
s(4) = s(2)
else
s(0) = s(2)
s(4) = s(1)
end if
if s(3) < s(0) then
s(0) = s(3)
end if
if s(3)>s(4) then
s(4) = s(3)
end if
txt4.text = s(0)
txt6.text = s(4)
for i = 1 to 3
if s(i) > s(0) and s(i)< s(4) then
txt5.text = s(i)
end if
next i

などのように、、、
行数や変数を減らす悪い癖が出てしまいました、若干わかりにくいかもしれませんがご勘弁を、
あと、試していないので、どこかにバグがあるかもしれません。