Newsgroup: it.comp.appl.access
Titolo: Maschera vuota ? => Msgbox ! Come ?

Salute a tutti.
Situazione:
     tabella "tDati"
ID,  NomeCognome,  TitoloStudio,  Professione,  Note.
    query "qDati"
con tutti i campi e, come criteri sulla stessa riga, < Like "*" &
[forms]![mRicerca]![NomeControllo] & "*" >
in ogni "colonna" della query.
    maskera "mRicerca"
nella maskera "mRicerca" ci sono i controlli [NomeCognome], [TitoloStudio],
[Professione], [Note] che perņ sono "non associati".
Nell'evento "Su clic" del pulsante [Cerca...] si effettua la ricerca del
record che contiene la stringa ricercata e si visualizza la...
......maskera "mDati"
che ha origine dalla query, e che visualizza tutti i record selezionati
tramite la "mRicerca".
Il problema che non riesco a risolvere č il seguente:
quando la query non da alcun risultato, la maskera "mDati" non visualizza
alcun controllo
e appare totalmente vuota.
Come intercetto questo evento visualizzando sģ la maskera vuota, ma
attivando un msgbox ("Non ci sono Record contenenti i valori cercati")
che, una volta cliccato su "OK", chiuda anche la maskera "mDati" e
ritorni alla "mRicerca" (e, almeno a questo, ci arrivo) ?
(Tipo: if (mDati)=null, 0, "", kennesņio...then
            msgbox "I record non ci sono...attaccati al tram !"
            etc etc...)
Grazie in anticipo a chi si interesserą.
Gio

"gio_sgj" <ilnickdelng@NOSPAMPLI'S.tiontupoohay> ha scritto nel messaggio
news:4Vlea.89151$pG1.1...@news1.tin.it...

Se la query di selezione parametrica su cui č basata la maschera mDati si
chiama MiaQuery.
Se attualmente a fronte dell'evento "Su clic" del pulsante di comando
contenuto nella maschera mRicerca apri la maschera mDati con:
DoCmd.OpenForm "mDati"
a fronte dell'evento su clic prova invece a generare il seguente codice VBA:
If DCount("*", "MiaQuery") = 0 Then
    MsgBox "Non ci sono Record contenenti i valori cercati"
Else
    DoCmd.OpenForm "mDati"
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Ti ringrazio Roberto per l'interessamento e la risposta.
Anche grazie a voi e al ng, avevo già chiaro come
segnalare l'assenza di record prima di aprire la
maskera.
Tuttavia vorrei cmq aprire la maskera, visualizzandola
senza controlli, come avviene se il risultato della query
è 0, visualizzando il msgbox e, alla chiusura di questo,
chiudere la maskera "mDati" e tornare alla "mRicerca".
Il problema è proprio questo: qual'è il codice che
intercetta, diciamo così, una maskera che, prendendo
i dati da una query, risulta vuota...totalmente !?
Gio

"gio_sgj" <ilnickdelng@NOSPAMPLI'S.tiontupoohay> ha scritto nel messaggio
news:m9Bea.130636$zo2.3...@news2.tin.it...

DoCmd.OpenForm "mDati"
If DCount("*", "MiaQuery") = 0 Then
     MsgBox "Non ci sono Record contenenti i valori cercati
     DoCmd.Close acForm, "mDati"
End If
--
Roberto
---------------------------------------------


 ha scritto nel messaggio
news:14Cea.32589$7y3.1...@twister1.libero.it...

Boh...allora mi ritiro a vita privata !
Avevo provato una soluzione similare, che, naturalich,
non fungeva. E l'ho cancellata, quindi non saprò mai
dov'era la stupidaggine !
Grazie e, permettimi...
PAIX...PACE...PEACE...MIR... !!!

 PAIX...PACE...PEACE...MIR... !!!
PACE!!!
