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