Msgbox

[Edje_007]

Hoi

Ik zou graag een msgbox willen plaatsen tussen mijn code met de volgende melding :



Private Sub CommandButton1_Click()
'msgbox wanneer er op nee wordt geklikt een melding meegeven ( vb opdracht geannuleerd )
'wanneer er op ja wordt geklikt een melding meegeven ( bestand opgeslagen )


Dim variable_submap As String
variable_submap = InputBox("Typ hier de naam van de map")
Dim path As String
path = "C:\Test\" & variable_submap
MkDir (path)
End Sub

In bijlage een voorbeeld

Alvast bedankt

Ed

 

[Spiderman]

Hoi Edje_007,

Zoiets:

Dim RetVal

RetVal = MsgBox("Wordt het JA of NEE", vbQuestion + vbYesNo, "JA of NEE")
If RetVal = vbYes Then
 MsgBox "Het werd JA"
Else
 MsgBox "Het werd Nee"
End If

 

[Edje_007]

Hoi Spiderman !

Bedankt voor je reactie !:thumb:

Ik heb mijn vraag de eerste keer niet goed geformuleerd , en bedoel eigenlijk het volgende :

(Zie voorbeeld in bijlage )
Wanneer ik op de knop annuleren klik in de 'inputbox ' krijg ik telkens een foutmelding .
DIt zou ik dan willen opvangen met een msgbox ( vb opdracht geannuleerd )
Wanneer ik de waarde typ in de 'inputbox ' zou ik ook een melding willen nadat de opdracht is uitgevoerd ( vb opdracht gelukt ...nieuwe map aangemaakt )

Groetjes

Ed

 

[Spiderman]

Hoi Edje_007,

Zoiets dan:

Dim variable_submap As String
Dim path As String
variable_submap = InputBox("Typ hier de naam van de map")
If variable_submap <> "" Then
    path = "C:\Taxi\" & variable_submap
    MkDir (path)
    MsgBox "Klaar"
Else
    MsgBox "Je hebt niets ingevult"
End If

Suc6

 

[Edje_007]

Hoi Spiderman!

Werkt perfect !!! :thumb:

Thx m8 !!!