السلام عليكم ورحمه
اواجه مشكلة في ترتيب البيانات المعروضه على الداتا جريد حيث أن الحقل الموجود في قاعدة البيانات المراد فرزه تصاعديا باسم No ومعرف على أنه نص ولكن أقوم
بادخال ارقام على الحقل
الكود المراد التعديل عليه هنا لمن استطاع المساعده في اضافة كود لترتيب البيانات على حسب no ترتيب تصاعدي حيث ان البيانات في المره الاولى تكون مرتبه ولكن بعد
اغلاق البرنامج يحصل لها تريب عشوائي لا ادري ما السبب لهذا فانا حاجه باضافة كود الى الكود المرفق لكي يرتبها تصاعديا
'
conna.Provider = "Microsoft.JET.OLEDB.4.0;"
conna.Open App.Path & "\archives.mdb"
conna.CursorLocation = adUseClient
rsa.Open "[destination]", conna, adOpenStatic, adLockPessimistic
rsa.Sort = NO + "ASC"
Set DataGrid1.DataSource = rsa
Dim id As Integer
flagg = True
rsa.MoveLast
If Not rsa.EOF Then rsa.MoveLast
id = rsa.Fields![NO]
Text1 = id + 1
End Sub
Private Sub Form_Load()
