Que no abra formulario si no tiene datos
Esta es la cuestión.
Tengo un formulario con un botón el cual me pide el año para mostrar con esta instrucción
If VarType(Me.EligePendientes) = vbNull Then
If MsgBox("Elige el año de la lista." & vbCrLf & vbCrLf & "Para ver las facturas pendientes", vbInformation + vbOKCancel, "Información") = vbCancel Then
Exit Sub
Else
Me.EligePendientes.SetFocus
Me.EligePendientes.Dropdown
End If
Else
DoCmd.OpenForm "FacturasPendientes", , , "[IdAño] = " & Me.EligePendientes
DoCmd.Close acForm, "Menu"
End If
La cual me va perfecta, pero que tendría que hacer que no se abriera el formulario si no tiene datos.
1 respuesta
Hola gracias por contestar, pero me surge este problema
Cuando le doy al botón pendientes se abre esto
asta aquí bien le doy a aceptar y aparece esto
clic en depurar y marca este error
sabrías decir el porque.
Un saludo y gracias.
Pon debajo de la línea "Private Sub Comando9_Click() ésta:
On Error Goto Sol_Err
Y antes del "End Sub" éstas:
Salida: Exit Sub Sol_Err: If Err.Number= 2501 Then Resume Salida Else Msgbox "Se ha producido el error " & Err.NUmber & ": " & Err.Description End If
