Centar za edukaciju-BiH


Stranice (2):1,2

#11 30.10.2012 10:47
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
↑  ↓

#12 30.10.2012 15:37
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: List box-problem
Hvala još jednom i svako dobro te pratilo Happy
Pozdrav!
↑  ↓

#13 03.11.2012 10:13
Trtimir Van mreze
Clan
Registrovan od:17.05.2012
Postovi:10


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
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 32 pm.