[Access] Query Parametrica e maschera per input

[Dark Phoenix]

Salve a tutti mi occorre il vostro aiuto

Non sono molto esperto con Access anzi per niente
I problemi che ho sono i seguenti :

1) Ho una query e la vorrei far diventare parametrica. Come si fa? Potete farmi un esempio?
2) Vorrei legare i parametri della query con quelli di un'eventuale... maschera?! (non so ditemi voi), per facilitare la selezione.

Grazie a tutti in anticipo

P.S.
Versione Access 2003

[MarcoGG]

Dai un'occhiata a questa discussione :
http://www.hwupgrade.it/forum/showthread.php?t=1747367

In particolare miei post #4 ( esempi di query parametriche ) e #7 ( richiamo di query parametriche da VBA )...

[Dark Phoenix]

Grazie mille dovrebbe fare proprio al caso mio.

[Dark Phoenix]

Ciao, visto quello che mi hai linkato e sono riuscito a fare una cosa del genere....

	Dim nome_componente As String
	CasellaCombinata3.SetFocus
	nome_componente = CasellaCombinata3.Text
	
	Dim RI As QueryDef
	Set RI = CurrentDb.QueryDefs("rischio_intrinseco")
	RI.Parameters("NOME COMPONENTE") = nome_componente

ci sono quasi.... come faccio a lanciare la query e visualizzare il tutto?

non riesco a trovare il modo...

[MarcoGG]

Originariamente inviato da Dark Phoenix

Ciao, visto quello che mi hai linkato e sono riuscito a fare una cosa del genere....

	Dim nome_componente As String
	CasellaCombinata3.SetFocus
	nome_componente = CasellaCombinata3.Text
	
	Dim RI As QueryDef
	Set RI = CurrentDb.QueryDefs("rischio_intrinseco")
	RI.Parameters("NOME COMPONENTE") = nome_componente

ci sono quasi.... come faccio a lanciare la query e visualizzare il tutto?

non riesco a trovare il modo...

Ok. Ci sei quasi.
Devi anzitutto creare una sottomaschera nella maschera principale che contiene quella CasellaCombinata ( ossia la Maschera da cui lanci in esecuzione quel codice ).
Puoi creare la sottomaschera con la procedura guidata e farla puntare alla Tabella su cui applichi la Query "rischio_intrinseco". Fai in modo che la sottomaschera visualizzi esattamente i campi che vengono ritornati da quella query, ovviamente, perciò non aggiungere/eliminare dalla sottomaschera campi che non sono ritornati dalla query.

A questo punto, lanciando la maschera principale noterai che la sottomaschera visualizza correttamente tutti i dati non filtrati ( in pratica è una SELECT * ).
Bene, aggiungi al codice che hai già scritto queste righe :

    'Recordset dei risultati
    Dim RS As Recordset
    Set RS = RI.OpenRecordset
    
    Set Me.NomeSottomaschera.Form.Recordset = RS

Ora, al verificarsi dell'evento che avrai scelto ( Click su pulsante, Change sulla Combo, ecc... ) la sottomaschera visualizzerà solo i record filtrati dalla query parametrica.