Prikazi cijelu temu 14.03.2017 14:09
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


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!