P
PHisaw
Hi,
I have an unbound form that I am using for a switchboard with a combo box
"Combo32". There is another combo box "Combo8" that holds tech names. I have
a list box that will populate jobs based on tech name in Combo8. To keep
users on direct path, I have entered code for list box to open reminder form
that they still have time open on another job before proceeding to job
clicked. Combo32 will allow user to type in job number, should they have
reason to go there, when job number is not listed in box for their name. I
failed to include this code for Combo32 and they can just enter any job
number and proceed with time without ending time on job already open.
I've put the following code for Combo32, but when I enter job number and
click it displays message box "Enter Parameter Value" CboTech with box for
entry.
Private Sub Combo32_AfterUpdate()
Dim strFilter As String
strFilter = "JobNumber=" & Me.Combo32
Me.PumpType = DLookup("PumpType", "tGeneralInfo", strFilter)
If IsNull(Forms!fWorkLogHiddenOpen!StopTime) Then
DoCmd.OpenForm "fWorkLogReminder", , , "[CboTech]='" &
Forms!fSwitchboard!Combo8 & "'"
Else
DoCmd.OpenForm "fGeneralInfo", , , strFilter
End If
End Sub
If anyone has any suggestions as to why this is still asking for tech name,
I would sure appreciate it. Just when ya think you have some small part of
coding figured out to work - it doesn't!!!! And as usual, it will probably
be something simple!!!
Thanks in advance,
Pam
I have an unbound form that I am using for a switchboard with a combo box
"Combo32". There is another combo box "Combo8" that holds tech names. I have
a list box that will populate jobs based on tech name in Combo8. To keep
users on direct path, I have entered code for list box to open reminder form
that they still have time open on another job before proceeding to job
clicked. Combo32 will allow user to type in job number, should they have
reason to go there, when job number is not listed in box for their name. I
failed to include this code for Combo32 and they can just enter any job
number and proceed with time without ending time on job already open.
I've put the following code for Combo32, but when I enter job number and
click it displays message box "Enter Parameter Value" CboTech with box for
entry.
Private Sub Combo32_AfterUpdate()
Dim strFilter As String
strFilter = "JobNumber=" & Me.Combo32
Me.PumpType = DLookup("PumpType", "tGeneralInfo", strFilter)
If IsNull(Forms!fWorkLogHiddenOpen!StopTime) Then
DoCmd.OpenForm "fWorkLogReminder", , , "[CboTech]='" &
Forms!fSwitchboard!Combo8 & "'"
Else
DoCmd.OpenForm "fGeneralInfo", , , strFilter
End If
End Sub
If anyone has any suggestions as to why this is still asking for tech name,
I would sure appreciate it. Just when ya think you have some small part of
coding figured out to work - it doesn't!!!! And as usual, it will probably
be something simple!!!
Thanks in advance,
Pam