Prikazi cijelu temu 09.11.2011 10:13
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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"
Pozdrav