Hello all.
Briefly described this is the problem I am having. I have a form, with
a related subform. On the subform I want to enter the expiration date
based on criteria in the main form. I have tried placing code in the
on exit event and the after update event with no luck. Please take a
look at the code and let me know what you think. Oh yeah..... I can
get this to work without using the main forms criteria ........ I
tried doing a Dlookup for this information dimming it as a variant etc
etc but no luck that route either.
On Error GoTo trapme94
Dim curcity As Long
Dim curcounty As Long
Dim appdt As Long
Dim juris As String
curcity = Forms!Permittools!Text256
curcounty = Forms!Permittools!Text258
appdt = Forms![tblPermitItem Subform]![Approval Date]
juris = Forms!Permittools!Jurisdiction & "'"
If juris Like "City" Then
Forms![tblPermitItem Subform]![Expiration Date] = appdt + curcity
Else
If juris Like "County" Then
Forms![tblPermitItem Subform]![Expiration Date] = appdt + curcounty
End If
End If
ExitExpDate:
Exit Sub
trapme94:
If Err.Number = 94 Then
Err = 0
Else
Resume ExitExpDate
End If
Thanks in advance!