Newsgroup: it.comp.appl.access
Titolo: ricerca dati con access

sono un neofita.
ho un archivio del lotto con 5 campi testo (estratti) + ruota + data
estraz. per un tot. di 7 campi.
vorrei far visualizzare o stampare tutti i record che contengono un
determitato
ambo o terno o quaterna indistintamente dalla posizione del 1° o 2°
....estratto.
come potrei fare ???
grazie per un vostro cortese aiutino.

 ha scritto nel messaggio
news:ef8e7b4b.04110...@posting.google.com...

Se la tabella si chiama tblEstrazioni ed ha una struttura simile a questa:
Ruota                  Testo e chiave primaria
DataEstrazione    Data/ora e chiave primaria
Primo                  Testo
Secondo             Testo
Terzo                  Testo
Quarto                Testo
Quinto                Testo
Creati una maschera non associata chiamata M1che contenga 5 caselle di testo
non associate in cui digiterai i numeri relativi all'ambo, terno, quaterna e
cinquina e chiamale rispettivamente Uno, Due, Tre, Quattro e Cinque.
Inserisci in M1 anche una casella di testo non associata non visibile
chiamata Combinazione, una casella di testo non associata visibile chiamata
MiaData e un pulsante di comando.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
Me!Combinazione = 0
If Not IsNull(Me!Uno) Then
    Me!Combinazione = Me!Combinazione + 1
End If
If Not IsNull(Me!Due) Then
    Me!Combinazione = Me!Combinazione + 1
End If
If Not IsNull(Me!Tre) Then
    Me!Combinazione = Me!Combinazione + 1
End If
If Not IsNull(Me!Quattro) Then
    Me!Combinazione = Me!Combinazione + 1
End If
If Not IsNull(Me!Cinque) Then
    Me!Combinazione = Me!Combinazione + 1
End If
DoCmd.OpenQuery "Query1"
Creati una query chiamata Query1 che abbia il seguente codice SQL:
SELECT tblEstrazioni.*
FROM tblEstrazioni
WHERE (((tblEstrazioni.DataEstrazione) Like
IIf(IsNull([Forms]![M1]![MiaData]),"*",CDate([Forms]![M1]![MiaData]))) AND
((IIf([Primo]=[Forms]![M1]![Uno],1,IIf([Primo]=[Forms]![M1]![Due],1,IIf([Pri
mo]=[Forms]![M1]![Tre],1,IIf([Primo]=[Forms]![M1]![Quattro],1,IIf([Primo]=[F
orms]![M1]![Cinque],1,0)))))+IIf([Secondo]=[Forms]![M1]![Uno],1,IIf([Secondo
]=[Forms]![M1]![Due],1,IIf([Secondo]=[Forms]![M1]![Tre],1,IIf([Secondo]=[For
ms]![M1]![Quattro],1,IIf([Secondo]=[Forms]![M1]![Cinque],1,0)))))+IIf([Terzo
]=[Forms]![M1]![Uno],1,IIf([Terzo]=[Forms]![M1]![Due],1,IIf([Terzo]=[Forms]!
[M1]![Tre],1,IIf([Terzo]=[Forms]![M1]![Quattro],1,IIf([Terzo]=[Forms]![M1]![
Cinque],1,0)))))+IIf([Quarto]=[Forms]![M1]![Uno],1,IIf([Quarto]=[Forms]![M1]
![Due],1,IIf([Quarto]=[Forms]![M1]![Tre],1,IIf([Quarto]=[Forms]![M1]![Quattr
o],1,IIf([Quarto]=[Forms]![M1]![Cinque],1,0)))))+IIf([Quinto]=[Forms]![M1]![
Uno],1,IIf([Quinto]=[Forms]![M1]![Due],1,IIf([Quinto]=[Forms]![M1]![Tre],1,I
If([Quinto]=[Forms]![M1]![Quattro],1,IIf([Quinto]=[Forms]![M1]![Cinque],1,0)
)))))=[Forms]![M1]![Combinazione]));
A questo punto apri la maschera M1, digita nelle caselle di testo Uno, Due,
Tre, Quattro, Cinque i numeri dell'ambo, terno ecc; se la ricerca la vuoi
fare solamente su una estrazione, nella casella MiaData digita la data di
estrazione interessata, se invece la ricerca la vuoi fare sui record di
tutta la tabella non digitare alcuna data; poi pigia il pulsante di comando:
si aprirà una query che ti mostrerà i record che cercavi.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------