Mira espero esto te sirva : Todo esto incluyelo en el evento al dar click de un botón
'busca y cuenta los registros que coinsida con el codigo
' Para buscar numero de ensamble
Dim sql As Database
Dim record As Recordset
Dim strSQL As String
Dim cuentapalabra As Integer
Set sql = CurrentDb()
strSQL = "SELECT * FROM tu tabla where tu Campo like '*" & tu cuadro de texto & "*'"
Set record = sql.OpenRecordset(strSQL, dbOpenDynaset)
With record
If .EOF And .BOF Then 'Si está al comienzo y al final del Recordset al mismo tiempo.
MsgBox "No se encuentra o no existe el Código"
tu cuadro de texto = ""
Etiqueta247.Caption = "0"
GoTo salida
Else
.MoveLast
.MoveFirst 'Voy al primer y al último registros con el objetivo de contar los registros.
End If
cuentapalabra = record.RecordCount
Etiqueta247.Caption = cuentapalabra
'esto es para que te muestre su descripcion si es que encuentra el codigo
Dim sql1As Database
Dim tabla As Recordset
Dim strSQL1 As String
'TABLA
strPalabrabuscada = tu cuadro de texto
Set sql1 = CurrentDb()
strSQL 1= "SELECT * FROM tu tabla where tu campo like '" & tu cuadro de texto & "'"
Set tabla = sql1.OpenRecordset(strSQL1, dbOpenDynaset)
cuadro de texto donde quieres mostrar la descripcion = IIf(IsNull(tabla.Fields("campo a mostrar")), "", (tabla("campo a mostrar")))
salida:
sales.Close
End With
sql.Close
y al cargar tu formulario pon el siguiente codigo, para que abra tu db ...
Dim sql As Database
Dim record As Recordset
Etiqueta247.Caption = ""
Set sql = DBEngine.OpenDatabase("Ruta de tu db")
Set record = sql.OpenRecordset("select * from tu tabla")
sales.MoveLast
sales.MoveFirst
Espero te sirva, cualquier duda ya sabes, comentala y ya vemos que podemos hacer ...
SUERTE ...