Prikazi cijelu temu 24.10.2015 12:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Polijna i Formi
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdOK_Click()
  2.    
  3.    ' If SoVreme = True Then Kade = StringToDatumVreme(txtData)
  4.   ' If SoVreme = False Then Kade = StringToDatum(txtData)
  5.    
  6.      Dim Frm As Form
  7.      Dim Ctl As Control
  8.      Dim NazivForma As String
  9.      Dim NazivPole As String
  10.      Dim Idx As Integer
  11.      
  12.       NazivForma = "frmFi_Vardarec"
  13.       NazivPole = "txtDataOD"
  14.      
  15.    For Each Frm In Forms
  16.     If Frm.Name = NazivForma Then
  17.    Exit For
  18.     End If
  19.    Next Frm
  20.      Set Ctl = Frm(NazivPole)
  21.      Ctl = StringToDatum(txtdata)
  22.   ' Unload frmVnesNaData
  23. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.