Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 9 su 9

Modificare messaggio ultimo record, e ....

  1. #1
    lukeant non  in linea Scolaretto
    Scusate possibile modificare il messaggio di ultimo record che lancia access quando non ha pi record?

    Cio "Impossibile passare a record specificato"

    Inoltre mi chiedevo che fare quando la query non tira fuori risultati se invece di aprire una maschera possibile far scrivere qualcosa come: "nessun record trovato" e cliccando su un ok si tornava al pannello di controllo.


    Grazie e scusate ma non ho trovato niente sulla guida che mi dicesse come fare


  2. #2
    Recordset non  in linea Scolaretto
    Se ho capito bene...eccoti un esempio
    --------------------------------------------------------------
    Private Sub RecordPrecedente_Click()
    On Error GoTo Err_RecordPrecedente_Click


    DoCmd.GoToRecord , , acPrevious

    Exit_RecordPrecedente_Click:
    Exit Sub

    Err_RecordPrecedente_Click:
    If Err.Number = 2105 Then
    MsgBox "Tuo Messaggio di Avviso", vbExclamation, "Avviso"
    Else
    MsgBox Err.Description
    End If
    Resume Exit_RecordPrecedente_Click

    End sub
    -----------------------------------------------------------
    In pratica devi copiare il blocco di codice:

    If Err.Number = 2105 Then
    MsgBox "Tuo Messaggio di Avviso", vbExclamation, "Avviso"
    Else
    MsgBox Err.Description
    End If

    in entrambe le routine dei pulsanti "RecordPrecedente" e "RecordSuccessivo"

  3. #3
    lukeant non  in linea Scolaretto
    Quote Originariamente inviato da lukeant Visualizza il messaggio
    Inoltre mi chiedevo che fare quando la query non tira fuori risultati se invece di aprire una maschera possibile far scrivere qualcosa come: "nessun record trovato" e cliccando su un ok si tornava al pannello di controllo.
    Ottimo grazie modificando un p il codice come lo volevo io mentre per la cosa sopra c' soluzione?

    cio nel momento che la query non restituisce valore come fare a far apparire avviso ?

  4. #4
    Recordset non  in linea Scolaretto
    Dunque,

    Se la query alla base di un Report esiste un'apposito evento nel Report che gestisce quello che serve a te.

    ------------------------------------------------------------------------------------
    ecco un ESEMPIO:
    http://office.microsoft.com/it-it/ac...582771040.aspx
    ------------------------------------------------------------------------------------

    Se la query l'origine dati di una Maschera, quell' Evento che non mi pare che ci sia...se non sbaglio.

  5. #5
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da Recordset Visualizza il messaggio
    Dunque,

    Se la query alla base di un Report esiste un'apposito evento nel Report che gestisce quello che serve a te.

    ------------------------------------------------------------------------------------
    ecco un ESEMPIO:
    http://office.microsoft.com/it-it/ac...582771040.aspx
    ------------------------------------------------------------------------------------

    Se la query l'origine dati di una Maschera, quell' Evento che non mi pare che ci sia...se non sbaglio.
    Giusto ma va gestito l'errore che viene generato nella Form con la richiesta di apertura del Reprot in quanto l'azione viene annullata...

    In pratica su Evento NoData del Report:
    MsgBox "Il report non contiene dati.", _
      vbInformation + vbOKOnly, "Nessun contenuto"
    
    Cancel = True
    
    mentre nella Form:

    On Error GoTo ErrNoData
    
    DoCmd.OpenReport "MioReport"
    
    ErrNoData:
    If Err.Number = 2501 Then Resume Next 'oppure Exit Sub
    
    ℹ️ Leggi di pi su @Alex ...

  6. #6
    lukeant non  in linea Scolaretto
    Scusami Alex ma sempre nella mia grande ignoranza che intendi come evento no data report e quello che riguarda la form?

    Perdonami ma non ho capito

  7. #7
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da lukeant Visualizza il messaggio
    Scusami Alex ma sempre nella mia grande ignoranza che intendi come evento no data report e quello che riguarda la form?

    Perdonami ma non ho capito
    Apri il Report da VBA e vedi che pu generare l'EVENTO NoDATA...!

    Devi inserire quello che ho scritto...!

    A quel punto nella Form da dove richiami l'apertura del Report dovrai gestire l'errore restituito dall'annullamento dell'azione OPENREPORT con il codice che ti ho suggerito.
    ℹ️ Leggi di pi su @Alex ...

  8. #8
    lukeant non  in linea Scolaretto
    Ok Alex ci provo subito ma il mio problema non in un report ma in una maschera, uguale?

    :-P

  9. #9
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da lukeant Visualizza il messaggio
    Ok Alex ci provo subito ma il mio problema non in un report ma in una maschera, uguale?

    :-P
    Scusa avevco capito male...!
    Nelle Form non presente l'Evento NoData, ma risolvibile gestendo su OPEN
    il RecordSetClone.RecordCount e forzare il Cancel=True come se fosse il NoData
    del Report...

    Private Sub Form_Open(Cancel as Integer)
        Cancel=Me.Recordsetclone.Recordcount=0
    End Sub
    
    Stessa procedura invece per l'intercettazione errore dal punto in cui fai la chiamata di apertura.
    ℹ️ Leggi di pi su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 7
    Ultimo Post: 02-10-2017, 17:17
  2. Ultimo record
    Da animaverde nel forum Microsoft Access
    Risposte: 11
    Ultimo Post: 24-10-2012, 10:55
  3. modificare un messaggio
    Da RooT` nel forum Presentati
    Risposte: 2
    Ultimo Post: 01-12-2009, 06:48
  4. Riferimenti ultimo messaggio forse errati
    Da Cteniza nel forum Comunicazioni e richieste
    Risposte: 2
    Ultimo Post: 18-09-2005, 01:31