Private Type typCateringOrder
conum As Long
Unit As String * 3
periodend As Variant
description As String
headcount As Long
deliverydate As Variant
orderdate As Variant
orderedby As String
orderedfor As String
phonenumber As String
shiptoname As String
shiptoaddress As String
billtoname As String
billtoaddress As String
chargenumber As String
cashorder As Integer
datepaid As Variant
amountpaid As Currency
checknumber As String
price As Currency
tax As Currency
grandtotal As Currency
taxable As Integer
End Type
---------------------------------------
Private Sub ReadCateringOrder(rs As DAO.Recordset, intFile As Integer)
On Error GoTo errFound
Dim CateringOrder As typCateringOrder
Get #intFile, , CateringOrder
If EOF(intFile) Then Exit Sub
rs.AddNew
rs!conum = CateringOrder.conum
rs!Unit = CateringOrder.Unit
rs!periodend = CateringOrder.periodend
rs!description = CateringOrder.description
rs!headcount = CateringOrder.headcount
rs!deliverydate = CateringOrder.deliverydate
rs!orderdate = CateringOrder.orderdate
rs!orderedby = RetNull(CateringOrder.orderedby, " ")
rs!orderedfor = RetNull(CateringOrder.orderedfor, " ")
rs!phonenumber = RetNull(CateringOrder.phonenumber, " ")
rs!shiptoname = RetNull(CateringOrder.shiptoname, " ")
rs!shiptoaddress = RetNull(CateringOrder.shiptoaddress, " ")
rs!billtoname = RetNull(CateringOrder.billtoname, " ")
rs!billtoaddress = RetNull(CateringOrder.billtoaddress, " ")
rs!chargenumber = RetNull(CateringOrder.chargenumber, " ")
rs!cashorder = CateringOrder.cashorder
rs!datepaid = CateringOrder.datepaid
rs!amountpaid = CateringOrder.amountpaid
rs!checknumber = RetNull(CateringOrder.checknumber, " ")
rs!price = CateringOrder.price
rs!tax = CateringOrder.tax
rs!grandtotal = CateringOrder.grandtotal
rs!taxable = CateringOrder.taxable
rs.Update
errFound:
MsgBox Err.description
End Sub
This was a access 2000 database upgraded to 2010 if i take the errfound function it dosent work. with the errfound function pops up a msg box and when i click ok it works HELP Please
variable uses automation type not supported