By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,962 Members | 1,997 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,962 IT Pros & Developers. It's quick & easy.

Access 97 on win xp pro

100+
P: 110
hi all

I have a problem...I have this application whose switchboard leads to a password form. The password form leads to another form

Now this sequence works fine on all pcs (win 2k and xp pro)...there is this one laptop thought (my boss's unfortunately) with windows xp pro sp2 that crashes every time you hit 'okay' on the password form. Instead of opening the next form, its crashes and the windows 'Send Error Report' msg cropped up.

I am stumped...dont know whats causing this crash....

any ideas?
Mar 12 '07 #1
Share this Question
Share on Google+
5 Replies


MMcCarthy
Expert Mod 10K+
P: 14,534
Is your boss also using Access '97. Also in the VBA window under Tools - Referenced check the list of ticked libraries and see if the versions are the same as on the other PC's or if any are marked as missing.

Mary
Mar 13 '07 #2

100+
P: 110
yeah, hes using Access 97. Also, it only crashes on the open and load event of this one form...everything else including all other code work just fine
Mar 13 '07 #3

MMcCarthy
Expert Mod 10K+
P: 14,534
yeah, hes using Access 97. Also, it only crashes on the open and load event of this one form...everything else including all other code work just fine
Did you check the libraries?

What is the Form Open and Form Load event code that is running?
Mar 13 '07 #4

100+
P: 110
yes, wat i dont understand is that out of all the access basd applications run on that laptop, this error occours only on this one form...

here is hte code:

open event:

Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Open(Cancel As Integer)
  2.  
  3.     'NewPage     'Opens NewPage function
  4. Dim EName As Integer
  5. Dim intMonth As Integer
  6. Dim intYear As Integer
  7.  
  8.     If intRecord = 1 Then
  9.  
  10.         'Calendar.value = DateToday  'sets the calendar value to todays date
  11.         Calendar.value = Now()  'sets the calendar value to todays date
  12.         Calendar.Visible = True     'makes the calendar visible
  13.         If Not JobNumber = 0 Then
  14.             List0_AfterUpdate       'goes to List0_AfterUpdate if there is a value for List0
  15.         End If
  16.     Else
  17.         DoCmd.GoToRecord , , acNewRec   'opens new record to the current days date
  18.         Combo3 = intEmpID
  19. '        txtDateToday.value = Now()
  20.         Calendar.value = txtDateToday
  21.         Calendar.Visible = True
  22.         intMonth = Format(Now(), "mm") 'figures out what work year it is currently in(Work Year December 1-November 30)
  23.         intYear = Format(Now(), "yyyy")
  24.  
  25. '        If intMonth = 12 Then
  26. '            txtWorkYear = intYear + 1
  27. '        Else
  28. '            txtWorkYear = intYear
  29. '        End If
  30.     End If
  31. End Sub
load event:

Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Load()
  2. If Not IsNull(DateToday) Then
  3.     'Calendar.value = DateToday  'sets the calendar date to the date of the field DateToday
  4.     Calendar.value = Now()  'sets the calendar date to the date of the field DateToday
  5. End If
Mar 14 '07 #5

MMcCarthy
Expert Mod 10K+
P: 14,534
yes, wat i dont understand is that out of all the access basd applications run on that laptop, this error occours only on this one form...

here is hte code:

open event:

Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Open(Cancel As Integer)
  2.  
  3.     'NewPage     'Opens NewPage function
  4. Dim EName As Integer
  5. Dim intMonth As Integer
  6. Dim intYear As Integer
  7.  
  8.     If intRecord = 1 Then
  9.  
  10.         'Calendar.value = DateToday  'sets the calendar value to todays date
  11.         Calendar.value = Now()  'sets the calendar value to todays date
  12.         Calendar.Visible = True     'makes the calendar visible
  13.         If Not JobNumber = 0 Then
  14.             List0_AfterUpdate       'goes to List0_AfterUpdate if there is a value for List0
  15.         End If
  16.     Else
  17.         DoCmd.GoToRecord , , acNewRec   'opens new record to the current days date
  18.         Combo3 = intEmpID
  19. '        txtDateToday.value = Now()
  20.         Calendar.value = txtDateToday
  21.         Calendar.Visible = True
  22.         intMonth = Format(Now(), "mm") 'figures out what work year it is currently in(Work Year December 1-November 30)
  23.         intYear = Format(Now(), "yyyy")
  24.  
  25. '        If intMonth = 12 Then
  26. '            txtWorkYear = intYear + 1
  27. '        Else
  28. '            txtWorkYear = intYear
  29. '        End If
  30.     End If
  31. End Sub
load event:

Expand|Select|Wrap|Line Numbers
  1. Private Sub Form_Load()
  2. If Not IsNull(DateToday) Then
  3.     'Calendar.value = DateToday  'sets the calendar date to the date of the field DateToday
  4.     Calendar.value = Now()  'sets the calendar date to the date of the field DateToday
  5. End If
At a guess I would say the problem here is the version of the Calendar library ticked in the references doesn't match the ActiveX object on the form. I've had problems with calendar versions before. Check it out?

Only other think I can think of is there is a problem with the system date on the laptop.

Mary
Mar 14 '07 #6

Post your reply

Sign in to post your reply or Sign up for a free account.