PRB: Text Property of Grid Is Reset When Used on SSTab Control

RESOLUTION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Implementing the following will help work around the problem:

    ' General Declarations of Form
    Dim blnJustOnce1 As Boolean
    Dim blnJustOnce2 As Boolean
    Dim blnJustOnce3 As Boolean
   
    Private Sub Form_Load()
      blnJustOnce1 = True
      blnJustOnce2 = True
      blnJustOnce3 = True
    End Sub
   
    Private Sub SSTab1_Click(PreviousTab As Integer)
      Select Case Form1.SSTab1.Tab
      Case 0
        If blnJustOnce1 Then
         Form1.Grid1.Text =""
         blnJustOnce1 = False
        End If
      Case 1
        If blnJustOnce2 Then
         Form1.Grid2.Text =""
         blnJustOnce2 = False
        End If
      Case 2
        If blnJustOnce3 Then
         Form1.Grid3.Text =""
         blnJustOnce3 = False
        End If
      End Select
    End Sub