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