VB Code Needed or Data Forms

[Morrissey]

Hi,

I've Made A Data Form Using Visual Basic And I've made An Input Where You Type Something And It Goes To The Requested Cell, However I Would Like It To Be Data That Is Valid So When Someone Types In The (For Example) Invoice Number 'S' A Pop Up Menu Will Say Please Enter A Number So I'd Like The Data Input Into The Box Only Data If It Helps Here IS The Code I've Started With:

Private Sub cmdEnterInvoiceData_Click()
Sheet1.Range("b11").Value = txtInvoiceNum

End Sub

Private Sub UserForm_Click()

End Sub

 

[Morrissey]

Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)

Hey Mudface This Line VBA Says It Has Errors On It Please Help


PS. Here Is All The Code I Have Input


Private Sub cmdEnterInvoiceData_Click()

Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)
Exit Sub

WrongInput:
MsgBox "Please Enter A Valid Invoice Number"
txtInvoiceNum.Text = ""
txtInvoiceNum.SetFocus






End Sub

Private Sub txtInvoiceNum_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[Morrissey]

Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)

Hey Mudface This Line VBA Says It Has Errors On It Please Help


PS. Here Is All The Code I Have Input


Private Sub cmdEnterInvoiceData_Click()

Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)
Exit Sub

WrongInput:
MsgBox "Please Enter A Valid Invoice Number"
txtInvoiceNum.Text = ""
txtInvoiceNum.SetFocus






End Sub

Private Sub txtInvoiceNum_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[Morrissey]

PS that debug error only comes up when I enter words however I want the error message to come up not the VBA debugger

 

[Mudface]

You've missed out the On Error ... line. The point of that is that it traps the error when you enter non-numeric data, and goes to the error handler called WrongInput. Select the code I posted, copy it ALL and paste it over your existing code.

 

[Morrissey]

Ok This is getting too complicated I will start a new thread

 

[Mudface]

No, it's quite simple, copy the code below and paste it over your existing code, it works fine for me: -

Private Sub cmdEnterInvoiceData_Click()

On Error GoTo WrongInput
Sheet1.Range("b11").Value = CDbl(txtInvoiceNum.Text)
Exit Sub

WrongInput:
MsgBox "Please enter a number"
txtInvoiceNum.Text = ""
txtInvoiceNum.SetFocus

End Sub

 

[Morrissey]

thank you very much for helping me it works now sorry for doubting your VB talents

 

[Mudface]

Heh, you're right to doubt my talents . You just missed a line out, that's all. Good luck with the rest, think you'll get a higher mark than Sami?

 

[Morrissey]

Nah Sami stated the project three months before me and he did all the excel project book I did three chapters and started the project around late february using my own knowledge on ecel and this message board(it's in on friday) and I have done no implementation while Sami has doen about 20 pages