** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Varios Argumentos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVarios Argumentos
 Responder Responder
Autor
Mensaje
  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1759 		Enlace directo a este mensaje Tema: Varios Argumentos
    Enviado: 14/Noviembre/2019 a las 14:17
Buenas.
Al pulsar un botón me abre un formulario basado en una condición y con un argumento.
El código es el siguiente:

Private Sub cmdHoras_Click()
stLinkCriteria = "[HO_ID]=" & Me![TR_ID]
DoCmd.OpenForm "F_HOTR", , , stLinkCriteria, acFormEdit, , [TR_ID]

Al insertar un registro en el formulario "F_HOTR", HO_ID toma el valor del argumento (TR_ID).
Private Sub Form_BeforeInsert(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me.HO_ID = Me.OpenArgs
End If

Ahora, cómo sería el código, tanto al hacer clic como al insertar, para que tome los dos argumentos, si la condición está basada en dos campos?:
stLinkCriteria = "[HO_ID]=" & Me![TR_ID] & "AND[HO_PRO]=" & Me![PR_PRO]

Gracias.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6521 		Enlace directo a este mensaje Enviado: 14/Noviembre/2019 a las 18:04
Hola!

Y porqué utilizas la clausula Where y la proiedad OpenArgs?.

Yo lo haria asía.

DoCmd.OpenForm "F_HOTR", , , , acFormEdit, ,[TR_ID] & "|" & [PR_PRO]

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me![HO_ID] = Split(Me.OpenArgs, "|")(0)
    Me![HO_PRO] = Split(Me.OpenArgs, "|")(1)
End If
End Sub



Editado por mounir - 14/Noviembre/2019 a las 18:34
Un Saludo.
Arriba
Nomada Ver desplegable
Colaborador
Colaborador


Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1759 		Enlace directo a este mensaje Enviado: 18/Noviembre/2019 a las 13:48
Gracias Mounir.
Perfecto.
Este hilo se puede cerrar satisfactoriamente.
Un saludo
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable