¿Buscar datos con código en access?
Hola buenas tardes, mi problema es que no tengo mucha idea de trabajar con código en Access y necesito hacer una modificación en una base de datos de la empresa y me he atascado en este punto.
Lo que necesito es que dado dos datos en un formulario, escritos en cuadros de texto, pulse un botón de comando y me diga con un mensaje si esos datos ya existen en la tabla dónde están guardados o no. Los datos son: uno número y otro texto.
Muchas gracias por ayudar a los inexpertos de antemano.
Lo que necesito es que dado dos datos en un formulario, escritos en cuadros de texto, pulse un botón de comando y me diga con un mensaje si esos datos ya existen en la tabla dónde están guardados o no. Los datos son: uno número y otro texto.
Muchas gracias por ayudar a los inexpertos de antemano.
1 respuesta
Respuesta
1
Supongamos que la tabla se llama Tabla1 y los campos Campo1 (el numérico) y Campo2 (el de texto).
Los cuadros de texto del formulario le llamaré txtNumero y txtTexto.
En el código del botón:
Dim db as Database
Dim rs as Recordset
Set db=currentdb
Set rs=db.OpenRecordset("Select Campo1, Campo2 from Tabla1 where Campo1=" & Form!txtNumero.Value & " and Campo2='" & txtTexto.Value & "'")
If not rs.Eof then
MsgBox "El registro ya existe"
Else
MsgBox "El registro no existe"
End If
Los cuadros de texto del formulario le llamaré txtNumero y txtTexto.
En el código del botón:
Dim db as Database
Dim rs as Recordset
Set db=currentdb
Set rs=db.OpenRecordset("Select Campo1, Campo2 from Tabla1 where Campo1=" & Form!txtNumero.Value & " and Campo2='" & txtTexto.Value & "'")
If not rs.Eof then
MsgBox "El registro ya existe"
Else
MsgBox "El registro no existe"
End If
Muchas gracias Angeles, funciona a la perfección. Te habrá parecido una chorrrada pero me ha sacado loco. Sin tu ayuda me hubiera sido muy difícil sacarlo en tan poco tiempo. No se desenvolverme en este lenguaje.
Me encanta que haya gente como tú ayudando a los demás. GRACIAS
Me encanta que haya gente como tú ayudando a los demás. GRACIAS