zxz | 24.10.2015 12:35 |
---|---|
Predmet:Re: Polijna i Formi Citat: Private Sub cmdOK_Click() 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. |
Gjoreski | 24.10.2015 12:42 |
---|---|
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 |
zxz | 24.10.2015 13:56 |
---|---|
Predmet:Re: Polijna i Formi PreuzmiIzvorni kôd (Visual Basic):
|
Gjoreski | 24.10.2015 15:58 |
---|---|
Predmet:Re: Polijna i Formi Toa e to fala mnogu. Znaev jas deka e ova prasajne za iskusni. Pozdrav |