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