[Risolto] Errore di run-time 424 su Dim As VbMsgBoxResults

di
alex66
il
3 risposte
A
alex66
Pochi posts
Iscritto da
gen, 2020
Messaggi:
48

[Risolto] Errore di run-time 424 su Dim As VbMsgBoxResults

Salve a tutti.

Ho un nuovo problema, su una finestra di messaggio personalizzata.
Mi da errore run-time 424: Necessario oggetto

Ho preso e personalizzato il codice da questo indirizzo:

http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/

Questo è il MIO codice:
    
    Dim Scelta As VbMsgBoxResult
    Scelta = Dialog.Box(Prompt:="Testo Messaggio...", _
                 Title:="Testo titolo", _
                 LabelButton1:="Testo Bottone1", _
                 LabelButton2:="Testo Bottone2", _
                 LabelButton3:="Testo Bottone3")
 
        If (Scelta = vbB1) Then
            Codice da eseguire...
       ElseIf (Scelta = vbB2) Then
            Codice da eseguire...
       Else
            (Scelta = vbB) Then
            Codice da eseguire...
       End If
Dove sbaglio?

Grazie.

Alex66

3 Risposte

  • A
    alex66
    Pochi posts
    Iscritto da
    gen, 2020
    Messaggi:
    48

    Re: [Risolto] Errore di run-time 424 su Dim As VbMsgBoxResults

    Scusate, l'errore me lo da sulla seconda riga del codice ovvero:
          Scelta = Dialog.Box(Prompt:="Testo Messaggio...", _
    Grazie.

    Alex66
  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21785

    Re: [Risolto] Errore di run-time 424 su Dim As VbMsgBoxResults

    Intanto deve essere
    
    Dim Scelta As VbMsgBoxResultEx

    poi devi aggiungere il parametro Buttons
                 
    Scelta = Dialog.Box(Prompt:="Testo Messaggio...", _
                 Buttons:=vbCustom + cbicon, _
                 Title:="Testo titolo", _
                 LabelButton1:="B1", _
                 LabelButton2:="B2", _
                 LabelButton3:="B3")


    e i test vanno fatti con vbBt1 , vbBt2 e vbBt3 ...
               
       If Scelta = vbBt1 Then
            ' Codice
       ElseIf Scelta = vbBt2 Then
            ' Codice
       Else
            ' Codice
       End If
  • A
    alex66
    Pochi posts
    Iscritto da
    gen, 2020
    Messaggi:
    48

    Re: [Risolto] Errore di run-time 424 su Dim As VbMsgBoxResults

    oregon ha scritto:

    Intanto deve essere
    
    Dim Scelta As VbMsgBoxResultEx

    poi devi aggiungere il parametro Buttons
                 
    Scelta = Dialog.Box(Prompt:="Testo Messaggio...", _
                 Buttons:=vbCustom + cbicon, _
                 Title:="Testo titolo", _
                 LabelButton1:="B1", _
                 LabelButton2:="B2", _
                 LabelButton3:="B3")


    e i test vanno fatti con vbBt1 , vbBt2 e vbBt3 ...
               
       If Scelta = vbBt1 Then
            ' Codice
       ElseIf Scelta = vbBt2 Then
            ' Codice
       Else
            ' Codice
       End If
    Hai ragione. Sono io che sono di coccio.

    E non solo. Dovevo scaricare lo zip allegato alla pagina e caricare sul mio database maschera e modulo.

    Non ho fatto in tempo a scriverlo.

    Adesso funziona alla grande. Problema risolto.

    Grazie.

    Alex66
Devi accedere o registrarti per scrivere nel forum
3 risposte