Newsgroup: it.comp.appl.access
Titolo: Se la query è vuota non aprire la maschera

Ho impostato una query di selezione (query1) con alcuni criteri.
I risultati della query li ho visualizzati nella maschera (maschera1)
Nel caso la query avesse come risulato un recordset vuoto,
vorrei fare apparire una msgbox con un messaggio e vorrei che la maschera
non mi si aprisse.

 ha scritto nel messaggio
news:9joe5a$bt6$1...@news.flashnet.it...

Per aprire la maschera userai un pulsante di comando, al codice di questo
pulsante devi far precedere questo altro:
Dim MioDB as database, MioSet = recordset, x as long
Set MioDB = CurrentDB
Set MioSet = MioDB.openrecordset ("Query1")
x = MioSet.RecordCount
If x = 0 then
MsgBox ("Nessun record")
exit sub
End If
' se non ci sono record la routine termina
' se ce ne sono prosegue ed esegue il comando successivo che sarà
' quello di aprire la maschera
DoCmd.OpenForm "Maschera1"
Ciao, Arturo

 wrote in message 9joe5a$bt6$1...@news.flashnet.it...

su apertura maschera
If Forms![query6].RecordsetClone.RecordCount = 0 Then
    DoCmd.CancelEvent
    MsgBox ("Query vuota")
End If
ciao

 wrote in message
9johjm$s5b$1...@pegasus.tiscalinet.it...

[query6] va sostituito con il nome della maschera
ariciao

 ha scritto nel messaggio
news:9johp3$s80$1...@pegasus.tiscalinet.it...

cosi facendo pero appare sempre quella pallosissima finestra di access
errore di run time.................
si puo togliere ???????????

 wrote in message
YBQ77.3797$0Z1.1...@news.infostrada.it...

che finestra ???
che dice ???
quando ???
io non ho nessuna finestra

 wrote in message
YBQ77.3797$0Z1.1...@news.infostrada.it...

Prima dell'if metti un
on error resume next
Antonio

 ha scritto nel messaggio
news:9joku0$smp$1...@lacerta.tiscalinet.it...

questa è la finestra che compare (access97):
errore di run-time 2501
L'azione openform è stata annullata
è stato utilizzato un metodo dell'oggetto docmd per esguire un'azione vb ma
poi è stato scelto di annulla in una finestra di dialogo
è stato utilizzato, ad esempio, il metodo close per chiudere una maschera
modificata, quindi è stato scelto annulla nella finestra di dialogo in cui
viene richiesto se si desidera salvare le modifiche apportate alla maschera
DEBUG
TERMINA
come si toglie, se si puo ?

 ha scritto nel messaggio
news:SKQ77.3820$0Z1.1...@news.infostrada.it...

non si risolve

 non si risolve
Hai ragione, ho sbagliato ad indicarti il punto.
L'on error lo devi mettere prima del comando di apertura della maschera,
dall'altra parte.
Antonio


ho capito
non ho visto nessun errore perchè aprivo direttamente la finestra, ma
naturalmente tu la richiamerai da un tasto
togli dall'evento click del tasto che ti richiama la maschera
MsgBox Err.Description
ciao

 ha scritto nel messaggio
news:u3R77.3895$0Z1.1...@news.infostrada.it...

Ottimo, funziona, grazie mille !

una curiositą ma siete dalle parti di Pomezia

 una curiositą ma siete dalle parti di Pomezia
Ma soprattutto: cocchiccell'hai?!?
Antonio

 wrote in message
DkR77.3955$0Z1.1...@news.infostrada.it...

presumo che marco75 e pac77
o con chi č di pomezia


cos'è / chi è Pomezia
una città ? in questo caso no, sono di Ravenna

 ha scritto nel messaggio
news:9johjm$s5b$1...@pegasus.tiscalinet.it...

Grazie 1000!
...non so a cosa ti riferissi con Pomezia....
cmq sono di Bologna.
Ciao!

 wrote in message
9jonus$u0k$1...@pegasus.tiscalinet.it...

Ma siccome al thread ho partecipato anch'io, magari potevi lasciare qualche
nome...
Antonio


ok