SQL Update

[burrina]

Been trying to update main form table from subform table, no luck.
TCheckNo = Subform, Name = Payroll Check,, (frmMiscCheck) ,,, Linked by MiscChkID to EmployeeID
TCheckNoID PK
EmployeeID FK
CCheckNo = Number
cPrinted = yes/No
ChkPD = yes/no

tblMiscChecks = Main Form = frmMiscPayChecks
MiscChkID PK
EmpID FK = Number
ChkNo = Number
mPaid = yes/no
mPrinted = yes/no

Code: Select all

'NOT WORKING ?

  DoCmd.SetWarnings False         'Check Number
DoCmd.RunSQL "UPDATE tblMiscChecks SET tblMiscChecks.ChkNo = Me.ChkNo " & _
    "WHERE (((TCheckNo.EmployeeID)='" & Me.EmployeeID.Value & "'));"
DoCmd.SetWarnings True

[burrina]

Update, Changed relationship for main to sub = EmployeeID;EmployeeID and EmployeeID;EmployeeID

better relationship but still no luck with code.

[HansV]

Is EmployeeID a number field? If so, omit the single quotes (apostrophes).

[burrina]

Yes it is. Ok, will try. No difference

Code: Select all

DoCmd.RunSQL "UPDATE tblMiscPayChecks SET tblMiscPayChecks.ChkNo = '" & Me.CCheckNo.Value & "' " & _
    "WHERE (((TCheckNo.EmployeeID)=" & Me.EmployeeID.Value & "));"

[burrina]

Issue Resolved.
Thanks,