Hey friends,
I have a procedure that updates some records in a table it runs fine if the customer number from a combo box is "CNF" but if it is like "01246" I get Error 3163 (the field is too small to accept the amount of data you attempted to add.) The field type is text. Here is the code:
'Open Manual Invoice Header Table and add record
'Dim strMessage As String
Dim dbsManualInvoiceHeader As Database
Dim rstInvoiceHeader As DAO.Recordset
Set dbsManualInvoiceHeader = CurrentDb
Set rstInvoiceHeader = dbsManualInvoiceHeader.OpenRecordset("Manual_Invoice_Header")
rstInvoiceHeader.AddNew
rstInvoiceHeader!Invoice = Me.txtInvoiceNo
rstInvoiceHeader!Cust = Me.cboCust
rstInvoiceHeader![Invoice Date] = Date
rstInvoiceHeader!CustPO = Me.txtCustPO
rstInvoiceHeader!Terms = "01"
rstInvoiceHeader!ShipTo1 = Me.txtCustName
rstInvoiceHeader.Update
What can I do to make it accept customer 01246?
Doyce
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar