Apri una maschera in struttura
seleziona, nella barra degli strumenti, la casella combinata
disegnala nel corpo della maschera
apparirà una finestra di Creazione guidata
scegli Ricerca valori in una Tabella o query
Scegli la tabella dove hai i dati (che utilizzerai per la query), se non hai la tabella la crei prima della creazione guidata
nella schermata successiva scegli il campo utile (dalla finestra a sinistra verso quella destra)
nella schermata successiva puoi mettere i dati in Ordine Crescente, selezionando il campo interessato e premendo Crescente
premi avanti fino a dare il nome all'elemento es. MioElenco
Salvi la maschera (Menu)
-----
Torni nella struttura della maschera (Menu)
prendi dalla barra degli strumenti un pulsante di comando
e lo disegni nella corpo della maschera
questa volta annulli la Creazione guidata
poi con il tasto destro selezioni Genera evento e > Generatore di codice
il cursore lampeggerà all'interno dei codici:
- Codice: Seleziona tutto
Private Sub Comando42_Click()
'qui inserirai la macro seguente
End Sub
quindi (a te non sarà Comando42 ma forse Comando1 o altro)
- Codice: Seleziona tutto
Private Sub Comando42_Click()
Dim db As Database
wherex = " TabellaDaFiltare.NomeCampo = '" & MioElenco & "'"
Set db = CurrentDb
criterio = "Insert Into TabellaDestinazione (Campo1, Campo2, Campo3, NomeCampo, Campo4) SELECT Campo1, Campo2, Campo3, NomeCampo, Campo4 FROM TabellaDaFiltrare where " & wherex
'MsgBox criterio '<<<< togliendo l'apice potrai vedere se Criterio è stato correttamente impostato prima dell'esecuzione
db.Execute criterio
db.Close
End Sub
Salvi il Menu e, se tutto ok, al comando del pulsante avrai la tua tabella filtrata in TabellaDestinazione
Attenzione il codice '" & MioElenco & "'" è composto da ' (apice) " (doppio apice) & Variabile (MioElenco) & " (doppio apice) ' (apice) " (doppio apice)
Fai sapere se tutto ok
(altrimenti invia un tuo Database come esempio)
Ciao