• 0
kader19

كود البحث عن سجل عن طريق where...like

سؤال

السلام عليكم

من فضلكم، أعمل على برنامج صغير يساعدني في العمل، قمت بتصميم نموذج للاضافة ونموذج آخر للبحث واخر للتعديل

في نموذج البحث يشتغل عادي لكن عندما قمت بتغيير أدوات التكست الى أدوات اخرى تساعدني اكثر في هذا البرنامج اختلطت الامور، هذه الأدوات تتمثل اساسا في أداة MaskEdTool و أداة Checkbox وأداة combo.

هل من الاحسن أن اضع في الخاصية NAME كل باسمه MaskDBirth ، ChkChild، ComboServ

أم الافضل أن اعتبرها على اساس انها تكست: TxtDBirth

لأهل الخبرة ومن له معرفة ودراية بكتابة كود البحث أرجو المساعدة في التعديل في هذا الكود باضافة الادوات الثلاثة في الكود. خاصة أن الامر متعلق بالاشارات '، "، & التي لا ازال لم أفرق في استعمالها

Private Sub TxtDBirth_Change()
If TxtIDEmp = "" And TxtName = "" And TxtDBirth = "__/__/____" And Check1.Value = False And Combo1 = "" Then
SQLs = "Select * From Emp"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record"
Exit Sub
End If
SQLs = "Select * From Emp Where IDEmp Like '" & TxtIDEmp & "%'AND Name Like '" & TxtName & "%'"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = "Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record"
DataGrid1.Columns.Item(0).Button = True
SQLs = "Select * From Emp Where IDEmp Like '" & TxtIDEmp & "%'AND Name Like '" & TxtName & "%'"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = "Nomber of records:" & " " & Adodc1.Recordset.RecordCount & " " & "Record"
DataGrid1.Columns.Item(0).Button = True
End Subpost-282231-0-11226200-1398109374_thumb.

تم تعديل بواسطه kader19
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .


  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .