Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101

Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
iCentar
Prikazi cijelu temu 14.03.2017 09:56
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


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!