pmiroslav 09.11.2011 10:13
Predmet:kako dimenzionirati varijablu Yes/No

Radim funkciju za popunjavanje tablice ne temelju podataka iz Unbound forme. na formi imam i nekoliko Check Box-ova na temelju kojih se pomoču koda treba popuniti Yes/No polje u tablici.
Kako dimezionirati varijablu za Yes/No polje

Dio funkcije sa za check box glasi:
PreuzmiIzvorni kôd (vbnet):
  1. Dim Baza As Database
  2. Dim Rs1 As Recordset
  3.  
  4.  
  5. Dim UL_kantD1 As Boolean '[ kako ovo dimenzionirati]
  6.  
  7. Set rsc = Nothing
  8. Set Baza = CurrentDb()
  9.  
  10. UL_KantD1 = Me.D_1
  11.  
  12.  
  13.  
  14. Set Rs1 = Baza.OpenRecordset("tblPopis")
  15.  
  16. Rs1.AddNew
  17.  
  18. Rs1!KantD_1 = UL_kantD1 '[ da se upiše ovdje kao yes/no]
  19.  
  20. Rs1.Update
  21. Rs1.Close
  22.  
  23. Set Baza = Nothing

kada je pokrenem dobivam grešku "Object Required"

zxz 09.11.2011 12:16
Predmet:Re: kako dimenzionirati varijablu Yes/No

Tesko je reci.
Set rsc = Nothing--->Neznam sta ti je ovo
Mozda neka global var
Ostali kod je uredu i trebalo bi da se upise ako postoji polje.
Sad je pitanje kakvo je polje D_l jer greska govori da je do njega.

pmiroslav 09.11.2011 12:47
Predmet:Re: kako dimenzionirati varijablu Yes/No

Sada je proradilo, bila je greška u pisanju. Umjesto Rs1!KantD_1 napisao sam samo Rs!Kant_D_1

A ovo Set rsc= Nothing ni ja neznam Å¡to je. To sam imao u nakom primjeru na osnovu kojega radim funkciju pa sam prepisao. Sada sam to obrisao pa radi i bez toga.