istediğim şu idi
2 3 5 6 7 3
sayıları ile
5 2 3 3 7 6
veya
3 5 7 3 6 2
sayıları aynı sadece sıraları değişik
sıralarının önemli olmadığını
bunların birbirinin aynısı olduğunu bulan bir fonksiyon yazılacak
benim aklıma gelen
bunları büyükten küçüğe sıralayıp bir metin haline getirmek
hepsi ozaman
233567
olacak bizde diyeceğizki bu altı rakam birbirinin aynısıdır
aşağıdaki kod ile sn.horozufuk (yanlış hatırlamıyorsam) çözüm bulmuştu[/code]
Kod:
Dim SONUC As String
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT * FROM SAYILAR"
Set rs = db.OpenRecordset(strSQL)
If rs.EOF = True Then GoTo 150
rs.MoveFirst
Do Until rs.EOF
A(1) = rs!S1
A(2) = rs!S2
A(3) = rs!S3
A(4) = rs!S4
A(5) = rs!S5
A(6) = rs!S6
For L = 1 To 5
K = Chr(255)
For I = 1 To 5
If A(I) <> Chr(0) And A(I) < K Then K = A(I): J = I
Next I
B(L) = A(J)
A(J) = Chr(0)
Next L
SONUC = ""
For I = 1 To 5
SONUC = SONUC & B(I)
Next I
SONUC = SONUC & A(6)
rs.Edit
rs!M1 = SONUC
rs.Update
rs.MoveNext
Loop
150
MsgBox ("İŞLEM TAMAM")
End Sub