[vb6.0] إصلاح خطأ - نسخة قابلة للطباعة

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