Fields clearing by themselves
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!!