Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Command6_Click()
Select Case Screen.ActiveControl.Name
Case "myTextBox"
If IsNull(Me.myTextBox.Value) Then
Me.myTextBox.Value = 5
Else
txtVal = Me.myTextBox.Value
newTxtVal = txtVal & 5
Me.myTextBox.Value = newTxtVal
End If
Case "Text0"
If IsNull(Me.Text0.Value) Then
Me.Text0.Value = 5
Else
txtVal = Me.Text0.Value
newTxtVal = txtVal &