Newsgroup: it.comp.appl.access
Titolo: Chiarimento su modulo

Ciao a tutti e non biasimatemi per una domanda cosi' con questo caldo
africano.
Ho copiato questo modulo dal sito:
Come ottenere un report pronto per la stampa con i record filtrati da una
maschera.
(R)
Ingredienti: Due pulsanti, una casella di testo non associata e qualche
linea di codice.
Inserire il codice seguente a fronte dell'evento su clic di uno dei
pulsanti; servirą per filtrare i dati in base alla parola chiave scritta
nella casella di testo qui chiamata "MioControlloNonAssociato" il controllo
dove andrą a pescare il dato cercato č "MioControllo"
DoCmd.ApplyFilter "",
"[MioControllo]=[Forms]![MiaMaschera]![MioControlloNonAssociato]"
If IsNull(Numero.Value) Then
   MsgBox ("Non esistono Record!"), vbOKOnly
   DoCmd.ShowAllRecords
   Me.Seleziona.SetFocus
   Exit Sub
End If
Probabilmente mi sfugge qualcosa il modulo si inchioda su
me.seleziona.setfocus
Inoltre non riesco a capire la casella di testo se deve avere qualche
caratteristica particola che so' un origine dati un controllo che io non ho
capito.
Magari se mi fate anche un esempio??!!!
Scusate se sono stata prolissa Ciao Mile


In ogni modo questa soluzione va bene solo per maschere in visualizzazione "Maschera
singola" mentre se procedi in questo modo:
Me.Filter = "[MioControllo]=[Forms]![MiaMaschera]![MioControlloNonAssociato]"
Me.FilterOn = True
If Me.Recordset.RecordCount = 0 Then
    MsgBox ("Non esistono Record!")
    Me.Filter = ""
    Me.Seleziona.SetFocus
    Exit Sub
End If
Puoi verificare la presenza di dati in tutte le visualizzazioni.
Ciao, omnitow

 Me.Filter = "[MioControllo]=[Forms]![MiaMaschera]![MioControlloNonAssociato]"
ciao omnitow
secondo me la riga indicata non funziona. 
questa a seguire, per me, ha piu' possibilita' di lavorare
Me.Filter = "[MioControllo]= " & chr(34) &
[Forms]![MiaMaschera]![MioControlloNonAssociato] & chr(34)
ed il mio [MioControllo] se fosse un [MioCampo] andrebbe ancora meglio 
--
a.cara 
Togli qualcosa dall'email

 Scusate se sono stata prolissa Ciao Mile
per fare quello che vuoi dovresti:
1) Creare un report con sorgente dati la tabella/query che ti interessa senza
alcuna condizione di filtro
2) Fare mascherina con un controllo non associato ed un paio di bottoni (a)
esegui (b) uscita
3) Sul bottone di esegui, per l'evento di "click" dovresti inserire la seguente
riga si codice (riveduta e corretta)
     DoCmd.OpenReport nomereport[, visualizzazione][, nomefiltro][,
condizioneWHERE]
 dove nella [condizioneWhere] metti:
     "[NomeCampodiFiltro] like " & chr(34) & "*" & [Controllodimaschera] & "*" &
chr(34)


 ha scritto nel messaggio
news:3EED7A76...@blunet.it...

Ciao a.cara
Non mi ero posto il problema convinto che Milena non ne avesse cmq:
[MioCampo] anzichč [MioControllo] senza dubbio ma per il resto eviti i problemi dgli apici
nei filtri cioč se il campo sia una stringa o meno, passando il riferminto al controllo
puoi non tenerne conto... anche se anch'io generalmente utilizzo la tua soluzione dato che
non sempre il valore da passare č contenuto in un controllo
omnitow


Azz... qui mi sfugge qualcosa, il codice che hai postato serve per filtrare una maschera,
mentre quello che tu chidi in alto è come aprire un report filtrato, in questo caso vale
anche per me quanto detto da a.cara
Ciao, omnitow