السلام عليكم
من فضلكم، أعمل على برنامج صغير يساعدني في العمل، قمت بتصميم نموذج للاضافة ونموذج آخر للبحث واخر للتعديل
في نموذج البحث يشتغل عادي لكن عندما قمت بتغيير أدوات التكست الى أدوات اخرى تساعدني اكثر في هذا البرنامج اختلطت الامور، هذه الأدوات تتمثل اساسا في أداة 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 Sub