Prikazi cijelu temu 30.10.2012 10:47
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub lstStanje_DblClick(Cancel As Integer)
  2. Dim strCriteria As String
  3. Dim rstUslov As Recordset
  4. strCriteria = "NSN = '" & Me.lststanje.Column(1) & "'"
  5. Set rstCriteria = Me.tblStavke.Form.RecordsetClone
  6. DoCmd.RunSQL "INSERT INTO tblStavke(BrD,NSN)" & _
  7.              "SELECT '" & Me.BrD & "','" & Me.lststanje.Column(1) & "'"
  8. Me.tblStavke.Requery
  9. Me.tblStavke.SetFocus
  10. rstCriteria.FindFirst strCriteria
  11. Me.tblStavke.Form.Bookmark = rstCriteria.Bookmark
  12. Me.tblStavke.Form!Klc.SetFocus
  13. End Sub

Pozdrav