Set tcollection = workspace.PickListCollection( 3, False,ServerName$, DatabaseName$, “Programma”,“Nieuwe Playlist” , “Kies programma”) If tcollection.count=0 Then Exit Sub
People can choose a “Programma”.
The list contains all the programs with the type
The user choose a programm how can i check if the type is tv or radio?
Subject: answer
i figured it out
Set tcollection = workspace.PickListCollection( 3, False,ServerName$, DatabaseName$, "Programma","Nieuwe Playlist" , "Kies programma")
If tcollection.count=0 Then Exit Sub
Set tdoc = tcollection.GetFirstDocument
typeProg$ =tdoc.Type(0)
If typeProg$ = "T" Then
Msgbox "TV"
Elseif typeProg$ = "R" Then
Msgbox "Radio"
Else
Exit Sub
End If