Prikazi cijelu temu 24.10.2015 11:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Polijna i Formi
Citat:
Private Sub cmdOK_Click()

' If SoVreme = True Then Kade = StringToDatumVreme(txtData)
' If SoVreme = False Then Kade = StringToDatum(txtData)

Dim Frm As Form
Dim Ctl As Control
Set Frm = FormaNaziv
Set Ctl = Frm(PoleNaziv)
Ctl = StringToDatum(txtData)
' Unload frmVnesNaData
End Sub

Set Frm = FormaNaziv'-----Ovdje se pise imetvoje forme
Set Ctl = Frm(PoleNaziv)" a ovdje ime kontrole txt pod znacima navoda
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.