.edit NOT Working.. Any idea why?

[Kaloyanides]

The following works on every computer except one. I re-did all of the references...? Any idea why?

Compile Error Fires here: rs.Edit

Dim rs As Recordset
Dim N As String
Dim D As Date
Dim S As Long
Dim M As Long

Set rs = CurrentDb.OpenRecordset("tblInvoiceLayout", dbOpenDynaset, dbDenyRead + dbDenyWrite, dbPessimistic)
N = Nz(rs![InvoiceNumberPrefix], "") & rs![NextInvoiceNumber] & Nz(rs![InvoiceNumberSuffix], "")
Me![InvoiceHeaderNumeric] = rs![NextInvoiceNumber]
rs.Edit
rs![NextInvoiceNumber] = rs![NextInvoiceNumber] + 1
rs.Update
Me![InvoiceHeaderNum] = N

DoCmd.RunCommand acCmdSaveRecord

Set rs = CurrentDb.OpenRecordset("tblPayments", dbOpenDynaset)
rs.AddNew
rs![PaymentInvoiceHeader] = Me![InvoiceHeaderNum]
rs![PaymentAmount] = Me![InvoiceHeaderTotalAmount]

S = TERMS.Column(2)


If IsNumeric(S) Then
rs![PaymentDueDate] = DateAdd("d", CDbl(S), Nz(Me![InvoiceHeaderDate], DATE))
ElseIf S = "CASH" Then
rs![PaymentDueDate] = Nz(Me![InvoiceHeaderDate], DATE)
rs![PaymentPaidDate] = Nz(Me![InvoiceHeaderDate], DATE)
ElseIf Left(S, 3) = "EOM" And IsNumeric(Mid(S, 4)) Then
D = DateAdd("m", CDbl(Mid(S, 4)) + 1, Nz(Me![InvoiceHeaderDate], DATE))
D = CDate("01/" & Format(D, "mm/yyyy")) - 1
rs![PaymentDueDate] = D
Else


rs![PaymentDueDate] = DATE
End If
rs.Update

[June7]

Please post code between CODE tags to retain indentation and readability.

What happens - error message, wrong result, nothing?

[Kaloyanides]

After working on this for many hours, I figured it out 2min after posting to this forum. The issue had to do with the order of the references. I prioritized them and it appears to be working. Thx for attempting to help. Appreciate it.

[Micron]

That's likely because your recordset isn't defined as DAO or ADO so Access will pick the first library reference that applies. I'm suggesting ADO was listed first. Better to use
Dim rs As DAO.Recordset if that's the type you're creating.