Centar za edukaciju-BiH


Stranice (2):1,2

#1 14.03.2017 08:56
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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

Pozdrav!
↑  ↓

#2 14.03.2017 09:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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 & "'"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 14.03.2017 13:09
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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

Pozdrav!
↑  ↓

#4 14.03.2017 13:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 14.03.2017 14:03
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: VBA kod ne radi
Citat:
Znaci nije do koda nego nacina.

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

#6 14.03.2017 14:23
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


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
zivot je moja domovina.
↑  ↓

#7 14.03.2017 14:30
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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

#8 14.03.2017 18:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 14.03.2017 21:22
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


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.
Pozdrav!
↑  ↓

#10 14.03.2017 21:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 3: 25 pm.