Results 1 to 4 of 4
  1. #1
    Join Date
    May 2006
    Location
    Alabama
    Posts
    37

    Unanswered: Problem with date portion of this code.

    The follow vba code fine except for the date portion, it should only run after July 1st of each year. So the date portion is apparently not coded correctly. Can anyone help?

    Private Sub Command0_Click()

    If IsNull(DLookup("Name", "Count_CreditDef", "")) = False And Date >= 7 / 1 / Format(Now(), "yyyy") Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Delnotice"
    DoCmd.OpenForm stDocName, , , stLinkCriteria




    End If
    End Sub

  2. #2
    Join Date
    May 2005
    Location
    Nevada, USA
    Posts
    2,888
    Provided Answers: 6
    This cross post has been answered elsewhere.
    Paul

  3. #3
    Join Date
    May 2006
    Location
    Alabama
    Posts
    37
    If you are referring to the following; you are in error. I resolved that problem this issue is different.
    http://www.vbforums.com/showthread.p...10#post2741410
    Last edited by mshelley1; 01-06-07 at 22:12.

  4. #4
    Join Date
    May 2005
    Location
    Nevada, USA
    Posts
    2,888
    Provided Answers: 6
    On another site where you posted the question.
    Paul

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •