finestra di avviso x record non trovato

[IACOBUCCI GIOVANNI]

ho creato una maschera mRICERCA (visualizzazione maschera continua in modo
da avere una successione di record a video) dalla tblFORNITORI ed ho crerato
un pulsante per ogni lettera dell'alfabeto che effettua una ricerca nella
tbl per trovare i record corrispondenti.
VI MOSTRO COME HO FATTO: all evento click() del pulsante TROVA_G ho
associato la seguente routine:
Private Sub TROVA_G_Click()
DoCmd.OpenForm "mRICERCA", acNormal, , "[NOMEFORNITORE] Like 'G*'",
acFormReadOnly, acWindowNormal
End Sub
vengo al problema :
voglio creare una procedura che da un messaggio di avviso se non ci sono
rekord di fornitori il cui "[NOMEFORNITORE] like "G*" per es.
vi chiedo una risposta semplice possibilmente con un esempio
grazie a tutti
p.s. io sono nuovo e vorrei rispondere a qualche domanda ma ho notato che
molti fanno domande molto ermetiche che spesso non capisco..........

[Carlo Costarella]

"IACOBUCCI GIOVANNI" <IACOG...@INTERFREE.IT> ha scritto nel messaggio
news:3cdb6...@news.dada.it...

Una possibile soluzione:
Crea una query con la condizione che hai esposto, nella colonna
"NomeFornitore". Prima di aprire la maschera MRicerca esegui la query e se
restituisce qualcosa, prosegui nell'apertura della maschera, altrimenti esci
dalla funzione con un bel messaggio...nessun record...
Esempio di query:
SELECT Indirizzi.*, Indirizzi.NomeFornitore AS Verifica
FROM Indirizzi
WHERE (((Indirizzi.NomeFornitore) Like
[Forms]![Indirizzi]![MioControlloNascosto] & "*"));

Salva la query per esempio col nome di SQVerificaElencoFornitore

Crea un nuovo controllo "MioControlloNascosto" nella maschera e impostalo a
non visibile. Quando clicchi su di un pulsante imposta il
MioControlloNascosto al valore della Caption del pulsante...e sempre che la
caption dei pulsanti sia impostata ad ogni lettera dell'alfabeto...
Su click di ogni pulsante:
me.MioControlloNascosto = me.NomePulsante.Caption

If IsNull(DLookup("Verifica", "SQVerificaElencoFornitore")) Then
MsgBox "Nessun Fornitore per questa selezione."
Exit Sub
Else
'tuocodice di apertura maschera
End If

Ciao, Carlo

[Max De Poli]

"IACOBUCCI GIOVANNI" <IACOG...@INTERFREE.IT> wrote in message news:<3cdb6...@news.dada.it>...

> voglio creare una procedura che da un messaggio di avviso se non ci sono
> rekord di fornitori il cui "[NOMEFORNITORE] like "G*" per es.
> vi chiedo una risposta semplice possibilmente con un esempio

All'apertura della maschera verifichi che il recordset della maschera
sia pieno:

Private sub form_load(Cancel as integer)

If not me.recordsetclone.recordcount >0 then
Msgbox "NEssun record!"
Docmd.cancelevent
Endif

End sub

Occhio che questo ti genera un errore tipo "l'azione openform e' stata
annullata", da intercettare.

Cia'
Max