Prikazi cijelu temu 24.10.2015 11:42
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Polijna i Formi
to e standardna MSMask kontrola , no ne e problem moze da se proba i so text pole.
vaka raboti ne e problem
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

treba vaka da raboti

Private Sub cmdOK_Click()

' If SoVreme = True Then Kade = StringToDatumVreme(txtData)
' If SoVreme = False Then Kade = StringToDatum(txtData)
NazivForma="frmFi_Vardarec"
NazivPole="txtDataOD"
Dim Frm As Form
Dim Ctl As Control
Set Frm = NazivForma
Set Ctl = Frm(NazivPole)
Ctl = StringToDatum(txtdata)
' Unload frmVnesNaData
End Sub