Programar msgbox con boton aceptar y cancelar
Si alguien me pueda ayudar con el msgbox.
Tengo esta instrucción
If VarType(Me.Generales) = vbNull Then
MsgBox "Elige el año de la lista." & vbCrLf & vbCrLf & "Para ver las facturas entregadas", vbInformation + vbOKCancel, "Información"
Me.Generales.SetFocus
Me.Generales.Dropdown
Else
DoCmd.OpenForm "FacturasGenerales", , , "[IdAño] = " & Me.Generales
DoCmd.Close acForm, "Menu"
End If
Y no se como poner para al clic en cancelar no hiciera nada simplemente se cerrara el MsgBox.
1 Respuesta
Respuesta de Sveinbjorn El Rojo
2
If VarType(Me.Generales) = vbNull Then
If MsgBox ("Elige el año de la lista." & vbCrLf & vbCrLf & "Para ver las facturas entregadas", vbInformation + vbOKCancel, "Información") =vbCancel Then
Exit Sub
Else
Me.Generales.SetFocus
Me.Generales.Dropdown
End If
Else
DoCmd.OpenForm "FacturasGenerales", , , "[IdAño] = " & Me.Generales
DoCmd.Close acForm, "Menu"
End IfUn saludo
