elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / [PROBLEMA]Búsqueda de base de datos de Access utilizando ADO en: 17 Diciembre 2008, 03:05 am
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:
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:
'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:
Citar
Error '91' en tiempo de ejecución:

Variable de tipo Object o la variable de bloque With no está establecida.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines