26-12-13, 12:59 AM
26-12-13, 08:13 AM
السلام عليكم
- جرب المثال الذي عدلته في مشاركتك السابقة .
- http://vb4arb.com/vb/showthread.php?tid=1293
- تحياتي .
- جرب المثال الذي عدلته في مشاركتك السابقة .
- http://vb4arb.com/vb/showthread.php?tid=1293
- تحياتي .
26-12-13, 09:48 AM
السلام عليكم
جربته اخي و هو يعمل جيدا و لكني غيرت الطريقة ب adodc
جربته اخي و هو يعمل جيدا و لكني غيرت الطريقة ب adodc
26-12-13, 05:16 PM
ارجو المساعدة
27-12-13, 08:56 PM
السلام عليكم
- هذا كود المثال بعد تعديله , أنسخه وألصقة بدل الكود كله الموجود في داخل الفورم .
- تحياتي .
- هذا كود المثال بعد تعديله , أنسخه وألصقة بدل الكود كله الموجود في داخل الفورم .
كود :
Private Sub Command1_Click()
Adodc1.Recordset.MoveNext
DoEvents
If Adodc1.Recordset.EOF = True Then
MsgBox "This is the last record.", vbExclamation, "Note it..."
Adodc1.Recordset.MoveLast
DoEvents
End If
End Sub
Private Sub DataCombo1_Click(Area As Integer)
Adodc1.Recordset.Find "[nom] = '" & DataCombo1.Text & "'", 0, adSearchForward, 1
End Sub- تحياتي .