Error al abrir formulario continuo
Hola nuevamente experto.
Te comento lo que pasa:
Al abrir un formulario llamado Inventario Barriles antes de abrir dicho formulario me salta un error "La expresión que ha especificado hacer referencia a un objeto que esta cerrado o que no existe" te anexo código que tengo al abrir desde un marco de opciones.
Private Sub CmdAcceder_Click()
On Error GoTo Err_CmdAcceder_Click
Dim stOpt1 As String
Dim stOpt2 As String
Dim stOpt3 As String
Dim stOpt4 As String
Dim stLinkCriteria As String
stOpt1 = "Inventarios Barriles"
stOpt2 = "Colores De Barriles"
stOpt3 = "Terminales"
stOpt4 = "Sellos"
DoCmd.SetWarnings False
With DoCmd
Select Case [Opciones]
Case 1
.OpenForm stOpt1, , , stLinkCriteria
.Close acForm, Me.Name
Case 2
'.Close acForm, Me.Name
'.OpenForm stOpt2, , , stLinkCriteria
MsgBox "Accede a revisión de colores de barriles", vbInformation, "Acceso a barriles"
Case 3
'.Close acForm, Me.Name
'.OpenForm stOpt3, , , stLinkCriteria
MsgBox "Accede a revisión de terminales", vbInformation, "Acceso a barriles"
Case 4
'.Close acForm, Me.Name
'.OpenForm stOpt4, , , stLinkCriteria
MsgBox "Accede a revisión de sellos", vbInformation, "Acceso a barriles"
End Select
End With
If IsNull([Opciones]) Then
MsgBox "No ha seleccionado ninguna opción" & vbCrLf & "por favor elija una opción para acceder", vbCritical, "Error"
End If
Exit_CmdAcceder_Click:
Exit Sub
Err_CmdAcceder_Click:
MsgBox Err.Description
Resume Exit_CmdAcceder_Click
End Sub
Espero recibir nuevamente tu ayuda gracias.
1 respuesta
Mirando un poco rápido no veo que se asigna un contenido a la variable stLinkCriteria.
Hola experto.
Estaba declarando una criterio que no estaba usando lo que no entiendo es porque usando este método.
Private Sub CmdAcceder_Click()
On Error GoTo Err_CmdAcceder_Click
Dim Opt1 as String
stOpt1 = "Inventarios Barriles"
DoCmd.SetWarnings False
With DoCmd
Select Case [Opciones]
Case 1
.OpenForm stOpt1, , ,
.Close acForm, Me.Name
End With
Exit_CmdAcceder_Click:
Exit Sub
Err_CmdAcceder_Click:
MsgBox Err.Description
Resume Exit_CmdAcceder_Click
End Sub
Me sigue saltando el mismo error.
Al final lo deje así y no salta mas el error pero el procedimiento es el mismo para ambos casos.
Case 1
.OpenForm "Inventarios Barriles", acNormal
Gracias si pudieras darme una explicación lo agradecería.
