Form Code Problem 1

[JohnTcolo]

I am trying to create a form that does the following on a new record:

Increment Field Value by 1
Repeat Date Field
Repeat Text Field

I can do the first 2 fine, but when I add the code for the text repeat, it stops working. Can someone look at the code below and tell me what I am doing wrong? Thanks in advance.

======================================================
Option Compare Database

Private Sub Tktdate_BeforeUpdate(Cancel As Integer)

Private Sub Tktnum_Enter()
intMax = DLookup("Max(tktnum)", "ticket detail&quot
intMax = intMax + 1
Me.Tktnum = intMax

End Sub

Private Sub Tktdate_AfterUpdate()
Me.Tktdate.DefaultValue = "#" & Me.Tktdate.Value & "#"
End Sub



Private Sub Form_Current()

Me.Product.DefaultValue = DLast("Product", "Ticket Detail&quot

End Sub

 

[Rolliee]

Try a

msgbox DLast("Product", "Ticket Detail&quot


and see what this brings back. Use MsgBox is debugging your code.

rollie@bwsys.net

 

[JohnTcolo]

Thanks for your help, I placed the line in the beforeupdate section and it returns the proper value. I get #Name? in the field on a new record if I use my original code line there.