Cuadros combinados obligatorios
Una consulta como se puede hacer obligatorio el 1er cuadro combinado antes de pasar al segundo. Gracias
1 Respuesta
Respuesta de juanbauzam
1
La solución es más fácil de lo que piensas, sólo tienes que programar el evento "Después de actualizar" del segundo cuadro combinado de acuerdo al código de más abajo. Vamos a suponer que los cuadros combinados son los siguientes:
Cuadro combinado 1 = Cuadro1
Cuadro combinado 2 = Cuadro2
y el código:
Private Sub Cuadro2_AfterUpdate()
If IsNull(Cuadro1) Then
MsgBox ("Debe seleccionar antes Cuadro1")
Cuadro2 = Null
Cuadro1.SetFocus
End If
End Sub
Ahora, tienes que finalizar esta consulta
Juan
Cuadro combinado 1 = Cuadro1
Cuadro combinado 2 = Cuadro2
y el código:
Private Sub Cuadro2_AfterUpdate()
If IsNull(Cuadro1) Then
MsgBox ("Debe seleccionar antes Cuadro1")
Cuadro2 = Null
Cuadro1.SetFocus
End If
End Sub
Ahora, tienes que finalizar esta consulta
Juan
