Colocar varios campos coincidentes para abrir un form

Hola Experto.. Tengo una pregunta...
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 Nombre del Trabajador.
La cuestión es la siguiente:
El formulario Charlas1 debe abrir al formulario Charlas4 de acuerdo a un botón comando llamado "Opcionbusqueda" con el siguiente código:
Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Charlas4"
    stLinkCriteria = "[Fecha]=" & "#" & Me![Fecha] & "#"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando39_Click:
    Exit Sub
Err_Comando39_Click:
    MsgBox Err.Description
    Resume Exit_Comando39_Click
End Sub
Este código lo genero automáticamente el asistente para botones de comando en él escogí la opción "Abrir el formulario y buscar los datos específicos que se van a mostrar"
Pero no me permite seleccionar varios campos.
Como puedes ver este botón abre un formulario con los datos que especifique en el cuadro de lista llamado "Fecha" mi pregunta es ¿que código debo agregarle para que me tome parámetros no sólo del cuadro de lista "Fecha" sino también del cuadro de lista llamado "area", me abra el formulario y me muestre sólo los registros que contengan estos parámetros.
En pocas palabras, que debo agregarle al código, o que debo hacer para abrir el formulario charlas4 teniendo como campos coincidentes Fecha y Área, debido a que el asistente para botón solo me deja seleccionar solo 2 campos coincidentes que son los dos de fecha y no me deja colocar los dos de áreas... Espero me hayas entendido y me puedas ayudar... No creo que sea muy difícil... Pero soy muy nuevo aquí... Espero apoyo... Gracias... :)

1 Respuesta

Respuesta
1
stLinkCriteria = "[Fecha]=" & "#" & Me![Fecha] & "#" & " and [area]=" & me.area
Creo que con ésto debería funcionar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas