Recent content by yang0837
-
Y
Reset Incrementing Number
Never mind! I figured it out. :) Public Function MakeNxtInvVal() As Long Dim varCurMaxInv If IsNull(DMax("InvVal", "tblInvoice")) Then MakeNxtInvVal = 1 Else MakeNxtInvVal = Format(Nz(DMax("InvVal", "tblInvoice", "InvDate=Date()"), 0) + 1) End If End Function- yang0837
- Post #2
- Forum: Modules & VBA
-
Y
Reset Incrementing Number
I need help tweaking the following code to reset the incremental numbering part of my invoice number. It works wonderfully; however, due to the high number of invoices created, it needs to be reset daily. The invoice format is yyyymmdd-0000, the last four digits are the incremented numbers...- yang0837
- Thread
- Replies: 1
- Forum: Modules & VBA
-
Y
How Can I Change these If Statements into a Case Statement?
This worked perfectly! I added the end quotes after the first case, but sooo awesome! Thank you both!!! -
Y
How Can I Change these If Statements into a Case Statement?
Sorry if this sounds ...dumb :o, but I need help changing these if statements into a case statement. Private Sub Undo_LostFocus() If CurrentProject.AllForms("frmPFS_PtRefund").IsLoaded = True Then Forms![frmPFS_PtRefund]![btnAddNew].SetFocus Else If...