Access - Comparar los datos

   
Vista:

Comparar los datos

Publicado por Lalo (1 intervención) el 30/08/2007 17:43:57
Hola, Espero me puedan ayudar, tengo una base de datos en la que cree un formulario para capturar claves de articulos, pero quiero saber si se puede que al escribir la clave en un campo esta sea comparada con los datos que tengo en otra tabla y si la encuentra en el siguiente campo ponga su descripcion y si no la encuentra me mande un mesaje de error.
Saludos y gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Comparar los datos

Publicado por GRIS (20 intervenciones) el 30/08/2007 18:14:34
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 ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar