Temas

Bueno, mi formulario consta de 2 elementos, un text y un datagrid, que se genera a partir de un Msgbox en el que se introduce lo que se desea buscar

Código [Seleccionar] Expandir

Private Sub Form_Activate()
    Text1.Text = criterio
End Sub

Private Sub Grilla_Click()
    criterio = Adodc1.Recordset!CODCLI
    flagbuscar = True
    Unload Me
End Sub
Private Sub Grilla_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Grilla_DblClick
    ElseIf KeyCode = 27 Then
        flagbuscar = False
        Unload Me
    ElseIf KeyCode >= 65 And KeyCode < 90 Then
        Text1.Text = Text1.Text & Chr(KeyCode)
    ElseIf KeyCode = 32 Then
        Text1.Text = Text1.Text & " "
    ElseIf KeyCode = 190 Then
        Text1.Text = Text1.Text & "."
    ElseIf KeyCode = 188 Then
        Text1.Text = Text1.Text & ","
    ElseIf KeyCode = 109 Then
        Text1.Text = Text1.Text & "-"
    ElseIf KeyCode >= 96 And KeyCode <= 105 Then
        Text1.Text = Text1.Text & Chr(KeyCode - 48)
    ElseIf KeyCode >= 48 And KeyCode <= 57 Then
        Text1.Text = Text1.Text & Chr(KeyCode)
    ElseIf KeyCode = 8 Then
        If Len(Text1.Text) > 0 Then
            Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
        End If
    End If

           
End Sub

Private Sub Text1_Change()
    If Text1.Text <> "" Then
   Adodc1.Recordset.Find "RAZON =" & Text1.Text & "*"
    Else
        Adodc1.Recordset.MoveFirst
    End If
    Grilla.Caption = "Buscar Articulos:" & Text1.Text
    Grilla.SetFocus
End Sub




Eso es todo el código del formulario, el visual me resalta la siguiente línea:
Adodc1.Recordset.Find "RAZON =" & Text1.Text & "*"

Yo quiero que introduciendo los 3 primeros carácteres me busque todos los resultados posibles.

Código [Seleccionar] Expandir

'Variables para búsqueda de registros
Public criterio As String


Variable criterio declarada en un módulo...


Nose, me da bronca que no me salga.

El error:

Error '91' en tiempo de ejecución:

Variable de tipo Object o la variable de bloque With no está establecida.