Run time error 94 invalid use of null

How to fix the Runtime Code 94 Invalid use of Null

Symptoms of Code 94 — Invalid use of Null

Runtime errors happen without warning. The error message can come up the screen anytime Windows is run. In fact, the error message or some other dialogue box can come up again and again if not addressed early on.

There may be instances of files deletion or new files appearing. Though this symptom is largely due to virus infection, it can be attributed as a symptom for runtime error, as virus infection is one of the causes for runtime error. User may also experience a sudden drop in internet connection speed, yet again, this is not always the case.

(For illustrative purposes only)

Causes of Invalid use of Null — Code 94

During software design, programmers code anticipating the occurrence of errors. However, there are no perfect designs, as errors can be expected even with the best program design. Glitches can happen during runtime if a certain error is not experienced and addressed during design and testing.

Runtime errors are generally caused by incompatible programs running at the same time. It may also occur because of memory problem, a bad graphics driver or virus infection. Whatever the case may be, the problem must be resolved immediately to avoid further problems. Here are ways to remedy the error.

Repair Methods

Runtime errors may be annoying and persistent, but it is not totally hopeless, repairs are available. Here are ways to do it.

If a repair method works for you, please click the upvote button to the left of the answer, this will let other users know which repair method is currently working the best.

Please note: Neither ErrorVault.com nor it’s writers claim responsibility for the results of the actions taken from employing any of the repair methods listed on this page — you complete these steps at your own risk.

• Remove From My Forums

Answers

• Hi bsunuwar,

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

  • Proposed as answer by
    _asgar
    Thursday, April 16, 2009 2:36 PM
  • Marked as answer by
    Xingwei Hu
    Wednesday, April 22, 2009 5:33 AM
  • Unmarked as answer by
    bsunuwar
    Friday, May 1, 2009 12:20 PM
  • Marked as answer by
    bsunuwar
    Friday, May 1, 2009 1:36 PM

All replies

• Hi bsunuwar,

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

  • Proposed as answer by
    _asgar
    Thursday, April 16, 2009 2:36 PM
  • Marked as answer by
    Xingwei Hu
    Wednesday, April 22, 2009 5:33 AM
  • Unmarked as answer by
    bsunuwar
    Friday, May 1, 2009 12:20 PM
  • Marked as answer by
    bsunuwar
    Friday, May 1, 2009 1:36 PM

• Hi Heslacher,

  Thank you very much for quick reply.

  ---

  bis

• Hi Heslacher,

  I have searched for the solution but can`t find ……………………can you help me………..coz I am very poor in scripting,coding…

  Can anybody help me PLZ…………

  ---

  bis

• Hi bsunuwar,

  like i have written you need to check the isNull 

  just try the following:

  if not IsNUll(rs(«dateprinted»)) then

          dateofcheque = Replace(Trim(rs(«dateprinted»)), «/», «.»)
          chequenumber = Trim(rs(«chqno»))
          details = Trim(rs(«description»))
          amount = Trim(rs(«totalpayable»))

                  datemonth = Mid(dateofcheque, 4, 2)
          dateday = Mid(dateofcheque, 1, 2)
          dateyear = Mid(dateofcheque, 9, 2)

                  dateofcheque = dateday + «.» + datemonth + «.» + dateyear

                  xl.Range(«A» + CStr(rowtouse)).Value = supplier
          xl.Range(«B» + CStr(rowtouse)).Value = dateofcheque
          xl.Range(«C» + CStr(rowtouse)).Value = chequenumber
          xl.Range(«D» + CStr(rowtouse)).Value = details
          xl.Range(«E» + CStr(rowtouse)).Value = amount

                  rowtouse = rowtouse + 1
  end if        

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

• Hi Heslacher,

  Thank you very much for quick reply. I tried as you said but dosen`t work. When I delete the error line it does work but with no date on it and overwrites on same cheque.

  Thank you

  ---

  bis

• Hi bsunuwar,

  try this:

  insert this before the «if not IsNUll(rs(«dateprinted»)) then»

  if not IsNUll(rs(«dateprinted»)) then

      msgbox rs(«dateprinted»).Type
      msgbox rs(«dateprinted»).Value
      msgbox len(rs(«dateprinted»).Value)

  end if

  Set a breakpoint after this if endif and post the values which are shown. You need to do this only once ( not the whole loop ).

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

• Hi Heslacher,

  It`s giving me same error » Run-time error `94` Invalid use of Null
  The problem started when I tried to change the excel file to different location.First it was giving me an error that file locaction is not correct and I fixed it and after that date error.The code was working perfectly fine but I needed to change the file location because of end of the financial year then my problem started.

  xl.Workbooks.Open («O:Management AccountsAccounts 01.04.09-31.03.10.xls»)

  Above line is the location of file which I changed

  dateofcheque = Replace(Trim(rs(«dateprinted»)), «/», «.»)

  Above line is next line of error

  Thank you

  ---

  bis

• Hi again,

  please put the code below in your application and call the sub

  Private Sub Test()

      Dim xl
      ‘Dim opendialog As New MSComDlg.CommonDialog
      Dim i
      Dim i2
      Dim cell
      Dim rowtouse
      Dim qry
      Dim rs
      Dim intRecCount
      Dim db As Database

      Set db = CurrentDb()

          ‘opendialog.Filter = «xls»
      ‘opendialog.Filename = «*.xls»
      ‘opendialog.ShowOpen

          Set xl = CreateObject(«Excel.Application»)
      ‘xl.Workbooks.Open (opendialog.File)
      xl.Workbooks.Open («O:Management AccountsAccounts 01.04.09-31.03.10.xls»)
      xl.Sheets(«Cheques Written»).Select

          For i = 3 To 16000
          cell = «C» + CStr(i)
          If xl.Range(cell).Value = «» Then
              rowtouse = i
              i = 15999
          End If
          i = i + 1
      Next

          Set qry = db.QueryDefs(«ChequestoPrint»)
      Set rs = qry.OpenRecordset(dbOpenDynaset, dbSeeChanges)
      rs.MoveLast
      intRecCount = rs.RecordCount
      rs.MoveFirst

          if not IsNUll(rs(«dateprinted»)) then

           msgbox rs(«dateprinted»).Type
           msgbox rs(«dateprinted»).Value
           msgbox len(rs(«dateprinted»).Value)

      end if

          xl.Visible = True

          Set xl = Nothing

      End Sub

  After you have run the sub, tell me in which line  of this codelines the error occurs:

  if not IsNUll(rs(«dateprinted»)) then

           msgbox rs(«dateprinted»).Type
           msgbox rs(«dateprinted»).Value
           msgbox len(rs(«dateprinted»).Value)

      end if

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

• Hi Heslacher,

                       Thank you for quick reply.Now its asking me for Macro name after I press f5 or run sub.

  Thank you

  ---

  bis

• Hi again,

  ok so it is vba.

  Copy the code in Private Sub Command16_Click() and paste it in a textfile ( for backup purpose ).

  Then replace this code with the one i have posted ( without the Private Sub Test()  line and also without the end sub)

  ---

  Mark the thread as answered if the answer helps you. This helps others who have the same problem !

• Hi Heslacher,

  I think I made mistake and was not able to write it as you said.Is this what you wanted me to write.I mean msgbox line

  Private Sub Command16_Click()

      Dim xl
      ‘Dim opendialog As New MSComDlg.CommonDialog
      Dim i
      Dim i2
      Dim cell
      Dim rowtouse
      Dim qry
      Dim rs
      Dim intRecCount
      Dim db As Database

      Set db = CurrentDb()

          ‘opendialog.Filter = «xls»
      ‘opendialog.Filename = «*.xls»
      ‘opendialog.ShowOpen

          Set xl = CreateObject(«Excel.Application»)
      ‘xl.Workbooks.Open (opendialog.File)
      xl.Workbooks.Open («O:Management AccountsAccounts 01.04.09-31.03.10.xls»)
      xl.Sheets(«Cheques Written»).Select

          For i = 3 To 16000
          cell = «C» + CStr(i)
          If xl.Range(cell).Value = «» Then
              rowtouse = i
              i = 15999
          End If
          i = i + 1
      Next

          Set qry = db.QueryDefs(«ChequestoPrint»)
      Set rs = qry.OpenRecordset(dbOpenDynaset, dbSeeChanges)
      rs.MoveLast
      intRecCount = rs.RecordCount
      rs.MoveFirst

          If Not IsNull(rs(«dateprinted»)) Then

          MsgBox rs(«dateprinted»).Type
      MsgBox rs(«dateprinted»).Value
      MsgBox Len(rs(«dateprinted»).Value)
      End If

          xl.Visible = True

          Set xl = Nothing

          For i2 = 1 To intRecCount

              Dim supplier
          Dim dateofcheque
          Dim chequenumber
          Dim details
          Dim amount

                  supplier = Trim(rs(«Name»))
          dateofcheque = Replace(Trim(rs(«dateprinted»)), «/», «.»)
          chequenumber = Trim(rs(«chqno»))
          details = Trim(rs(«description»))
          amount = Trim(rs(«totalpayable»))

                  datemonth = Mid(dateofcheque, 4, 2)
          dateday = Mid(dateofcheque, 1, 2)
          dateyear = Mid(dateofcheque, 9, 2)

                  dateofcheque = dateday + «.» + datemonth + «.» + dateyear

                  xl.Range(«A» + CStr(rowtouse)).Value = supplier
          xl.Range(«B» + CStr(rowtouse)).Value = dateofcheque
          xl.Range(«C» + CStr(rowtouse)).Value = chequenumber
          xl.Range(«D» + CStr(rowtouse)).Value = details
          xl.Range(«E» + CStr(rowtouse)).Value = amount

                  rowtouse = rowtouse + 1

                  rs.MoveNext

          Next

          xl.Visible = True

          Set xl = Nothing

      End Sub

  ---

  bis

• Hi,

  I am still having problem…………

  ---

  bis

• This thread was already marked, if you still have the same problem, you can unmarked or start new thread. BTW, dont use your name as topic, your question should be the topic
  kaymaf

  ---

  I hope this helps, if that is what you want, just mark it as answer so that we can move on

  • Marked as answer by
    bsunuwar
    Friday, May 1, 2009 12:37 PM
  • Unmarked as answer by
    bsunuwar
    Friday, May 1, 2009 1:25 PM

• Hi Kaymaf,

  I have unmarked and changed the topic can u help me plz………………….I have zero knowledge in coding,scripting,programming…….

  Thank you

  ---

  bis

• Hi Kaymaf,

                As I mentioned above the problem started after I changed the filename of excel spreadsheet to write in the new file.When I run my access form and try to update the some new cheques the error comes up with run time error 94.After pressing debug it directly takes me to yellow highlighted line    dateofcheque = Replace(Trim(rs(«dateprinted»)) , «/», «.»)

  The only difference when i delete the error line it wont write date of cheque relese and overwrites in same row in the spreadsheet.

  Thank you

  ---

  bis

• Unmarked me as the answer, because i didnt gave any answer. Your question is either VB6 or VBA.  For VBA forum , try this http://social.msdn.microsoft.com/forums/en-US/isvvba/threads/  and for VB6 , Heslacher already gave you the link. So you can post your question in either VBA or VB6 and close this thread. But mark Heslacher post as the answer because, he or she is the one that help you.

  Again, unmarked my post as the answer

  kaymaf

  ---

  I hope this helps, if that is what you want, just mark it as answer so that we can move on