zxz 24.10.2015 12:35
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 = frmFi_Vardarec
Set Ctl = Frm("txtDataOD")
Ctl = StringToDatum(txtdata)
' Unload frmVnesNaData
End Sub

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):
  1. Private Sub cmdOK_Click()
  2.    
  3.    ' If SoVreme = True Then Kade = StringToDatumVreme(txtData)
  4.   ' If SoVreme = False Then Kade = StringToDatum(txtData)
  5.    
  6.      Dim Frm As Form
  7.      Dim Ctl As Control
  8.      Dim NazivForma As String
  9.      Dim NazivPole As String
  10.      Dim Idx As Integer
  11.      
  12.       NazivForma = "frmFi_Vardarec"
  13.       NazivPole = "txtDataOD"
  14.      
  15.    For Each Frm In Forms
  16.     If Frm.Name = NazivForma Then
  17.    Exit For
  18.     End If
  19.    Next Frm
  20.      Set Ctl = Frm(NazivPole)
  21.      Ctl = StringToDatum(txtdata)
  22.   ' Unload frmVnesNaData
  23. End Sub

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