[زياد مقداد]

الرجاء من الإخوة إصلاح أخطاء هذه الأكواد
مع شكري وامتناني

كود :

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
If StrComp(DataGrid1.Columns(ColIndex).DataField, BoolFieldName, vbTextCompare) = 0 Then
If IsNull(rsADO.Collect(DataGrid1.Columns(ColIndex).DataField)) Then
DataGrid1.Columns(ColIndex).Value = True
Else
DataGrid1.Columns(ColIndex).Value = (Not CBool(DataGrid1.Columns(ColIndex).Value))
On Error GoTo xxx
Select Case ColIndex
Case 0
SQLs = "SELECT * from Stud where EmpNo = '" & DataGrid1.Text & "'"
End Select
frmEditEmp.Show
Unload Me
xxx:
End Sub

Private Sub Form_Load()
On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Databases\Data.mdb" & ";Persist Security Info=False"
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & "" & Adodc1.Recordset.RecordCount & "" & "ÓÌá"
Adodc1.Refresh
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text1_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & "" & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like " & Text2 & "" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & "" & Adodc1.Recordset.RecordCount & "" & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text2_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text3_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text4_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text5_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text6_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text7_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text8_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text9_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text10_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text11_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text12_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text13_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text14_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text15_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text16_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text17_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text18_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text19_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * From Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True
End Sub
Private Sub Text20_Change()
If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Text8 = "" And Text9 = "" And Text10 = "" And Text11 = "" And Text12 = "" And Text13 = "" And Text14 = "" And Text15 = "" And Text16 = "" And Text17 = "" And Text18 = "" And Text19 = "" And Text20 = "" Then
SQLs = "Select * FROM Stud"
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ åæ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
Exit Sub
End If
SQLs = "Select * From Stud Where FirstName Like '" & Text2 & "'" And FatherName Like " & Text3 & " And FamilyName Like " & Text4 & " And DateNaissance Like " & Text5 & " And StudNo Like " & Text1 & " And Address Like " & Text6 & " And Classes Like " & Text7 & " And Class Like " & Text8 & " And Nationality Like " & Text9 & " And Numero Like " & Text20 & " And DateEntree Like " & Text10 & " And NiveauEntree Like " & Text11 & " And DateSortie Like " & Text12 & " And NiveauSortie Like " & Text13 & " And Causes Like " & Text14 & " And Observations Like " & Text15 & " And Tell Like " & Text16 & " And EtatCivil Like " & Text17 & " And Comportement Like " & Text18 & " And Participation Like " & Text19 & "
Adodc1.RecordSource = SQLs
Adodc1.Refresh
LblCount.Caption = " ÚÏÏ ÇáÓÌáÇÊ åæ" & " " & Adodc1.Recordset.RecordCount & " " & "ÓÌá"
DataGrid1.Columns.Item(0).Button = True

End Sub