Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Ciaooo a tutti....ciao Giorgio e Buon Anno 2010;
...ho una maschera (... la famosa maschera Giorgio... hi..!!) che trae origine da una query di selezione di nominativi. Nell'ipotesi in cui il nominativo ,e quindi i dati non sono presenti nella query, invece di lanciare ed aprire la maschera vuota, è possibile far comparire un messaggio che avvisa l'utente che i dati ricercati non sono presenti in archivio...?
..Grazie ancora infinite..!!
Francesco Laroccia
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Ciaooo Giorgio...!!
..perfetto....!! Tutto gira a meraviglia...!!...al 100%100
...Non finirò mai di ringraziare te ,ed insieme al contributo degli altri moderatori , sulle cose che sto apprendendo su questo meraviglioso Forum..!!
Grazie ancora Giorgio..!!..a presto..!!!
Francesco Laroccia
Ciao Francesco,
acc.. scusa, non avevo notato quel Me.Recordset.RecordCount = 0 che non va bene e non serve a niente in un report.
L'evento NoData si scatena automaticamente se l'origine record del report non ha righe, quindi basta fare:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Non ci sono dati da stampare!!", vbExclamation Cancel = True
End Sub
poi come detto in precedenza, per evitare l'errore 2501, modifica il codice del pulsante che apre il report come già fatto per l'apertura della maschera.
Ciao
Giorgio Rancati
Ciaoo Giorgio..
...ho provato ad inserire nell'Evento Report vuoto il codice modificato, ma mi da un errore di VB "codice errore di runtime 2593 Funzionalità non disponibile in un MDB" e con il debug si posiziona nella riga (colore giallo) dell'editor del VB:
If Me.Recordset.RecordCount = 0 Then
...penso che è questa riga che non va bene..!! Il report è tratto dalla solita query di selezione..!!
Ciaoo
Francesco Laroccia
Ciao Francesco,
Il codice presente nell'evento NoData va bene così.
Il controllo per non mostrare l'errore 2501 va inserito nel pulsante che apre il report, proprio come per l'apertura della maschera mostrato nel mio post precedente.
Ciao
Giorgio Rancati