Changing procedure to allow for alphanumeric field

[Kully121]

Private Sub cmdAddProducts_Click()


Hi,

I have the following procedure to add new products to a sub form

However i now want to change the Cust.No field to text, how do i make the relevant changes to the below to allow numbers of text or both in the Cust.No field??


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim CustNo As Long
Me.Customer_Number.SetFocus
CustNo = Me.Customer_Number.Value

Call AddProducts(CustNo)

Me.sfrmProductDiscounts.SetFocus
Me.sfrmProductDiscounts.Requery


End Sub


Thanks

 

[Norie]

I'm not 100% sure as you haven't included the code for the AddProducts routine.

Perhaps you can just change this declaration.

Dim CustNo As Long

to

Dim CustNo As String

 

[Kully121]

thanks that worked