ممكن احد يشرح لي هذا الكود

هذا كود مأخوذ من الأكسس

هذا الكود يستخدم للبحث حيث ان المستخدم يقوم بأختيار نوع البحث من خلال راديو بوتون مثلا الأسم أو الهاتف او التاريخ ويدخل النص في مربع نص ثم يقوم بالضغط علي زر بحث المخزن فيه هذا الكود

انا ابغي اعرف ماهي الأوامر التي استخدمة في هذا الكود لأني ما اعرف شئ في لغة الفجيول بيسك

وأنا ابغى اسوي نفس الطريقة في برنامجي

Private Sub Cmnd1_Click()
On Error GoTo Err_Cmnd1_Click
Dim SK1 As String, SK2 As String
If Me.et1 = 2 Then


'***************
If Nz(Me.TxtSearch, "") = "" Then Exit Sub
If Me.Etar2 = 1 Then SK1 = "[ÇáãæÑÏ]" Else SK1 = "ForSearch([ÇáãæÑÏ])"
If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'"


Me.sbfform.Form.FilterOn = True

If Me.Etar1 = 1 Then
Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'"
ElseIf Me.Etar1 = 2 Then
Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'"
Else
Me.sbfform.Form.Filter = SK1 & " Like " & SK2
End If
'***********************

ElseIf Me.et1 = 1 Then

If Nz(Me.TxtSearch, "") = "" Then Exit Sub
If Me.Etar2 = 1 Then SK1 = "[ÑÞã_ÇáãæÑÏ]" Else SK1 = "ForSearch([ÑÞã_ÇáãæÑÏ])"
If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'"


Me.sbfform.Form.FilterOn = True

If Me.Etar1 = 1 Then
Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'"
ElseIf Me.Etar1 = 2 Then
Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'"
Else
Me.sbfform.Form.Filter = SK1 & " Like " & SK2
End If

ElseIf Me.et1 = 3 Then
If Nz(Me.TxtSearch, "") = "" Then Exit Sub
If Me.Etar2 = 1 Then SK1 = "[åÇÊÝ]" Else SK1 = "ForSearch([åÇÊÝ])"
If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'"


Me.sbfform.Form.FilterOn = True

If Me.Etar1 = 1 Then
Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'"
ElseIf Me.Etar1 = 2 Then
Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'"
Else
Me.sbfform.Form.Filter = SK1 & " Like " & SK2
End If

ElseIf Me.et1 = 4 Then

If Nz(Me.TxtSearch, "") = "" Then Exit Sub
If Me.Etar2 = 1 Then SK1 = "[ÌæÇá]" Else SK1 = "ForSearch([ÌæÇá])"
If Me.Etar2 = 1 Then SK2 = "'" & Me.TxtSearch & "'" Else SK2 = "'" & ForSearch(Me.TxtSearch) & "'"


Me.sbfform.Form.FilterOn = True

If Me.Etar1 = 1 Then
Me.sbfform.Form.Filter = SK1 & " Like " & SK2 & " & '*'"
ElseIf Me.Etar1 = 2 Then
Me.sbfform.Form.Filter = SK1 & " Like " & "'*' & " & SK2 & " & '*'"
Else
Me.sbfform.Form.Filter = SK1 & " Like " & SK2
End If
End If



Exit_Cmnd1_Click:
    Exit Sub

Err_Cmnd1_Click:
    MsgBox Err.Description
    Resume Exit_Cmnd1_Click
    
End Sub

شاكر تعاونكم

تحياتي