Dim Baza As Database
Dim Rs1 As Recordset


Dim UL_kantD1 As Boolean '[ kako ovo dimenzionirati]

Set rsc = Nothing
Set Baza = CurrentDb()

UL_KantD1 = Me.D_1



Set Rs1 = Baza.OpenRecordset("tblPopis")

Rs1.AddNew

Rs1!KantD_1 = UL_kantD1 '[ da se upiše ovdje kao yes/no]

Rs1.Update
Rs1.Close

Set Baza = Nothing