Ejecutar un botón
Soy principiante de access me pudieras ayudar tengo un problema, tengo un formulario donde pongo un botón que quiero que ejecute abrir otro formulario llamado "SERVICIOS NACIONALESxcte" si el campo "Estado" es igual a "JALISCO", y que cuando el campo "Estado" sea igual a "NUEVO LEÓN" se abra el formulario " DATOS CLIENTES" si presiono el mismo botón, ¿ya puede encontrar la forma de que habrá el formulario "SERVICIOS NAC" si el campo de "Estado" es igual a "JALISCO" pero me falta lo segundo me pudieras ayudar? Te mando el código:
Private Sub Comando154_Click()
If Me!Estado = "JALISCO" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub
Private Sub Comando154_Click()
If Me!Estado = "JALISCO" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub
Respuesta de mdemena
1
Private Sub Comando154_Click()
If Me!Estado = "JALISCO" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
Else If Me!Estado = "NUEVO LEON" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "DATOS CLIENTES"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub
If Me!Estado = "JALISCO" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
Else If Me!Estado = "NUEVO LEON" Then
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "DATOS CLIENTES"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub
2 respuestas más de otros expertos
Respuesta
1
El código corregido es el siguiente:
-------------
Private Sub Comando154_Click()
On Error GoTo Err_Comando154_Click
Dim stDocName As String , stLinkCriteria As String
If Me!Estado = "JALISCO" Then
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
elseIf me.Estado = "NUEVO LEON" then
stDocName = "DATOS CLIENTES"
DoCmd.OpenForm stDocName, , , stLinkCriteria
end if
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End Sub
----------
Suerte.
-------------
Private Sub Comando154_Click()
On Error GoTo Err_Comando154_Click
Dim stDocName As String , stLinkCriteria As String
If Me!Estado = "JALISCO" Then
stDocName = "SERVICIOS NACIONALESxcte"
DoCmd.OpenForm stDocName, , , stLinkCriteria
elseIf me.Estado = "NUEVO LEON" then
stDocName = "DATOS CLIENTES"
DoCmd.OpenForm stDocName, , , stLinkCriteria
end if
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End Sub
----------
Suerte.
Respuesta de vbgopher
1
Disculpa la tardanza espero que aun te sirva
Private Sub Comando154_Click()
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
If Me!Estado = "JALISCO" Then
stDocName = "SERVICIOS NACIONALESxcte"
elseif Me!Estado="NUEVO LEON"
stDocName="DATOS CLIENTES"
end if
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub
Private Sub Comando154_Click()
On Error GoTo Err_Comando154_Click
Dim stDocName As String
Dim stLinkCriteria As String
If Me!Estado = "JALISCO" Then
stDocName = "SERVICIOS NACIONALESxcte"
elseif Me!Estado="NUEVO LEON"
stDocName="DATOS CLIENTES"
end if
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando154_Click:
Exit Sub
Err_Comando154_Click:
MsgBox Err.Description
Resume Exit_Comando154_Click
End If
End Sub