منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] البحث بالدات كومبو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [كود] البحث بالدات كومبو (/showthread.php?tid=1353)

البحث بالدات كومبو - abouassem - 26-12-13

السلام عليكم
بعد القيام بالبحث عن طريق الداتا كومبو زر التنقل بين السجلات تصبح فيه مشكلة
ارجو التعديل على المثال المرفق

RE: البحث بالدات كومبو - VB_Coder - 26-12-13

السلام عليكم

- جرب المثال الذي عدلته في مشاركتك السابقة .

- http://vb4arb.com/vb/showthread.php?tid=1293

- تحياتي .

RE: البحث بالدات كومبو - abouassem - 26-12-13

السلام عليكم
جربته اخي و هو يعمل جيدا و لكني غيرت الطريقة ب adodc

RE: البحث بالدات كومبو - abouassem - 26-12-13

ارجو المساعدة

RE: البحث بالدات كومبو - VB_Coder - 27-12-13

السلام عليكم

- هذا كود المثال بعد تعديله , أنسخه وألصقة بدل الكود كله الموجود في داخل الفورم .

كود :
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

- تحياتي .