Need Assistance Checking the Untraced Error in my VBA and SQL Codes

[Misfer]

Greetings
I would appreciate your assistance to advise me which error I did in encoding SQL and VBA codes in MS Access (20)10 append table and Form.

I have two tables DataEntry and GeneralJournal. I created SQL criteria in an append query with code copied below to update Credit field in table GeneralJournal with vale of field TransactionValue if value of field TransactionTypeCode in DataEntry is 1100.

This code turns no error but zero record can be copied

INSERT INTO GeneralJournal ( Credit )
SELECT      DataEntry.TransactionValue
FROM        DataEntry
WHERE       DataEntry.TransactionTypeCode = 1100;

Then I tried to initiate a form to do the same using Afterupdate in the field TransactionValue.

Also this turns the error copied below.

Private Sub TransactionValue_AfterUpdate()
  If DataEntry.TransactionTypeCode = 1100 Then
    GeneralJournal.Credit = DataEntry.TransactionValue
  Else
    GeneralJournal.Credit = 0
  End If
End Sub

Error:
Problem in connecting MS Access with OLE server or ActiveX control

Please Assist to have it fixed.

Thanks

[NeoPa]

Your APPEND query seems fine - syntactically at least. If that's not behaving as you expect then something entirely unrelated to anything you've told us is the cause. Usually you get more information from running the query manually as part of a QueryDef than running it from code.

The code is not even a starting point. Sorry, but you cannot simply reference table fields in VBA as if they were an object. Here's something for that (Access VBA DAO Recordset Loop Using Two Recordsets), but I suspect that's not where your focus needs to be just yet.

TBH, I suspect you need to focus on the SQL side. At least first.