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

RAF66

Nuovo Utente
27 Mar 2022
8
0
1
Buongiorno a tutti,
ho un database di Access 2016 con 2 maschere:
- la prima si chiama "ELENCO 1" che in ogni record riporta tutti i dati di una persona con un certo
codice identificativo testuale riportato nel campo "VST 1"
- la seconda maschera si chiama APPUNTAMENTI", ed è continua con gli appuntamenti di piu'
persone in una singola giornata.
In questa seconda maschera l'identificativo testuale di ogni singola persona, è riportato nel campo "Testo35" e coincide con l'dentificativo riportato nel campo [VST 1] della
maschera "ELENCO 1".
Io ho creato il codice che, con un doppio clic nel campo "Testo35" permette di aprire
la maschera "ELENCO 1" e visualizzare solo la scheda relativa alla persona con quell'identificativo:

<CODE>
Private Sub Testo35_DblClick(Cancel As Integer)
DoCmd.OpenForm "ELENCO 1", , , "[VST 1] = " & Testo35.Value
End Sub
<CODE>

Purtroppo mi da questo errore:
Errore.JPG



Cosa ho sbagliato?
Ringrazio chiunque possa aiutarmi.
 

CarlettoFed

Utente Attivo
17 Lug 2017
101
1
18
70
Prova così:
DoCmd.OpenForm "ELENCO 1", , , "[VST 1] = """ & Testo35 & """"
oppure:
DoCmd.OpenForm "ELENCO 1", , , "[VST 1] = " & Chr(34) & Testo35 & Chr(34)
 

CarlettoFed

Utente Attivo
17 Lug 2017
101
1
18
70
Forse se alleghi un file di esempio, con un minimo di dati e sostituendo quelli eventualmente sensibili, riesce più facile e rapido aiutarti.
 

RAF66

Nuovo Utente
27 Mar 2022
8
0
1
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.

Finestra 1.JPG


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

RAF66

Nuovo Utente
27 Mar 2022
8
0
1
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.
Errata corrige: il forma si chiama ELENCO C3 e non ELENCO1
 

CarlettoFed

Utente Attivo
17 Lug 2017
101
1
18
70
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
 

RAF66

Nuovo Utente
27 Mar 2022
8
0
1
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

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.
 

RAF66

Nuovo Utente
27 Mar 2022
8
0
1
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.

Ho risolto.
E' bastato impostare

Codice:
Me.FilterOn = True

sull'evento apertura della maschera "ELENCO C3".

Ancora un grandissimo grazie.

Ho imparato molte nuove cose su access.

:)
:):):):):)
 
Discussioni simili
Autore Titolo Forum Risposte Data
A [MS Access] Aprire maschera con sottomaschera su ultimo record MS Access 0
R [MS Access] aprire maschera con doppio click su recordset di sottomaschera MS Access 4
M pulsante per aprire una maschera che contiene controllo schede MS Access 0
C ACCESS Aprire maschera se valore non presente in una combo MS Access 7
ste80 [MS Access] Impossibile aprire una maschera da pulsante MS Access 2
R [MS Access] COME APRIRE UNA MASCHERA FACENDO DOPPIO CLICK SU UN RECORDSET MS Access 1
E fpdf salvare e aprire il file PHP 4
W Aprire un pop-up da un pop-up HTML e CSS 3
T Come aprire file .wtb Discussioni Varie 10
A Aprire la window form Add Connection da codice Visual Basic 4
S Aprire su Mac Progetto PSD salvato su win Photoshop 0
D [HTML] Non riesco aprire foto singole in un album creato con "iWebAlbum" HTML e CSS 1
P [Javascript] Aprire Link in Div e pagina Dinamica Javascript 0
L [Javascript]Aprire div con click e chiuderlo con altro pulsante Javascript 2
Tommy03 Aprire un file .asp nel browser Classic ASP 5
K Aprire porte modem Tim smart Fibra Adsl e Connettività 0
G [PHP] Aprire una cartella tramite un link PHP 1
F aprire una pagina in un overlay jQuery 0
S [PHP] Aprire file in locale PHP 1
F [Javascript] Aprire file tramite jquery Javascript 0
trattorino [Javascript] aprire blocchi via via che si scorre Javascript 0
M Salvare i dati nel db e aprire altra pagina php PHP 7
C [PHP] Aprire la pagina dopo aver fatto il login PHP 1
Morganot37 Photoshop CC non può aprire l'immagine Webdesign e Grafica 5
S Aprire un marketplace Leggi, Normative e Fisco 0
G Aprire un app da pagina web Sviluppo app per Android 3
Shaovel [HTML] Aprire sito esterno cliccando immagine HTML e CSS 7
iap Aprire un ecommerce e sincronizzarlo al gestionale Discussioni Varie 1
M Aprire nuova scheda del browser con javascript Javascript 7
Shyson Aprire finestra popup con Safari Javascript 6
V aprire pagine php in div jQuery 1
M aprire Iframe su safari in IOS, (iphone - ipad) HTML e CSS 8
M Aprire un popup con un form jQuery 2
S Aprire file sul pc cliente dentro una intranet. PHP 1
D Navigare fra le directory e aprire file PHP 3
Gabriele Visioli Realizzare e Vendere siti web senza aprire una Partita IVA... Come? Leggi, Normative e Fisco 4
F Aprire un tab con js Javascript 0
F devo aprire due pagine asp contemporaneamente Classic ASP 1
F aprire un file pdf da una pagina asp Classic ASP 2
G Freelancer: quanto costa aprire e mantenere la partita IVA? Discussioni Varie 3
P Codice per far aprire un <div> al click di un immagine? HTML e CSS 0
lucolo Non posso aprire discussioni Supporto Mr.Webmaster 4
M Aprire file php di una pagina web! PHP 5
Z Script per aprire video youtube sia apre a schermo intero e poi ridimensionare in automatico Javascript 1
F Che tipo di Partita Iva devo aprire? Leggi, Normative e Fisco 2
filippino Aprire link esterni in iframe HTML e CSS 0
T [VBulletin] Campi aggiuntivi prima di aprire nuova discussione CMS (Content Management System) 0
K Aprire sub(o form) in automatico all'apertura del Database MS Access 1
radioButton Istruzione html per aprire rubrica HTML e CSS 0
Monital aprire una connesisone su un altro database all'interno di un while PHP 3

Discussioni simili