Why is this complicated code not working - CHALLENGE HERE!

[slay0r]

Hi Guys,

One of the bosses here at my work has gone away and left some databases in my care, unfortunately during an update one of them has fallen over and it happens to be the one I know absolutely nothing about!

Below is the code that's fallen over, I don't know if you'll be able to do anything with it but I'd greatly appreciate it if someone could take a look!


Function autoexec()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
'On Error GoTo autoexec_Err<o></o>
<o> </o>
DoCmd.SetWarnings False<o></o>
Const strSharedPath = "S:\ACCOUNTS\Common Files\"<o></o>
Dim fs, f, fc, fd(1), f1(1) As Object, fn As String, xyz, ARs, fa, intX As Integer, srtARName As String<o></o>
Set fs = CreateObject("Scripting.FileSystemObject")<o></o>
'Set f = fs.GetFolder("S:\ACCOUNTS\Common Files")<o></o>
'Set fc = f.Files<o></o>
'Set f1 = fc("Current AR Report Alianca.XLS")<o></o>
ARs = Array("Current AR Report Alianca.XLS", "Current AR Report HSUK.XLS")<o></o>
'Set fa = Array(fc(ARs(0)), fc(ARs(1)))<o></o>
For intX = 0 To 1<o></o>
srtARName = ARs(intX)<o></o>
Set f1(intX) = fs.getfile(strSharedPath & ARs(intX))<o></o>
fd(intX) = f1(intX).Datelastmodified<o></o>
<o> </o>
Next intX<o></o>
xyz = DMax("[date]", "[dateupdated]")<o></o>
' MsgBox "Ali " & fd(0) & " *** HSUK " & fd(1) & " *** " & xyz<o></o>
If fd(0) > xyz Or fd(1) > xyz Then<o></o>
<o></o>
Call updatedb<o></o>
Call massupdate<o></o>
End If<o></o>
<o> </o>
DoCmd.OpenForm "frontend", acNormal, "", "", , acNormal<o></o>
<o></o>
<o> </o>
autoexec_Exit:<o></o>
Exit Function<o></o>
<o> </o>
autoexec_Err:<o></o>
MsgBox Error$<o></o>
Resume Next<o></o>
<o> </o>
End Function


The bit in bold is the bit that's fallen over. Does anyone have any suggestions?!

 

[slay0r]

Won't let me edit my post for some reason..

Cross posted here:

http://www.excelforum.com/access-pr...-a-clue-big-challenge-if-anyone-wants-it.html

http://www.ozgrid.com/forum/showthread.php?t=156249&p=566211#post566211

 

[dk]

What is the exact error message?

 

[slay0r]

3343 sorry! Unrecognised database format!

 

[slay0r]

I've tried compressing and repairing the database and I've tried rolling it back to yesterday at 11am - We keep 24 hour backups. This hasn't corrected the error so I'm quite stumped from my side!

 

[xenou]

xyz = DMax("[date]", "[dateupdated]")

Why do you believe this line is the problem?

I'd be more inclined to suspect something in these procedures:
Call updatedb
Call massupdate

I would suggest commenting out error handling to hopefully pinpoint where the error really occurs.
(and I would also make sure your backups are safe as you may need to restore again).

 

[slay0r]

That was just the line in yellow, thought that meant that's where it fell over!

We've got an external company that backs up all our files every 30 mins and stores them on their site so I'm requesting them to restore it back to it's state on monday when it definitely worked! Hopefully that will resolve it because the mass update etc was written well before I joined and I have no idea how it all works! I would pass on the database for people to have a look at but it's confidential!

 

[xenou]

What's in table [DateUpdated]? Is it working okay when you just query for the max of date? Can you use the formula in a normal form (such as testing it in a textbox?).

Date is btw a bad name for a field. Wierd problems happen when you use reserved words as identifiers. Maybe it's too late.

I would also step through the code (use a copy - if you can separate the DB and all its linked tables in a test environment) to try to understand it better, and when you do this you can test some of the conditions in the database to find out more about what's happening.

 

[slay0r]

Thanks Xenou! Very much appreciated.

I'll keep that date thing in mind, didn't realise that could cause issues.

I'll test the other things this afternoon, would be interesting to see the date of max to see if it's there it's wrong!

Thanks very much for the reply, will update on progress later!