mitch
27 de Febrero del 2005

He hecho una base de datos en Access2003 y un programa
en Visual en el cual mediante un Data y las propiedades dataBase , y unos textbox he conseguido ver mis registros.
Pero no se hacer una busqueda!!
necesito tener la opcion de buscar (poniendo nº socio .ejemplo) y que esta busqueda me salga reflejada en el texbox de mi formulario.

Raziel914
27 de Febrero del 2005

Creo k tng la respuesta a esto.

Option Explicit
Dim buscado, criterio As String

Private Sub nsocio_losfocus ()
buscado = nsocio.text
If Len(buscado) = 0 Then exit sub
Buscarnsocio
With data1.recordset
If .NoMatch Then
MsgBox ("Referencia Inexistente")
nsocio.text = ""
nsocio.setfocus
Else
nombre.txt = .nombre
apellidos.txt = .apellidos
etc
End If
End With
End Sub

Public Sub Buscarnsocio ()
Data1.Refresh
If Len(buscado) = 0 Then Exit Sub
criterio = "nsocio LIKE '*" & buscado & "*'"
Data1.Recordset.FindFirst criterio
Data1.Recordset.Bookmark=Data1.Recordset.LastModified
End Sub