Date is null ???

[onlylonely]

Hi Guy,

I've did lot of searching and i still not able to find out what's the issue.

Private Sub Form_Open(Cancel As Integer)

Dim LValue As String


LValue = Format(Date, "YYMM")


MsgBox (LValue)


'Me.txtscar = Nz(DMax(" SCAR ", "F1NCtbl", SCAR = LValue), 0) + 1
    Me.txtsequence = Format(Nz(DMax("Sequence", "F1NCtbl", "YYMM = '" & LValue & "'"), 0) + 1, "00")


Me.txtscar = "ANC" & LValue & Me.txtsequence


'Me.txtsequence = Nz(DMax("Sequence", "F1NCtbl", "YYMM = '" & LValue & "'"), 0) + 1


Me.Dirty = False


End Sub

[davegri]

Try
LValue = Format(Date(), "yymm")

[onlylonely]

I've solved it...

[onlylonely]

Try
LValue = Format(Date(), "yymm")

Hi Dave,

Thx for the info. But i've tried it. Its not working .

Private Sub Form_Load()

Dim LValue As String
Dim A As Date


A = Now()


'MsgBox (A)


LValue = Format(A, "YYMM")


'MsgBox (LValue)


'Me.txtscar = Nz(DMax(" SCAR ", "F1NCtbl", SCAR = LValue), 0) + 1
 Forms!F1NCform.txtsequence = Format(Nz(DMax("Sequence", "F1NCtbl", "YYMM = '" & LValue & "'"), 0) + 1, "00")


Forms!F1NCform.txtscar = "ANC" & LValue & Me.txtsequence


'Me.txtsequence = Nz(DMax("Sequence", "F1NCtbl", "YYMM = '" & LValue & "'"), 0) + 1


Me.Dirty = False


End Sub