+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

MsgBox senza testo

  1. #1
    robywekky non è in linea Novello
    Ciao a tutti. Sto cercando di impostare dei messaggi personali che si presentano in base ad alcuni casi.
    Ho creato un pulsante Aggiungi con :

    If IsNull(Me.Campo1) Then
       MsgBox "messaggio personale 1"
    Me.campo1.BackColor = RGB(255, 0, 0)
       Cancel = True
       campo1.SetFocus
       ElseIf .... stesso codice, per un altro campo della maschera 
    Else
    Dim strMsg As String
    Dim iResponse As Integer
       strMsg = "Vuoi salvare le modifiche?" & Chr(10)
       strMsg = strMsg & "Clicca  SI per salvare o No per annullare tutto"
       iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Salva il Record?")
       If iResponse = vbNo Then
          DoCmd.RunCommand acCmdUndo
          End If
    DoCmd.RunCommand acCmdSaveRecord
    End If
    
    questo pulsante funziona bene. il Messaggio viene visualizzato in modo completo!

    Nel pulsante chiudi sto cercando di implementare questo altro codice:
    Dim Msgvuoto As String
    Dim MsgPieno As String
    Dim Responsevuoto As Integer
    Dim ResponsePieno As Integer
    If Me.Dirty = True Then GoTo MODIFICA
    
    MODIFICA:
    If IsNull(campo1) Or IsNull(campo2) Then GoTo MODVUOTO
    If Not IsNull(Me.campo1) And Not IsNull(Me.Campo2) Then GoTo MODPIENO
    
    
    MODVUOTO:
    Msgvuoto = "Mancano Informazioni importanti!" & Chr(10)
    Msgvuoto = Msgvuoto & "Scegli SI se vuoi fornirli, altrimenti su NO per cancellare tutto!"
    Responsevuoto = MsgBox(strMsg, vbQuestion + vbYesNo, "Continui l'inserimento?")
       If Responsevuoto = vbNo Then
          DoCmd.RunCommand acCmdUndo
          DoCmd.Close acForm, Me.Name
        End If
    
    MODPIENO:
    MsgPieno = "Hai inserito tutte le informazioni necessarie!" & Chr(10)
    MsgPieno = MsgPieno & "Per salvare le informazioni usa il pulsante Aggiungi!"
    ResponsePieno = MsgBox(strMsgerr, vbInformation + vbOKOnly, "Attenzione")
    If ResponsePieno = vbOK Then
        Cancel = True
    End If
    
    In questo caso, mi si presentano le finestre dei messaggi, con relativi pulsanti, ma senza il testo che è stato inserito tra le virgolette!

    Non ne capisco il motivo!
    Ultima modifica di AntonioG; 12-09-2021 21:12  Motivo: Tag Code

  2. #2
    Usa I tag CODE per il codice. Questa volta ho modificato io il post. Occhio per il futuro.

    Per il problema, NON stai usando le variabili giuste nelle chiamate delle MsgBox
    Prima di postare sul forum direi che basterebbe fare un po' di attenzione
    Ultima modifica di AntonioG; 12-09-2021 21:23 
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Esempio per esplicitare quanto detto da Antonio:

    MsgPieno = "Hai inserito tutte le informazioni necessarie!" & Chr(10)
    MsgPieno = MsgPieno & "Per salvare le informazioni usa il pulsante Aggiungi!"
    ResponsePieno = MsgBox(strMsgerr, vbInformation + vbOKOnly, "Attenzione")

    Ti pare di usare la [MsgPieno] nel messaggio...? Usi [strMsgerr] che ovviamente è VUOTA.

    Ti suggerirei di dichiarare le variabili [Responsevuoto] e [ResponsePieno] non come INTEGER, anche se nella realtà lo sono ma come Type specifica, aiutano alla lettura ed a capire cosa sono:
    Dim Responsevuoto As VBA.VbMsgBoxResult
    
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Funzione MsgBox e lunghezza massima del testo
    Da lalepup nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 10-10-2016, 20:28
  2. Selezionare parte di testo dopo conferma Msgbox
    Da massimocard nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 10-10-2013, 15:16
  3. Msgbox valore casella di testo
    Da vncmra nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 11-02-2012, 11:37
  4. [Access XP VBA] MsgBox e testo a capo
    Da Recordset nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 12-04-2005, 17:24
  5. MsgBox e testo su piu righe
    Da Antonello nel forum Microsoft Word
    Risposte: 5
    Ultimo Post: 19-01-2005, 21:27