Please keep in mind that I am just starting out using VB. What I am trying to accomplish is this:
I have a click event:
Private Sub cbtnApproverSendApproval_Click()
On Error GoTo Err_cbtnApproverSendApproval_Click
Dim stDocName As String
stDocName = "mcrEmailIncoming"
*****
DoCmd.RunMacro stDocName
Exit_cbtn etc. etc.
In the "*****" area I would like to update tblReceiveTemp.ATTReceiveStatus to "R"
WHERE
[Form]![frmApprover_MainMenuTabbed]![ATT App (1) Not App (2)] = 1
AND
[Form]![frmApprover_MainMenuTabbed]![cbfrmApproverName] = tblReceivingTemp.Level 1Approver
Note: the "ATT App (1) .." is an option group.
Can someone assist me in building this code?
I have a click event:
Private Sub cbtnApproverSendApproval_Click()
On Error GoTo Err_cbtnApproverSendApproval_Click
Dim stDocName As String
stDocName = "mcrEmailIncoming"
*****
DoCmd.RunMacro stDocName
Exit_cbtn etc. etc.
In the "*****" area I would like to update tblReceiveTemp.ATTReceiveStatus to "R"
WHERE
[Form]![frmApprover_MainMenuTabbed]![ATT App (1) Not App (2)] = 1
AND
[Form]![frmApprover_MainMenuTabbed]![cbfrmApproverName] = tblReceivingTemp.Level 1Approver
Note: the "ATT App (1) .." is an option group.
Can someone assist me in building this code?
