ACC95: DateDiff, DateAdd, or DatePart Causes IPF in VBA232.DLL

Last reviewed: May 29, 1997
Article ID: Q169156
The information in this article applies to:
  • Microsoft Access 7.0

SYMPTOMS

Moderate: Requires basic macro, coding, and interoperability skills.

When you pass an uninitialized string variable to the interval argument of the DateAdd(), DatePart(), or DateDiff() functions in Microsoft Access 7.0, you receive the following error message:

   MSACCESS caused an invalid page fault in module VBA232.DLL

RESOLUTION

Always pass a valid interval value to the DateAdd(), DatePart(), and DateDiff() functions. To be sure you pass a valid interval value, you can test for the value of the variable before you invoke the function, as in the following example:

   Sub IntervalTest()
      Dim x as String
      If x <> "" Then
         Debug.Print DateAdd(x,1,Date)
      Else
         MsgBox "The interval argument is invalid."
      End If
   End Sub

Another way to prevent the page fault error is to initialize the variable as a zero-length string as soon as you declare it. For example:

   Sub IntervalTest()
      Dim x as String
      x = ""
      ' Add other code here that sets the value of x
      Debug.Print DateAdd(x,1,Date)
   End Sub

Then, if you do not set the value of the variable to a valid interval before you pass it to the DateAdd(), DatePart(), or DateDiff() function, you receive the following error, but Microsoft Access does not terminate:

   Run-time error '5':
   Invalid procedure call

STATUS

Microsoft has confirmed this to be a problem in Microsoft Access 7.0. This behavior does not occur in Microsoft Access 2.0 or 97.

MORE INFORMATION

Steps to Reproduce Problem

WARNING: Following these steps will cause a page fault on your computer. Make sure you save and close any open work on your computer before following these steps.

  1. Start Microsoft Access 7.0 and open the sample database Northwind.mdb.

  2. Create a module and type the following procedure:

          Sub Test()
             Dim x as String
             Debug.Print DateAdd(x,1,Date)
          End Sub
    
    

  3. To test this procedure, type the following line in the Debug window, and then press ENTER.

           Test
    

    Note that you receive the error message.

    NOTE: You may receive an "Out of Stack Space" run-time error, instead of a page fault, the first time you run this procedure. However, subsequent execution of the procedure results in a page fault error.

REFERENCES

For more information about DateAdd(), DatePart(), or DateDiff() functions, ask the Microsoft Access 7.0 Answer Wizard for "date functions."


Keywords : kberrmsg kbprg MdlGnrl
Version : 7.0
Platform : WINDOWS
Hardware : x86
Issue type : kbbug
Resolution Type : kbcode


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: May 29, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.