Error Handling

[wasserfa89]

Hi all

Below a very simple code which does the following:

First it opens an Inputbox so the User can type in a date

and if it's in wrong format a warning MSGBox will be shown

everything works fine execpt the following:

How can i handle the MSBox (if User presses the ok Button) Answer will say if User clicks on "OK" the Script shoud go to the beginning of the Inputbox Routine?

------------------------------------------------------------------------------------------------------------------------------------------------

'=========================================================================
' VBScript Source File -- Created with XLnow OnScript
'
' AUTHOR: Elvis Altherr
' COMPANY:
' DATE: 06.06.2012
' COMMENT: DateAdd und DateDiff Funktion aufzeigen inkl. Eingabemöglichkeit
' durch und Prüfung auf Datumswert und Warnfenster anzeigen

'=========================================================================

Dim Heute, InEinerWoche, InEinemMonat, InEinemQuartal, Eingabe
' Declare Variables

Eingabe = Inputbox ("Bitte Datum eingeben", Eingabe) ' Eingabe von Datum verlangen
If IsDate(Eingabe) = True Then ' stimmt Format falls ja weiter


InEinerWoche = DateAdd("d",7, Eingabe)' zum aktuellen Datum jeweils den Wert für die Woche, den Monat und das Quartal addieren
InEinemMonat = DateAdd("m",1, Eingabe)
InEinemQuartal = DateAdd("q",1, Eingabe)

WScript.Echo("Heute = " & Eingabe)
WScript.Echo("in einer Woche = " & InEinerWoche)
WScript.Echo("in einem Monat = " & InEinemMonat)
WScript.Echo("in einem Quartal = " & InEinemQuartal)
' und zeilenweise ausgeben

TageDaZwischen = DateDiff("d", Eingabe, InEinemQuartal)' Differenz zwischen heute und dem Quartalswert berechnen
WScript.Echo("Tage zwischen " & Eingabe & " und " & InEinemQuartal & " = " & TageDaZwischen)
' Ergebnis "printen"


Else
MsgBox "Falsches Format bitte wiederholen", vbCritical


End If
-------------------------------------------------------------------------------------------------------------

thanks for your answers

 

[taupirho]

You need to do something like

Do

fname=InputBox("Enter Period")

select case fname

case "Week" exit do
case "Month" exit do
case "Quarter" exit do

end select

Loop

msgbox("I'm outta here")



In order to understand recursion, you must first understand recursion.