VB Code:
' Program Globals Dim DestAlbum as String Dim DestDisc as String 'Main Sub Private Sub CommandBrowse_Click() Dim RetStat As Integer Dim TempDest As String Load Albumsfrm Albumsfrm.Show 1 If Albumsfrm.Retstring <> "" Then RetStat = GetParam(Albumsfrm.Retstring, 1, "||", DestAlbum) RetStat = GetParam(Albumsfrm.Retstring, 2, "||", DestDisc) End If TempDest = DestDisc MsgBox DestAlbum & " " & DestDisc AlbumName.Text = DestAlbum MsgBox DestAlbum & " " & DestDisc If TempDest <> "" Then AlbumName.Text = AlbumName.Text & " (" & TempDest & ")" End If Set Albumsfrm = Nothing End Sub
Can anyone see in the above procedure why the first popup message displays "Atomic Kitten CD1"
and the second one displays a blank popup?
It seems as though the Albumname.Text = DestAlbum clears my Global Variables DestAlbum and DestDisc!!




Reply With Quote