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.