D
Dave Elliott
In my code below I use it to enter a check number for a payroll check.
It then marks the employee as paid and inputs the check number and goes to
the first record.
You wind up having to click in this field for each record that you want a
check number for.
My goal is too on click have it input all the check numbers to the records
using the counter code.
Any suggestions on how I can do this ?
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FSubHours"
If IsNull(Me.CheckDate) Then
Me.CheckDate = Date
End If
If IsNull(Me.[CheckNo]) Then
Me.[CheckNo] = Next_Custom_Counter
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
--
---------------------------------------------------------------------
This email and any files transmitted with it from Dave Elliott are
confidential and intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the
sender.
All Mail is pre-scanned with Norton Antivirus 2004 for your protection.
http://[email protected]
It then marks the employee as paid and inputs the check number and goes to
the first record.
You wind up having to click in this field for each record that you want a
check number for.
My goal is too on click have it input all the check numbers to the records
using the counter code.
Any suggestions on how I can do this ?
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FSubHours"
If IsNull(Me.CheckDate) Then
Me.CheckDate = Date
End If
If IsNull(Me.[CheckNo]) Then
Me.[CheckNo] = Next_Custom_Counter
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
--
---------------------------------------------------------------------
This email and any files transmitted with it from Dave Elliott are
confidential and intended solely for the
use of the individual or entity to whom they are addressed.
If you have received this email in error please notify the
sender.
All Mail is pre-scanned with Norton Antivirus 2004 for your protection.
http://[email protected]