Prikazi cijelu temu 29.03.2012 08:11
mci_r Van mreze
Clan
Registrovan od:17.03.2011
Lokacija:Doboj


Predmet:Re: Execution of this application has stopped due to a run-time error
Reinstalirao sam Office i runtime i opet nista.
Evo koda na kojem pada:

Private Sub Command2_Click()
DoCmd.RunCommand acCmdRefresh
If (Eval("IsNull(Forms![Storniranje racuna]!Text0)")) Then
DoCmd.Close acForm, "Storniranje racuna", acSavePrompt
End
End If
If [Forms]![Storniranje racuna]!Text10 = "Veleprodaja" And (Eval("([Forms]![Storniranje racuna]![Text0]) Is Not Null")) Then
DoCmd.OpenForm "Osnovna tabela Q VP", acNormal, , "[Racun broj]=[Forms]![Storniranje racuna]![Text0] And [Nacin prodaje]In (""Veleprodaja"",""Usluge"") or [Br FO]=[Forms]![Storniranje racuna]![Text0] And [Nacin prodaje]In (""Veleprodaja"",""Usluge"")", acFormEdit, acWindowNormal
DoCmd.GoToControl "Command25"
End If
If [Forms]![Storniranje racuna]!Text10 = "Maloprodaja" And (Eval("([Forms]![Storniranje racuna]![Text0]) Is Not Null")) Then
DoCmd.OpenForm "Osnovna tabela Q VP", acNormal, , "[Racun broj]=[Forms]![Storniranje racuna]![Text0] And [Nacin prodaje]In (""Maloprodaja"") or [Br FO]=[Forms]![Storniranje racuna]![Text0] And [Nacin prodaje]In (""Maloprodaja"")", acFormEdit, acWindowNormal
DoCmd.GoToControl "Command25"
End If
DoCmd.Close acForm, "Storniranje racuna", acSavePrompt
End Sub

A evo i slike sa ukljucenim referencama