Predmet:Re: List box-problem
Eto, kako nitko neće morao sam se ja pomućiti. Funkciju na lstStanje prepravi kako slijedi:
PreuzmiIzvorni kôd (vbnet):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
Me.tblStavke.SetFocus
rstCriteria.FindFirst strCriteria
Me.tblStavke.Form.Bookmark = rstCriteria.Bookmark
Me.tblStavke.Form!Klc.SetFocus
End Sub
Pozdrav