P
Pam
Using the following code, can someone please tell me why I get the msg
"Can't Assign Value to This Object". It was working fine and we had a
glitch run thru the db's that are linked together and then I started getting
the above msg. Help is greatly appreciated as I spent quite a bit of time
with postings to get it to work in the first place. Thanks Pam
Private Sub Combo32_AfterUpdate()
Dim strFilter As String
strFilter = "JobNumber=" & Me.Combo32
Me.PumpType = DLookup("PumpType", "tGeneralInfo", strFilter)
If Me.PumpType = "NIKKISO/MANUFACTURING" Then
DoCmd.OpenForm "fGeneralInfoNikkiso", , , strFilter
Else
DoCmd.OpenForm "fGeneralInfo", , , strFilter
End If
"Can't Assign Value to This Object". It was working fine and we had a
glitch run thru the db's that are linked together and then I started getting
the above msg. Help is greatly appreciated as I spent quite a bit of time
with postings to get it to work in the first place. Thanks Pam
Private Sub Combo32_AfterUpdate()
Dim strFilter As String
strFilter = "JobNumber=" & Me.Combo32
Me.PumpType = DLookup("PumpType", "tGeneralInfo", strFilter)
If Me.PumpType = "NIKKISO/MANUFACTURING" Then
DoCmd.OpenForm "fGeneralInfoNikkiso", , , strFilter
Else
DoCmd.OpenForm "fGeneralInfo", , , strFilter
End If