pmiroslav 30.10.2012 10:47
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

Dado 30.10.2012 15:37
Predmet:Re: List box-problem

Hvala još jednom i svako dobro te pratilo Happy

Trtimir 03.11.2012 10:13
Predmet:Re: List box-problem

ima joÅ¡ jedan način

SubArtikli.Requery ' to je subforma na formi
Dim trag As String
trag = sifartikla
SubArtikli.SetFocus
DoCmd.FindRecord trag, , True, , True ' tu skoči na željeni slog, s tim da prva koona mora biti sifartikla

sifartikla.SetFocus