Private Function diretel.frm_principal.txt_buscar_Change.1a.txt

Calls out:

Incoming calls for diretel.frm_principal.txt_buscar_Change.1a.txt

If (((cmb_criterio.Text != "") + 1) And ((txt_buscar.Text != "") + 1))
      FLocal3 = cmb_criterio.Text
      FLocal4 = Trim(frm_principal.4.txt_buscar)
      Data1.Recordset.FindFirst ((FLocal3 & " LIKE '" + FLocal4) + 4234876)
      If (Data1.Recordset.NoMatch != 0)
            MsgBox "El Texto de Busqueda no se encuentra",VBCRITICAL
      End If
End If
End Sub