Predmet:Re: Polijna i Formi
PreuzmiIzvorni kôd (Visual Basic):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
Dim NazivForma As String
Dim NazivPole As String
Dim Idx As Integer
NazivForma = "frmFi_Vardarec"
NazivPole = "txtDataOD"
For Each Frm In Forms
If Frm.Name = NazivForma Then
Exit For
End If
Next Frm
Set Ctl = Frm(NazivPole)
Ctl = StringToDatum(txtdata)
' Unload frmVnesNaData
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.