Geen actie bij weggedrukte MsgBox

Status
Niet open voor verdere reacties.

Delah

Nieuwe gebruiker
Lid geworden
3 apr 2017
Berichten
3
Hallo,

Ik ben bezig met een quiz te maken voor mijn werk. Dit is wat ik heb:

Op Slide 1 staat een knop met een macro.
Code:
Sub Start()
numberCorrect = 0
numberWrong = 0
YourName
CheckName
End Sub

Code:
Sub YourName()
UserName = InputBox(Prompt:="Wat is jouw naam?")
End Sub

Code:
Sub CheckName()
If YourName = False Then
    Exit Sub
    End If
ActivePresentation.SlideShowWindow.View.GotoSlide 2
End Sub

Het maakt nu niet uit wat er ingevuld wordt, hij blijft nu op de eerste slide staan.
Hoe krijg ik het voor elkaar dat als er niks ingevuld wordt en er op Oke, Cancel of op het kruisje gedrukt wordt hij op Slide 1 blijft staan en als er wel een naam wordt ingevuld hij naar slide 2 gaat?

Al vast mijn dank.
 
Je 'functie' is geen functie, en die levert dus ook niks op.
Code:
Function YourName() As Boolean
Dim UserName As String
    UserName = InputBox(prompt:="Wat is jouw naam?")
    If Not UserName & "" = "" Then YourName = True
End Function
 
Hartelijk bedankt OctaFish. Er is vooruitgang. Ik heb mijn Sub YourName code vervangen door die van jou en het geprobeerd. Wat nu gebeurd is dat de InputBox tevoorschijn komt. Maar het maakt de eerste keer niet uit wat ik doe; of ik nou een naam invul of hem cancel. De InputBox verdwijnt en komt meteen weer terug. Deze tweede keer doet hij precies wat hij moet doen. Enig idee wat er nog fout kan zijn?
 
Woohoo! Het is gelukt. Ik heb jouw code en die van mij samengevoegd met mijn CheckName code. Nu werkt het.
Code:
Function YourName() As Boolean
Dim UserName As String
    UserName = InputBox(prompt:="Wat is jouw naam?")
    If Not UserName & "" = "" Then YourName = True
    If YourName = True Then
    ActivePresentation.SlideShowWindow.View.GotoSlide 2
    End If
End Function

Nogmaals bedankt OctaFish.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan