pmiroslav Miroslav Osijek
Član broj: 57354 Poruke: 298 *.dsl.net.optima-telekom.hr.
|
U bazi koristim formu za pretraživanje podataka. Radi tako da kada u jedno od polja u formi upišem određeni podatak u subformi mi se prikažu traženi podaci.
Do malo prije je sve radilo kako treba i sada odjednom problem. Kada dugmetom pokrenem proceduru za pretraživanje podaci se izlistaju ali se i otvori prozor sa informacijom o greški: "RUN-TIME ERROR '429' AcriveX component can't create object.
Ovo je procedura:
Kada startam DEBUG selektira se dolje navedeni red
Private Sub Trazi_Materijal_Click()
Dim MySQL As String, MyCriteria As String, MyRecordSource As String
Dim ArgCount As Integer
Dim Tmp As Variant
ArgCount = 0
MySQL = "SELECT * FROM QryMaterijal WHERE "
MyCriteria = ""
AddToWhere [Look For Skl], "[Skl]", MyCriteria, ArgCount
AddToWhere [Look For Naz], "[Mat_ime]", MyCriteria, ArgCount
AddToWhere [Look For Sifra], "[Sifra]", MyCriteria, ArgCount
AddToWhere [Look For Kvalitet], "[Kvalitet]", MyCriteria, ArgCount
If MyCriteria = "" Then
MyCriteria = "True"
End If
MyRecordSource = MySQL & MyCriteria
Me![Pretraga Materijala subform].Form.RecordSource = MyRecordSource
If Me![Pretraga Materijala subform].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Nema dijela sa traženim kriterijem.", 48, "Podatak nije pronađen"
Me!Clear.SetFocus
Else
Tmp = EnableControls("Detail", True)
Me![Pretraga Materijala subform].SetFocus
End If
End Sub
Slične forme za pretragu koristim u više različitih Access baza i u svima se događa greška u drugoj opet sa porukom: "Can't find project library"
Napominjem da na drugom kompjuteru sve radi kako treba, a instalirana je ista vertzija Accessa
|