Aprire maschera con Openform filtrando un campo testuale con un valore recuperato da un'altra maschera

CarlettoFed ha scritto:

Prova così:
DoCmd.OpenForm "ELENCO 1", , , "[VST 1] = """ & Testo35 & """"
oppure:
DoCmd.OpenForm "ELENCO 1", , , "[VST 1] = " & Chr(34) & Testo35 & Chr(34)

Clicca per allargare...

RAF66 ha scritto:

Ciao CarlettoFed

grazie al tuo aiuto ho elaborato questo codice:

Codice:

Private Sub Testo35_DblClick(Cancel As Integer)

Dim IDENTIFICATIVO As String

DoCmd.OpenForm "ELENCO C3", , , "[IDENTIFICATIVO] = """ & Me.Testo35 & """"

Me.FilterOn = True

End Sub

nel quale "IDENTIFICATIVO" è il valore e non il nome del campo come inserivo prima, sbagliando.

Così non mi da' più errori, apre il form "ELENCO1" e filtra con il dato presente nel campo "Testo35" dell'altra maschera.

L'unica cosa che ancora non funziona ancora è che non applica "Me.filter = True sulla nuova maschera

e bisogna cliccare manualmente su "Non Filtrato" per vedere la maschera filtrata.

Vedi l'allegato 8049

Spero di essermi spiegato e ringrazio ancora per tutto l'aiuto che mi hai dato.

Clicca per allargare...

CarlettoFed ha scritto:

La riga

Dim IDENTIFICATIVO As String​

non serve a niente in quanto non viene utilizzara all'interno della routine di evento Testo35_DblClick

La riga

Me.FilterOn = True​

non serve a niente in quanto forza a filtrata la maschera APPUNTAMENTI che è quella dove ti trovi nel momento che esegui il codice.

La routine dovrebbe essere semplicemente la seguente:

Codice:

Private Sub Testo35_DblClick(Cancel As Integer)
      DoCmd.OpenForm "ELENCO C3", , , "[IDENTIFICATIVO] = """ & Me.Testo35 & """"
End Sub

Clicca per allargare...

RAF66 ha scritto:

Grazie ancora per i chiarimenti.

L'unica cosa che non riesco ancora a fare è poter attivare da codice il filtro sulla maschera "ELENCO C3",
ho tentato in ogni modo ma non ci sono riuscito.

Clicca per allargare...

Me.FilterOn = True