Fields clearing by themselves

[Blobby]

' 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!!

[Si_the_geek]

I would assume you have some code in the albumname control for when the value changes... if so, disable the control while you do that bit

[Blobby]

Si,

You are a genius! I never thought to look in there................

[Si_the_geek]

Unfortunately it's an easy mistake to make - so lots of people do it... makes it easier to spot when someone else does it