Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub lstStanje_DblClick(Cancel As Integer)
Dim strCriteria As String
Dim rstUslov As Recordset
strCriteria = "NSN = '" & Me.lststanje.Column(1) & "'"
Set rstCriteria = Me.tblStavke.Form.RecordsetClone
DoCmd.RunSQL "INSERT INTO tblStavke(BrD,NSN)" & _
"SELECT '" & Me.BrD & "','" & Me.lststanje.Column(1) & "'"
Me.tblStavke.Requery