Que no se habrá informe en blanco
Tengo esta instrucción para abrir un informe
Private Sub Comando42_Click()
If VarType(Me.AbrePendientes) = vbNull Then
If MsgBox("Elige el año de la lista." & vbCrLf & vbCrLf & "Para ver el informe" & vbCrLf & vbCrLf & "FACTURAS PENDIENTES", vbInformation + vbOKCancel, "Información") = vbCancel Then
Exit Sub
Else
Me.AbrePendientes.SetFocus
Me.AbrePendientes.Dropdown
End If
Else
DoCmd.OpenReport "InformePendientes", acViewPreview, , "[IdAño] = " & Me.AbrePendientes
DoCmd.OpenForm "BPendientes"
DoCmd.Close acForm, "Menu"
End If
End Sub
Lo que quisiera es que no lo abriera si esta en blanco
Lo tengo para formulario y funciona pero no para informe.
1 Respuesta
Private Sub Comando42_Click()
If VarType(Me.AbrePendientes) = vbNull Then
If MsgBox("Elige el año de la lista." & vbCrLf & vbCrLf & "Para ver el informe" & vbCrLf & vbCrLf & "FACTURAS PENDIENTES", vbInformation + vbOKCancel, "Información") = vbCancel Then
Exit Sub
Else
Me.AbrePendientes.SetFocus
Me.AbrePendientes.Dropdown
End If
Else
If DCount("*","NombreTabla", "[IdAño] = " & Me.AbrePendientes)<>0 Then
DoCmd.OpenReport "InformePendientes", acViewPreview, , "[IdAño] = " & Me.AbrePendientes
DoCmd.OpenForm "BPendientes"
DoCmd.Close acForm, "Menu"
Else
MsgBox "No hay datos"
End If
End If
End SubTienes que cambiar NombreTabla por el nombre de la tabla o consulta sobre la que tienes el informe. Revisa que haga lo que quieres en cuanto a abrir y cerrar objetos, porque lo desconozco.
Esta forma también te serviría para los formularios.
Saludos.
