Buscar dato en tabla
Algun expeto de acces me ayudaria a hacer lo siguiente??
Tengo un formulario que contiene un cuadro de texto basado en la tabla "Asociado" lo que pretendo hacer es ingresar el numero de asociado en el cuadro de texto del formulario y si existe en la tabla "Asociados" que se despliegue un mensaje en pantalla que diga "Asociado Capacitado" e imprima un informe con los datos del asociado que ya contiene mi B.DE si no que el mensaje diga "Asociado NO capacitado"
Agradecería muchísimo su valiosa ayuda
Gracias!
Tengo un formulario que contiene un cuadro de texto basado en la tabla "Asociado" lo que pretendo hacer es ingresar el numero de asociado en el cuadro de texto del formulario y si existe en la tabla "Asociados" que se despliegue un mensaje en pantalla que diga "Asociado Capacitado" e imprima un informe con los datos del asociado que ya contiene mi B.DE si no que el mensaje diga "Asociado NO capacitado"
Agradecería muchísimo su valiosa ayuda
Gracias!
1 respuesta
Respuesta
1
Si que se puede hacer, te explico:
Crea un evento "al salir" del textbox (yo lo he llamado textbox) y escribe esto:
Private Sub textboxX_Exit(Cancel As Integer) 'esto ya te sale, no tienes que escribirlo
Dim rs As Recordset
Dim DB As Database
Set DB = OpenDatabase("asociado")
Set rs = DB.OpenRecordset("SELECT * FROM asociado Where IdDeTuTabla=" & Form!textboxX.Value)
If rs.EOF Then 'si no existe el dato ...
MsgBox "Asociado NO capacitado", vbInformation, "NO EXISTE ..." 'muestra este mensaje
textboxX.SetFocus 'situa el foco en el cuadro de texto para volver a escribir
Else 'si no ....
MsgBox "Asociado Capacitado" 'muestra este mensaje
End If 'fin de condicional
End Sub 'esto ya te sale solo, no tienes que escribirlo
Suerte
Crea un evento "al salir" del textbox (yo lo he llamado textbox) y escribe esto:
Private Sub textboxX_Exit(Cancel As Integer) 'esto ya te sale, no tienes que escribirlo
Dim rs As Recordset
Dim DB As Database
Set DB = OpenDatabase("asociado")
Set rs = DB.OpenRecordset("SELECT * FROM asociado Where IdDeTuTabla=" & Form!textboxX.Value)
If rs.EOF Then 'si no existe el dato ...
MsgBox "Asociado NO capacitado", vbInformation, "NO EXISTE ..." 'muestra este mensaje
textboxX.SetFocus 'situa el foco en el cuadro de texto para volver a escribir
Else 'si no ....
MsgBox "Asociado Capacitado" 'muestra este mensaje
End If 'fin de condicional
End Sub 'esto ya te sale solo, no tienes que escribirlo
Suerte