Imam problem!
U modulu sam napravio jedan kod koji se poziva s više mjesta.Međutim problem je što kad dođe do modula izbaci mi grešku” Object variable or with block variable not set ”
Ovo je dio koda a mislim da je grešak u openrecordset.Ali ne znam kako to otklonit .
Rdupla je tablica iz koje mi trebaju podaci!
Kako da aktiviram tu tablicu!
Dim db As DAO.Database, tb As DAO.Recordset, br As Integer
Dim x, t As Long
Dim U As Integer
Dim ok, okok As Boolean
Set tb = db.OpenRecordset("Rdupla")
U = 65
t = 0
Do While U < 123
tb.MoveFirst
Do While Not tb.EOF
If Asc(Left(txtsearch, 1)) + t = Asc(Left((UCase(tb!Naziv)), 1)) Then
okok = True
txtsearch = Chr$(Asc(Left(txtsearch, 1)) + t)
U modulu sam napravio jedan kod koji se poziva s više mjesta.Međutim problem je što kad dođe do modula izbaci mi grešku” Object variable or with block variable not set ”
Ovo je dio koda a mislim da je grešak u openrecordset.Ali ne znam kako to otklonit .
Rdupla je tablica iz koje mi trebaju podaci!
Kako da aktiviram tu tablicu!
Dim db As DAO.Database, tb As DAO.Recordset, br As Integer
Dim x, t As Long
Dim U As Integer
Dim ok, okok As Boolean
Set tb = db.OpenRecordset("Rdupla")
U = 65
t = 0
Do While U < 123
tb.MoveFirst
Do While Not tb.EOF
If Asc(Left(txtsearch, 1)) + t = Asc(Left((UCase(tb!Naziv)), 1)) Then
okok = True
txtsearch = Chr$(Asc(Left(txtsearch, 1)) + t)
Potpis
romano