dan79: Private Sub cmdAdd_Click()
If Me.txtŠifra.Tag & "" = "" Then
'this is for insert new
'add data to table
CurrentDb.Execute "INSERT INTO tblLista(datum, šifra, prezime, ime, prihod, prihod, uplate, ukupno, isplata, razlika) " & _
" VALUES(
#" & Me!txtDatum & "#,'" & Me.txtŠifra & "','" & _
Me.txtPrezime & "','" & Me.txtIme & "','" & Me.txtPrihod & "','" & Me.txtPrihodi & "','" & _
Me.txtuplate & "','" & Me.txtUkupno & "','" & Me.txtIsplata & "','" & Me.txtrazlika & "')"
ako mi moze netko pomoci hvala