[princeofislam]

(20-06-18, 05:21 AM)Amir_alzubidy كتب :

السلام عليكم و رحمة الله و بركاته 

هذه طريقة اخرى 

ارجو الاستفادة منها 

If Text8.Text = "" Or Text9.Text = "" Then Exit Sub

Adodc1.RecordSource = "Select * From kass where ID>=" & Val(Trim$(Text8.Text)) & _
" AND ID<=" & Val(Trim$(Text9.Text))

Adodc1.CommandType = adCmdText
Adodc1.Refresh

'åäÇ Þã ÈÊÛííÑ ÇáÍÞá ÇáãÑÇÏ ÇÓÊÎÏÇãå ááÊÑÊíÈ ÇáÐí ÊÑíÏ
Adodc1.Recordset.Sort = "ID"

Set DataGrid1.DataSource = Adodc1


thats is a great code really omggggggggggggggggggggggggggggggg  wow  يا سلام عليك استاذ روعة

---

(20-06-18, 05:15 AM)elgokr كتب : استخدم الاستعلام بهذه الطريقة

كود :

Adodc1.RecordSource = "select * from KASS where ID>=" & Val(Trim$(Text8.Text)) & " And ID<=" & Val(Trim$(Text9.Text)) & "ORDER BY ID"

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك سيدي لاكن الكود اعطاني خطاء