Dado 14.03.2017 08:56
Predmet:VBA kod ne radi

Imam jedan kod koji ne radi, sta nije uredu, sta treba dodati promjeniti da bi proradio.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdPrikazi_Click()
  2.     Dim RS As Object
  3.  
  4.     Set RS = Forms!frmUnosOsnovnihPodatakaOKorisniku.Recordset.Clone
  5.     RS.FindFirst "[rednibrojkorisnika] = " & Me.txtRedniBrojKorisnika
  6.     If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
  7.     DoCmd.Close
  8. End Sub

zxz 14.03.2017 09:31
Predmet:Re: VBA kod ne radi

Tesko je reci bez primjera jer je vjerovatno do nekih polja.
jedino ako je rednibrojkorisnika string onda treba ovako:
RS.FindFirst "[rednibrojkorisnika] = '" & Me.txtRedniBrojKorisnika & "'"

Dado 14.03.2017 13:09
Predmet:Re: VBA kod ne radi

Znam da bi bilo lakše na primjeru ali !

Na formi "frmPretragaKorisnika" imam dva text polja i to:

Text box „txtRedniBrojKorisnika“ na Control Source stoji =subfrmPretragaKorisnika.Form!rednibrojkorisnika

Text box „Text10“ na Control Source stoji
=subfrmPretragaKorisnika.Form!ime & " " & subfrmPretragaKorisnika.Form!prezime

I onaj kod koji sam postavio na dugme "Prikazi"
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdPrikazi_Click()
  2.     Dim RS As Object
  3.  
  4.     Set RS = Forms!frmUnosOsnovnihPodatakaOKorisniku.Recordset.Clone
  5.     RS.FindFirst "[rednibrojkorisnika] = " & Me.txtRedniBrojKorisnika
  6.     If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
  7.     DoCmd.Close
  8. End Sub

zxz 14.03.2017 13:15
Predmet:Re: VBA kod ne radi

Da ali ja sam to sve isto napravio i kod mene kod radi.
Znaci nije do koda nego nacina.

Dado 14.03.2017 14:03
Predmet:Re: VBA kod ne radi

Citat:
Znaci nije do koda nego nacina.

Kako do načina? MožeÅ¡ li mi to pojasniti malo.

Avko 14.03.2017 14:23
Predmet:Re: VBA kod ne radi

i ja isto nisam mogao vjerovati da cijeli zivot ljuÅ¡tim jaja na krivi način, pa mi je zxz objasnio koji je to pravi način

Dado 14.03.2017 14:30
Predmet:Re: VBA kod ne radi

Citat:
i ja isto nisam mogao vjerovati da cijeli zivot ljuÅ¡tim jaja na krivi način, pa mi je zxz objasnio koji je to pravi način
LjuÅ¡tenje jaja je ipak delikatniji posao od ovog Å¡to ja ovdje zanovijetam i smaram hahaha. Ako sada ljuÅ¡tiÅ¡ jaja na pravi način onda je zxz uspio u svom objaÅ¡njenju. E sad mene interesira jesu li jaja bila domaća ili su iz marketa Happy

zxz 14.03.2017 18:58
Predmet:Re: VBA kod ne radi

Pa gledaj moze bniti do naziva polja ili evo ovo.
If Not RS.EOF Then Forms!frmUnosOsnovnihPodatakaOKorisniku.Bookmark = RS.Bookmark
Ovdje kazes ako nema podataka u rs onda uradi.
dali hoces tako ja to neznam dok ne vidim.

Dado 14.03.2017 21:22
Predmet:Re: VBA kod ne radi

Označim korisnika na subformi "subfrmPretragaKorisnika" i pritiskom na dugme "Prikazi" hoću da mi se otvori forma "frmUnosOsnovnihPodatakaOKorisniku" sa podacima o tom korisniku.

zxz 14.03.2017 21:42
Predmet:Re: VBA kod ne radi

Fidis da ti ovaj kod gore uopste ne treba.
U formi
frmUnosOsnovnihPodatakaOKorisniku u recordsource upises ovaj SQL ako nabasam da bude tacan.
SELECT * FROM TblKorisnici WHERE rednibrojkorisnika=" & [Forms]![ImeGlavneForme]![subfrmPretragaKorisnika].[Form]

eto sad na dugme samo napravis
docmd.openform "Imeforme"