Database Conversion

[TheSponge]

Hello there,

Im having trouble with an Access 97 Database, there is a button that creates a new Timesheet, it works fine, but when my Office XP user opens the database, it asks for which version to open the database up in, so I select office 97. But the button wont work?

Is there a setting I should change?

Thanks

 

[losthorizon]

Be sure to read Windows Support on the Win Update site, especially if you are "running multiple versions of Access" on the same network, or machine. You'll find there are numerous "Whitepapers" on the subject.

 

[TheSponge]

Could you please direct me to a particular site?

Many Thanks

 

[TheSponge]

It keeps saying "No Record Found" when I run the Report wizard....also, there are plenty of records....?

I need this Database to work urgently!!!

Thanks

 

[TheSponge]

Im only opening in access 97 mode, Im not converting at all. So the white papers on MSoft only refer to converting.

Any suggestions please?

Thanks

 

[hymn]

check your references make sure that the DAO 3.6 is set on the xp machine

if it is on a network could you not split the db to front end and back end and then convert the xp to xp

Hope this helps
Hymn

 

[TheSponge]

Thanks for your assistance, Yes I checked and DAO 3.6 is present,

I also tried to split the Database, but it still wouldnt work, I put the backend on the server where the access97 database is stored, but it still didnt work.

If I run the database on the server it works fine. I am really confused!!!

Thanks

 

[hymn]

Question
1. Do you have a stand alone 97db which you are trying to run on a stand alone xp2002 without converting.
or
2. Do you have a 97db on a network and one of pc runs xp2002

Hope this helps
Hymn

 

[TheSponge]

I have access97 on the server, which a OFFICEXP user is opening as a 97db (Without converting)

I just noticed something, the date is set too a US Date on the server, i.e mm/dd/yyyy when you open the database up in XP it is converting it too UK Date i.e dd/mm/yyyy.

I didnt create this database I just inherited it! so Ill post a little bit of the code that I think is causing problems:


Function MakeUSDate(x As Variant) As String
If Not IsDate(x) Then Exit Function
MakeUSDate = "#" & Month(x) & "/" & Day(x) & "/" & Year(x) & "#"
End Function


Any Ideas?

 

[TheSponge]

No scrap that, I just adjusted the regional settings on the PC to display US dates, No difference....Still doesnt work...

Im going Mad now....

 

[hymn]

as a quick check on the office xp go into the control panel and change the date settings and see if that makes any difference

what is the code on the button that does'nt work

Hope this helps
Hymn

 

[TheSponge]

The code is :

private Sub Commandnext_Click()
On Error GoTo Err_Commandnext_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim dbs As Database
Dim newdate As Date
Dim lastdate As Date
Dim filtername As String
Dim errmsg As String
Dim timecreated As Boolean
Dim timetype As String

Set dbs = CurrentDb()

lastdate = Me!lastdate
newdate = DateAdd("d", 1, lastdate)

timetype = "Production"
timecreated = timesheetcreate(newdate, timetype)

If timecreated = True Then
'open timesheet
stDocName = "Nextday Timesheet"
filtername = "nextday timesheet"

DoCmd.OpenForm stDocName, acFormDS, filtername, stLinkCriteria
End If

DoCmd.Close acForm, "Timecreate"


Exit_Commandnext_Click:
Exit Sub

Err_Commandnext_Click:
MsgBox Err.Description
Resume Exit_Commandnext_Click

End Sub


It is supposed to create a blank timesheet, which it normally does...

Thanks

 

[hymn]

try
Dim dbs As DAO.Database

but I cant see whats wrong with the code to me it still lokks as if there is a missing reference


Hope this helps
Hymn

 

[TheSponge]

No Luck Im afraid, I did try..

Thanks anyway

JAMES