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.

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.

Getsbi hvala ti na trudu, nije bilo do coda vec do regional settings-a, sve su mi win7 masine podesene na engleski tako da su mu izgleda nasi karakteri smetali, nisam mogao da vjerujem u sta mi je dan propao, al eto dobro je znati za u buduce..
Hvala ti puno jos jednom!