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 &