TheMatrixReloaded
New Member
- Joined
- May 6, 2002
- Messages
- 29
How would I format a textbox to only allow phone #'s? And if the customer enters text the form won't allow them to get to the next form? Here is the code:
intcurrentrow = Sheets("Phone Table").[a65536].End(xlUp).Offset(1).Row
On Error GoTo 1:
Set mycl2 = Sheet3.Columns("A").Find(What:=txtPhoneNumber.Value)
1:
If mycl2 Is Nothing Then
Sheets("Phone Table").Range("A" & intcurrentrow).Value = _
txtPhoneNumber.Value
Sheets("Phone Table").Range("B" & intcurrentrow).Value = _
TxtAddress.Value
End If
Me.Hide
frmPizzaOptions.Show
End Sub
intcurrentrow = Sheets("Phone Table").[a65536].End(xlUp).Offset(1).Row
On Error GoTo 1:
Set mycl2 = Sheet3.Columns("A").Find(What:=txtPhoneNumber.Value)
1:
If mycl2 Is Nothing Then
Sheets("Phone Table").Range("A" & intcurrentrow).Value = _
txtPhoneNumber.Value
Sheets("Phone Table").Range("B" & intcurrentrow).Value = _
TxtAddress.Value
End If
Me.Hide
frmPizzaOptions.Show
End Sub