access 2003 na windows 7 mašini problem

Pozdrav svima!

Nemam bas puno iskustva sa MS Accessom a zadeverao sam se oko nekog problema sa bazom koju nisam ja pravio i nadam se da mi moze neko pomoci..
Naime, radi se o tome da ja baza nekad davno rađena u Access 2003 i bila postavljena na XP masini, sve je bilo ok dok nisam promijenio racunar sa Windows 7 OS-om i probao da pokrenem neki izvještaj koji nece da se otvori...




Prvo sam mislio da je do Office-a, ali nije jer izvještaj moze da se otvori na bilo kojoj drugoj masini na kojoj je instaliran XP, sam na Windows 7 ne moze..
Vjerovatno je neki update potreban ali ne mogu da skontam..

Jeli neko imao iskustva sa tim?

Moguće je vrlo lako da aplikacija koristi neku dodatnu Active X Control-u, koju treba naknadno dodati na računar. Inače kompatibilnost Windows 7 i Office 2003 je OK. Bar ja nisam imao problema do sada. Probaj da stupiš u vezu sa vlasnikom aplikacije.
Mada nije na odmet da proveriš šta se dešava na događaj OnOpen reporta ili forme koja ga pokreće.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Vlasnik aplikacije je preko sedam mora.. ne moze niko doci do njega, a prilicno davno je ta baza i kreirana..
Ima 16 razlicitih izvjestaja svaki od njih kad kliknem izbaci istu poruku..
Interesantno je da na XP radi a na Win7 ne radi.. vidim da je radjeno nesta u visual basic-u al samo povrsno razumim u to.. pa sam sa neta skinuo neki visual basic 2010 express misleci da ce povuci neki plugin, al ne radi to bas kako sam mislio :)

Evo coda koji sma on click nasao:

Option Compare Database

Private Sub Iz_Click()
On Error GoTo Err_Iz_Click

Dim stDocName As String

stDocName = "Izlaz"
DoCmd.OpenReport stDocName, acPreview

Exit_Iz_Click:
Exit Sub

Err_Iz_Click:
MsgBox Err.Description
Resume Exit_Iz_Click

End Sub
Private Sub St_Click()
On Error GoTo Err_St_Click

Dim stDocName As String

stDocName = "Stanje"
DoCmd.OpenReport stDocName, acPreview

Exit_St_Click:
Exit Sub

Err_St_Click:
MsgBox Err.Description
Resume Exit_St_Click

End Sub
Private Sub Ul_Click()
On Error GoTo Err_Ul_Click

Dim stDocName As String

stDocName = "Ulaz"
DoCmd.OpenReport stDocName, acPreview

Exit_Ul_Click:
Exit Sub

Err_Ul_Click:
MsgBox Err.Description
Resume Exit_Ul_Click

End Sub
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

Dim stDocName As String

stDocName = "Hemikalije_Kolicina"
DoCmd.OpenReport stDocName, acPreview

Exit_Command3_Click:
Exit Sub

Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click

End Sub
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

Dim stDocName As String

stDocName = "Stanje_Q_Hem"
DoCmd.OpenReport stDocName, acPreview

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click

Dim stDocName As String

stDocName = "Stanje_Table"
DoCmd.OpenReport stDocName, acPreview

Exit_Command5_Click:
Exit Sub

Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click

End Sub
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

Dim stDocName As String

stDocName = "Hemikalije_Potrosnja_Datum"
DoCmd.OpenReport stDocName, acPreview

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click

End Sub
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

Dim stDocName As String

stDocName = "Hemikalije_Potrosnja_Datum_Upitnik"
DoCmd.OpenReport stDocName, acPreview

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

End Sub
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click

Dim stDocName As String

stDocName = "Hemikalije_Potrosnja_Mjesec"
DoCmd.OpenReport stDocName, acPreview

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click

Dim stDocName As String

stDocName = "Hemikalije_Grafikon_Potrosnja"
DoCmd.OpenReport stDocName, acPreview

Exit_Command9_Click:
Exit Sub

Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click

End Sub
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click

Dim stDocName As String

stDocName = "Stanje_Table"
DoCmd.OpenReport stDocName, acPreview

Exit_Command10_Click:
Exit Sub

Err_Command10_Click:
MsgBox Err.Description
Resume Exit_Command10_Click

End Sub
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click

Dim stDocName As String

stDocName = "Stanje_F_Table"
DoCmd.OpenReport stDocName, acPreview

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub
Private Sub Potrošnja_Click()
On Error GoTo Err_Potrošnja_Click

Dim stDocName As String

stDocName = "Izvjestaj_Datum_Potrosnja_Hemikalija"
DoCmd.OpenReport stDocName, acPreview

Exit_Potrošnja_Click:
Exit Sub

Err_Potrošnja_Click:
MsgBox Err.Description
Resume Exit_Potrošnja_Click

End Sub
Private Sub Šifra_upitnik_Click()
On Error GoTo Err_Šifra_upitnik_Click

Dim stDocName As String

stDocName = "Sifra_Upitnik"
DoCmd.OpenReport stDocName, acPreview

Exit_Šifra_upitnik_Click:
Exit Sub

Err_Šifra_upitnik_Click:
MsgBox Err.Description
Resume Exit_Šifra_upitnik_Click

End Sub
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click

Dim stDocName As String

stDocName = "LOKACIJA_Hemikalije_Sifra"
DoCmd.OpenReport stDocName, acPreview

Exit_Command14_Click:
Exit Sub

Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click

End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click

Dim stDocName As String

stDocName = "Ulaz Rok"
DoCmd.OpenReport stDocName, acPreview

Exit_Command15_Click:
Exit Sub

Err_Command15_Click:
MsgBox Err.Description
Resume Exit_Command15_Click

End Sub
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

Dim stDocName As String

stDocName = "Inventurna_lista"
DoCmd.OpenReport stDocName, acPreview

Exit_Command16_Click:
Exit Sub

Err_Command16_Click:
MsgBox Err.Description
Resume Exit_Command16_Click

End Sub
Private Sub Command17_Click()
On Error GoTo Err_Command17_Click

Dim stDocName As String

stDocName = "MinimalnoStanjeIRazlika"
DoCmd.OpenReport stDocName, acPreview

Exit_Command17_Click:
Exit Sub

Err_Command17_Click:
MsgBox Err.Description
Resume Exit_Command17_Click

End Sub
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click

Dim stDocName As String

stDocName = "Hemikalije_Lokacija"
DoCmd.OpenReport stDocName, acPreview

Exit_Command18_Click:
Exit Sub

Err_Command18_Click:
MsgBox Err.Description
Resume Exit_Command18_Click

End Sub
Private Sub Čistoča_upitnik_Click()
On Error GoTo Err_Čistoča_upitnik_Click

Dim stDocName As String

stDocName = "Cistoca_Upitnik"
DoCmd.OpenReport stDocName, acPreview

Exit_Čistoča_upitnik_Click:
Exit Sub

Err_Čistoča_upitnik_Click:
MsgBox Err.Description
Resume Exit_Čistoča_upitnik_Click

End Sub






Hvala vam u svakom slucaju

Probaj da u proceduri ispraviš naše znake kod reči čistoča, šifra i potrošnja. Iskompajliraj i probaj ponovo. Ako ne uspe zakači program, pa da isprobamo.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski