Hola!!, spero ke me puedan ayuda, es muy importante para mi y la vdd stoy mas ke trabada y de por si soy algo nueva en esto de VB y access. Mi problema es, tengo una BD en access y la conecto a VB, mi clave de tabla es matricula(alfanumerica), en mi formulario puse un text donde el alumno pondra su matricula y le apareceran sus datos, resulta ke me marca error porke la clave es alfanumerica y si la cambio a numerica no hay problema. Spero me ayuden pofa ya ke la clave no puede ser numerica


Te los agradecere muchisimo. gracias.

checa que en tu base de acces no tengas dado de alta el campo como numerico

Como haces el filtro? ¿sobre un recordset o con alguna sentencia SQL?


en cualquier caso, ten cuidado con las comillas que le pones...





Prueba algo asi:


- Clave. Es el campo clave de tu tabla ,donde guardas la matricula (alfanumerico)


-text1.text. Es la caja de texto donde el alumno mete su matricula.


dim Filtro as string


Filtro="Clave=""" & text1.text & """"


recordset.filter =Filtro


Espero haberte ayudado algo...


Saludos

Hola de nuevo, Jorge hice exactamente lo ke me dices y sigue sin funcionar


Private Sub buscar_Click()
Dim Filtro As String
Filtro = "Matricula=""" & Text1.Text & """"
Data1.Recordset.Filter = Filtro
End Sub


La llave de la tabla es "Matricula"(texto) ¿Ke pasa?Ayuda porfaaa

Haz un find, este ejemplo es para ado pero lo puedes modificar para el el objeto data

Código:

If bFlagNM = True Or sTmpCod <> txtCodBarra.Text Then 'Checamos si estamos agregando o Modificando
 'El flag sirve para que si estamos agregando un codigo no se nos repita
 'pero si lo estamos modificando entonces solo nos va a hacer una comparacion de que no se
 'haya modificado el codigo que es el que no queremos que se repita
 
 Set res = New ADODB.Recordset 'Instanciamos la variable res


 res.Open "Select * from Inventario", Base, adOpenKeyset, adLockOptimistic
 res.MoveFirst
 res.Find "[CodigodeBarras] = '" & txtCodBarra.Text & "'"
 
 If res.EOF = False Then
 MsgBox "El codigo de barras ya existe"
 Exit Sub
 End If
End If

Este code lo utilizo parasaber si existe un codigo de barras en la tabla que necesito solo necesitas hacer que en el if res.eof = false en vez de decir que ya existe cargue los datos y si eof = true mandas un mensaje de que la matricula no existe