Hi,
this code placed in the change event of a Tabpanel gives me a
StackOverFlow exception
Sub Change()
Dim anID As String
if App.TheCoach.SelectedStudent.HasKey("user_id") then
anID = App.TheCoach.SelectedStudent.Value("user_id")
if anID = "0" Then
MsgBox "Nieuwe gebruikers moeten geregistreerd worden bij de
leverancier vooraleer deze functionaliteit beschikbaar wordt."
me.Value = 0
end if
Else
me.Value = 0
end if
End Sub
What I meant to happen was:
when someone clicks on page 2 (value = 1) and anID = "0" or anID does
not exist he has to stay on page 1 (value = 0) of the tabpanel.
What am I doing wrong?
TIA
Bart
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
