Newsgroup: it.comp.appl.access
Titolo: Aiuto x Text Box in Maschera

 salve amici... ho una Maschera (Anagrafe1) creata solo x effettuare
 delle ricerche di un Db anagrafico
 e ho quattro caselle associate ad una query (Anagrafe Query Maschera)
con le stringhe..in Criteri...
Like [Forms]![Anagrafe1]![Cerca1]
Like [Forms]![Anagrafe1]![Cerca2]
Like [Forms]![Anagrafe1]![Cerca2]
Like [Forms]![Anagrafe1]![Cerca4]
 --------------------------------------------------------------------------
non ho pulsanti di comandi etc...
nella Maschera... se nella casella 1 digito Cognome_Nome...premo Invio
se  trovo il record mi compare nella maschera sottostante... ma se non trova
niente
vorrei che mi uscisse una Text Box....
come posso fare ??
Ciao...

 ha scritto nel messaggio
news:9%x77.30984$NZ6.1...@news.infostrada.it...

Probabilmente all'evento dopoaggiornamento è associato il comando
Applyfilter che attiva la query.
A mio (molto modesto) parere non si può avere una TxtBox per questi motivi:
1. per sapere che una query è vuota occorre un codice VBA con il comando
.recordcount
2. la tua query ha quattro parametri e VBA non accetta query con parametri a
meno che non li dichiari dal codice VBA stesso.
La soluzione più semplice che mi viene in mente (ma complicata) è di fare 4
query ciascuna con un solo parametro da definire in VBA con querydef
ciascuna associata a ciascuno dei campi sempre all'evento
dopo-aggiornamento, che mentre viene applicato il filtro, indipendentemente
contano il numero di record che saranno filtrati. Se il numero è zero ->
msgbox.
Ciao
Arturo

 ha scritto nel messaggio
news:KKy77.31339$NZ6.1...@news.infostrada.it...

| -------------------------------------------
non sono molto pratico di Access....però supponiamo che io abbia solo
un campo di ricerca tipo Cognome_Nome...è possibile inserire in evento
su Invio che se non trova il  Cognome_Nome desiderato esca un Text Box ???
Ciao...
Ps-  all'evento dopo aggiornamento della casella di testo non associata
        vi è scritto Me.Requery !!!


Io farei cosě, creo una query (Query1) identica a quella dell'origine dati
della tabella ma con un solo parametro nella colonna di Cognome_Nome,
poniami che il parametro lo chiamo [nome].
Allora :
Dim miodb As Database, mioset As Recordset, miaquery As QueryDef
Set miodb = CurrentDb
Set miaquery = miodb.QueryDefs("Query1")
miaquery.Parameters("nome") = Forms!Anagrafe1!Cerca1
Set mioset = miaquery.OpenRecordset()
if mioset.recordcount = 0 then msgbox "Hai pestato una m.!"  'o altro
messaggio
miodb.close
Questo codice va messo dopo il Me.Requery
Nelle conzioni tu hai
Like [Forms]![Anagrafe1]![Cerca1]
questo like non mi sembra funzioni a meno che non metti gli asterischi a
mano ...
Se vuoi mantenere il LIKE nella query1 metti
like [nome] invece di [nome]
Ciao
Arturo

 ha scritto nel messaggio
news:5bB77.32130$NZ6.1...@news.infostrada.it...
| Io farei così, creo una query (Query1) identica a quella dell'origine dati
| della tabella ma con un solo parametro nella colonna di Cognome_Nome,
| poniami che il parametro lo chiamo [nome].
|
| Allora :
|
| Dim miodb As Database, mioset As Recordset, miaquery As QueryDef
| Set miodb = CurrentDb
| Set miaquery = miodb.QueryDefs("Query1")
| miaquery.Parameters("nome") = Forms!Anagrafe1!Cerca1
| Set mioset = miaquery.OpenRecordset()
| if mioset.recordcount = 0 then msgbox "Hai pestato una m.!"  'o altro
| messaggio
| miodb.close
|
| Questo codice va messo dopo il Me.Requery
|
| Nelle conzioni tu hai
| Like [Forms]![Anagrafe1]![Cerca1]
| questo like non mi sembra funzioni a meno che non metti gli asterischi a
| mano ...
| Se vuoi mantenere il LIKE nella query1 metti
| like [nome] invece di [nome]
|
| Ciao
| Arturo
-----------------
ciao Arturo... intanto ti dico che come stanno le cose la Mashera di ricerca
funziona benissimo... solo che volevo perfezionarla con una Text Box di
avviso...
cmq il codice da te postato mi confonde riguardo miodb, mioset.. etc ...
non sò cosa mettere al loro posto....
Allora la maschera si chiama Maschera1
 ho fatto una Query1 identica all'originale
togliendo tutti i Like [Forms]![Anagrafe1]![Cerca1] e mettendo nella colonna
([Anagrafe].[Cognome]) & " " & [Anagrafe].[Nome]...nei Criteri [nome]
mi posti il codice con i riferimenti esatti ???
oppure se vuoi ti mando in e-mail il DB ridotto ad una 15a di record...
Ciao e grazie...


Ok se mi mandi il DB te lo rendo subito con la modifica (credo si faccia
prima in questo modo).
Ciao
Arturo
atad...@freemail.it