Centar za edukaciju-BiH



#11 24.10.2015 11:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 24.10.2015 11:42
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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
↑  ↓

#13 24.10.2015 12:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 24.10.2015 14:58
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Polijna i Formi
Toa e to fala mnogu.
Znaev jas deka e ova prasajne za iskusni.
Pozdrav
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 16 am.