Check if choosen type is radio or tv

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