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

3 respuestas

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.
Respuesta
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
Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

StLinkCriteria =

En verdad que requiero de tus conocimientos, es para conservar mi empleo, tengo este código que ya funcionaba y que no lo he modificado, me presentaba el formulario "GC1" con la información de la tabla GC, a esta tabla le agregue 3 campos más para...
1 respuesta

Botón para abrir formulario con dos criterios

Casi no se de programación, pero en formulario de entrada tengo dos campos (SEMANA Y SEGMENTO), a los cuales se le capturan los datos relacionados a los registros de otro formulario, puse un botón que abre ese formulario (SEGMENTOS POR SEMANAS), pero...
1 respuesta

En el evento Al cambiar

Me gustaría poner mediante código en el evento al cambiar que se habrá un formulario en el que tenga ese cuadro combinado. Es decir en el mismo registro.
1 respuesta

Bases de datos en Access para introducir, modificar y buscar registros

Tengo un problema que no he podido resolver. Estoy desarrollando una base de datos en access, que principalmente cumpla con 3 funciones: 1) Ingresar nuevos registros 2) Modificar registros existentes 3) Búsqueda de registros (solo de lectura) son 33...
1 respuesta

Desactivar un botón en solo lectura

Tengo un formulario principal en el cial tengo dos botones uno que me abre mi formulario "a" en agregar y otro que me abre mi formulario "a" en solo lectura. Lo que quiero es que al abrir mi formulario "a" en solo lectura me desactive los botones de...
5 respuestas

Abrir Formulario desde otro formulario 2 criterios

Quisiera abrir un formulario desde otro... Pero que me traigan dos criterios iguales.. De la forma automática con los procedimientos con un botón se puede buscar un criterio nada más... ¿Cómo hago para agregarle el otro? Aquí esta el evento que me...
1 respuesta

Criterios con DoCmd.OpenForm en Access 2002

Estoy trabajando en una base de datatos access, la verdad no se mucho de VBA, pero he logrado hacer funcionar unos pocos código. Pero este no he podido hacerlo correr. La idea, es abrí el formulario ("Formulario_SALIDA_Carro"), en un registro...
1 respuesta

Abrir Form con mas de un campo coincidente

Tengo una base de datos que tiene dos formularios: El Form1 que se llama Charlas1 y tiene los campos: Fecha, Área, Tema, Gerencia, Supervisor. Tengo el otro formulario que se llama Charlas4 y tiene los siguientes campos: Fecha, Área, Ci Trabajador y...
1 respuesta

Cifrar la password **** :)

He visto alguna respuesta tuya y he visto que dominas y que además contestas de manera muy clara, de experta a experto (aunque io en otras materias) a ver si me puedes ayudar: He puesto una contraseña a un botón que abre un formulario con código muy...
1 respuesta

Filtro formulario

Tengo el siguiente código al abrir un formulario llamado "protocolo0" que a su vez tiene subformularios dependientes: (la estructura es protocolo0 con relación uno a varios con protocolo1 con relación uno a varios con protocolo2 con relación uno a...
1 respuesta