No permitir continuar con varias condiciones
Publicado por Sam (8 intervenciones) el 20/07/2019 08:35:50
Dentro de un formulario estoy tratando que no se pueda continuar si no se cumplen algunas u otras condiciones,
les anexo lo que estoy tratando de hacer, aunque no se en donde estoy mal.
de antemano gracias.
les anexo lo que estoy tratando de hacer, aunque no se en donde estoy mal.
de antemano gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
If (Tipo) = "Salida" Then
If IsNull(Cuadro_combinado30) Then
Cuadro_combinado30.BackColor = vbYellow
MsgBox "Introducir Tienda"
Me.Cuadro_combinado30.SetFocus
Cuadro_combinado30.BackColor = vbWhite
Else
Cuadro_combinado30.BackColor = vbWhite
Exit Sub
Cuadro_combinado30.Requery
End If
If (Tipo) = "Entrada" Then
If IsNull(Cuadro_combinado34) Then
Cuadro_combinado34.BackColor = vbYellow
MsgBox "Introducir Producto"
Me.Cuadro_combinado34.SetFocus
Cuadro_combinado34.BackColor = vbWhite
Else
Cuadro_combinado34.BackColor = vbWhite
Exit Sub
Cuadro_combinado34.Requery
End If
End If
End If
Valora esta pregunta


0