smtazulislam
Member
- Local time
- Today, 15:27
- Joined
- Mar 27, 2020
- Messages
- 808
Hi, any help will appreciate.
I facing a little problem in append query make duplicate each hit in the button.
My appending query Like:
Code :
I facing a little problem in append query make duplicate each hit in the button.
My appending query Like:
Code:
INSERT INTO tblTransactionWorkers ( EmployeeID, TransferDate, CompID, BranchID, BranchTypeID, WorkCategoryID, LeaveDate, Status )
SELECT tblTransactionWorkersIN.EmployeeID, tblTransactionWorkersIN.TransferDate, tblTransactionWorkersIN.CompID, tblTransactionWorkersIN.BranchID, tblTransactionWorkersIN.BranchTypeID, tblTransactionWorkersIN.WorkCategoryID, tblTransactionWorkersOUT.LeaveDate, IIF(NOT IsNull(tblTransactionWorkersOUT.LeaveDate), 'Transfer', 'Current') AS Status
FROM tblTransactionWorkersIN LEFT JOIN tblTransactionWorkersOUT ON tblTransactionWorkersIN.EmployeeID = tblTransactionWorkersOUT.EmployeeID;
Code :
Code:
Private Sub btnAppendData_Click()
Dim lngPrevCount As Long
Dim lngCurrCount As Long
On Error GoTo exit_sub
DoCmd.SetWarnings False
'count how many records before appending
lngPrevCount = DCount("1", "tblTransactionWorkers")
lngCurrCount = DCount("1", "tblTransactionWorkers")
DoCmd.OpenQuery "qryTransactionWorkerDataAppend", acViewNormal, acEdit
If lngPrevCount <> lngCurrCount Then
MsgBox "Your append Record has been successfully saved." & vbCrLf & _
"Appended " & lngCurrCount - lngPrevCount & " record(s)."
Else
MsgBox "No record were appended." & vbCrLf & _
"All employees for the period: " & _
"already in tblTransactionWorkers."
End If
DoCmd.SetWarnings True
exit_sub:
Me.Refresh
End Sub