Prikazi cijelu temu 24.10.2015 11:35
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 = frmFi_Vardarec
Set Ctl = Frm("txtDataOD")
Ctl = StringToDatum(txtdata)
' Unload frmVnesNaData
End Sub

Evo samo nisam imao tvoju kontrolu koju koristis za polja pa sam uzeo obicnu txt.
Moze samo biti do nje ako ne radi.

Znaci tvoje polje Txtdataod, txtdatado i txtdata je neka tvoja kontrola koju ja nemam.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.