ACCESS FEED: [MS_AccessPros] Code Not Working

Rabu, 06 Juli 2011

[MS_AccessPros] Code Not Working

Hi All,

I am using following code to update subform from another table but having Run Time Error "3201" can any one tell me what I am doing wrong.

Private Sub CustomerCode_AfterUpdate()
    Dim db As DAO.Database
    Dim strSql As String
    Dim rs As DAO.Recordset
    Dim rs1 As DAO.Recordset
    Dim lngReceiptID As Long

    strSql = "SELECT tblCustomerInvoices.ID, tblCustomerInvoices.CustomerCode, tblCustomerInvoices.InvoiceDate, tblCustomerInvoices.InvoiceNo, tblCustomerInvoices.InvoiceAmount, tblCustomerInvoices.Allocate, tblCustomerInvoices.Status " & vbCrLf & _
            "FROM tblCustomerInvoices " & vbCrLf & _
            "WHERE (((tblCustomerInvoices.CustomerCode)=""" & [Forms]![Form5]![CustomerCode] & """));"

    Set db = CurrentDb()
    Set rs = db.OpenRecordset(strSql, dbOpenDynaset)
    Set rs1 = db.OpenRecordset("tblReceiptLines", dbOpenDynaset)
    lngReceiptID = Me.ReceiptID

    Do While Not rs.EOF
    rs1.AddNew
    rs1!ReceiptID = lngReceiptID
    rs1!InvoiceNo = rs!InvoiceNo
    rs1!InvoiceDate = rs!InvoiceDate
    rs1!InvoiceAmount = rs!InvoiceAmount
    rs1.Update
    rs.MoveNext
    Loop

    Set rs = Nothing

End Sub

Thanks & Regards,
--
Abdul Shakeel

[Non-text portions of this message have been removed]