Formulario de ingreso de información
Estimado Experto, muchas gracias por tu tiempo
Lo que quiero hacer es un formulario de ingreso de inf.: tengo un formulario con un cuadro de texto en donde ingreso un código y en la etiqueta que tengo al lado me aparezca la descripción del código ingresado, tengo 2 tablas código y descripción (código, campos id, cod, serie) y (descripción, campos: cod, descrip, M3, peso, atributos), todo esto con un botón de ingreso, ojala me pudieras dar ejemplo.
De antemano muchas gracias
Lo que quiero hacer es un formulario de ingreso de inf.: tengo un formulario con un cuadro de texto en donde ingreso un código y en la etiqueta que tengo al lado me aparezca la descripción del código ingresado, tengo 2 tablas código y descripción (código, campos id, cod, serie) y (descripción, campos: cod, descrip, M3, peso, atributos), todo esto con un botón de ingreso, ojala me pudieras dar ejemplo.
De antemano muchas gracias
1 respuesta
Respuesta de eyama
1
Esta puede ser una solución:
En el evento Antes de actualizar de tu caja de texto donde digitas el código pon esto, reemplazando los nombres de los objetos como tu los hayas llamado:
Dim varDescripcion As Variant
{}
'descrip es el campo que quieres traer, descripcion es la tabla donde está dicho campo, cod = TuCajaDeTexto es la condición
varDescripcion = DLookup("descrip", "descripcion", "cod = " & TuCajaDeTexto)
If IsNull(varDescripcion) Or varDescripcion = "" Then
MsgBox "No hay descripción para ese código", vbInformation + vbOKOnly, "Descripción no encontrada"
TuCajaDeTexto.Undo
Cancel = True
Else
TuEtiqueta.Caption = varDescripcion
End If
Ojalá te sirva.
Éxitos!
Pd:Por favor no olvides valorar la rpta.
Eymard Amado Amador
Bucaramanga, Colombia
En el evento Antes de actualizar de tu caja de texto donde digitas el código pon esto, reemplazando los nombres de los objetos como tu los hayas llamado:
Dim varDescripcion As Variant
{}
'descrip es el campo que quieres traer, descripcion es la tabla donde está dicho campo, cod = TuCajaDeTexto es la condición
varDescripcion = DLookup("descrip", "descripcion", "cod = " & TuCajaDeTexto)
If IsNull(varDescripcion) Or varDescripcion = "" Then
MsgBox "No hay descripción para ese código", vbInformation + vbOKOnly, "Descripción no encontrada"
TuCajaDeTexto.Undo
Cancel = True
Else
TuEtiqueta.Caption = varDescripcion
End If
Ojalá te sirva.
Éxitos!
Pd:Por favor no olvides valorar la rpta.
Eymard Amado Amador
Bucaramanga, Colombia
