[Amin_Mansouri]

این کدو جایگدین کد قبلیت کن :

کد:

Private Sub Command2_Click()
'Data1.Recordset.FindNext "name like" & "'" & Text1 & "'"
Form1!Data1.Recordset.FindFirst "[name] like '*" & Text1 & "*'"
If Data1.Recordset.NoMatch Then
    MsgBox "!!ãÊÇÓÝÇäå ãæÑÏí íÏÇ äÔÏ", vbExclamation
    Text1.Text = ""
    Text1.SetFocus
Else
   ' Form1.Show
   ' Form2.Text1.Text = ""
   ' Form2.Hide
    With Data1.Recordset
    Do Until .EOF
    If .Fields("name") = Text1.Text Then lstFind.AddItem .Fields("name") & ", " & .Fields("last") & ", " & .Fields("melikod")
                
                .MoveNext
            Loop
            End WithEnd If
End Sub