[Solved] Linked message boxes

[Tommi89]

Hi guys, i'm new here, I'm working on my first vba test project and i'm already stuck. Everything seems to work well until i try to close the last message box, where open office displays an error message about undefined function or subs. Can you help me?
thanks

[FJCC]

This is not VBA but OpenOffice Basic. Try removing the Run from the beginning of your calls of Subs.

Code: Select all

sub f1
Dim sVar as Integer
sVar = MsgBox("Do you like icecream?",35,"Icecream")
If sVar = 7 then
  f12
End if
If sVar = 6 then
  f11
End if

End Sub


sub f12
Dim sVar as Integer
sVar = MsgBox("i don't like you!",0,"Icecream test")
  
End Sub



sub f11
Dim sVar as Integer
sVar = MsgBox("Do you like it relly much?",35,"Icecream test")
If sVar = 7 then
  f112
End if
If sVar = 6 then
  f111
End if

End Sub


sub f111
Dim sVar as Integer
sVar = MsgBox("Good Boy!",0,"Icecream test")
  
End Sub

sub f112
Dim sVar as Integer
sVar = MsgBox("Ok Boy!",0,"Icecream test")
  
End Sub

[Tommi89]

That was easy. thank you very much, i lost nearly 2 hrs on that!!!! =)