Bosna i Hercegovina



#1 23.10.2015-22:15
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Polijna i Formi
Na edna forma imam dve polijna:
Public Pole As String
Public Forma As String

vo koi posle otvorajneto na formata se zapisuvaat Naziv na pole i naziv na forma
e sega mene mi treba kako da vratam nekoja vrednos od ovaa forma koja e otvorena na formata koja isto taka e otvorena i se sostoi od : Forma & "." & Pole

ako stavam vaka raboti sve OK :
frmFi_Vardarec.txtDataOD = StringToDatumVreme(txtData)
ako stavam vaka ne raboti:
Forma & "." & Pole = StringToDatumVreme(txtData)
↑  ↓

#2 23.10.2015-22:41
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: Re: Polijna i Formi
forme se zovu:
prvaforma i deuga forma
polja:
txtprveforme i
txtdrugeforme
txtDrugeForme = PrvaForma.txtPrveForme

Private Sub Command1_Click()
Dim Frm As Form
Dim Ctl As Control

Set Frm = PrvaForma
Set Ctl = Frm("txtprveforme")
Ctl = txtDrugeForme
End Sub
Pozdrav
↑  ↓

#3 23.10.2015-23:18
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Re: Polijna i Formi
Ok fala ke probam utre
↑  ↓

#4 24.10.2015-10:43
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Re: Polijna i Formi
Ne odi eve test program

Prilozi:
Informacije o fajlu: rar  Test.rar
Preuzimanja: 12
Veličina: 106.28 KB

↑  ↓

#5 24.10.2015-11:13
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: 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
Pozdrav
↑  ↓

#6 24.10.2015-11:17
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: Re: Polijna i Formi
Citat:
Private Sub cmdVnesData1_Click()
frmVnesNaData.Show
frmVnesNaData.SoVreme = False
frmVnesNaData.FormaNaziv = frmFi_Vardarec.Name
frmVnesNaData.PoleNaziv = txtDataOD.Name
End Sub
Private Sub cmdVnesData2_Click()
frmVnesNaData.Show
frmVnesNaData.SoVreme = False
frmVnesNaData.FormaNaziv = frmFi_Vardarec
frmVnesNaData.PoleNaziv = txtDataDO
End Sub

Bolje da mi napises imeforme i ime polja ovako neznam koje je polje i koja forma.
Ja cu poslije napisati kod sa setovanom formom. frm i poljem ctl.
Pozdrav
↑  ↓

#7 24.10.2015-11:17
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Re: Polijna i Formi
FormaNaziv e imeto na formata tie se definirani na vrv od formata
PoleNaziv imeto na poleto vo koe treba da se vrati podatokot.

FormaNaziv="frmFi_Vardarec"
PoleNaziv="txtDataOD"
↑  ↓

#8 24.10.2015-11:20
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: Re: Polijna i Formi
Public Pole As as control
Public Forma As form

Set Forma = PraviNazivForme
Set pole = Frm("Imepoljanaformi")
Pole = ImeTekstpoljadrugeformeizkojecitaspodatak
Pozdrav
↑  ↓

#9 24.10.2015-11:24
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Re: Polijna i Formi
Vaka dobivam Runtimme error 91
↑  ↓

#10 24.10.2015-11:35
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: Re: Polijna i Formi
Da pojasnam malku sto rabotam:
Ova e univerzalna forma za popolnuvajne na datumski polijna.
Ovaa forma ke se povikuva od poveke razliciti formi i zavisno od potrebata ke popolnuva polijna vo formite od koi e povikana.
Taka da NazivForma i NazivPole se dinamicni i sto sodrzat zavisi od toa od koja forma se povikuva.
Na primer
frmVnesNaData.NazivForma=Forma1 ili frmVnesNaData.NazivForma=Forma2
frmVnesNaData.NazivPole=txtDataOD ili frmVnesNaData.NazivPole=txtDataDO
↑  ↓

#11 24.10.2015-11:35
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: 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.
Pozdrav
↑  ↓

#12 24.10.2015-11:42
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,453


Subject: Re: Polijna i Formi
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#14 24.10.2015-14:58
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,320


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

Stranice (1): 1


All times are GMT +01:00. Current time: 23.10.2017-01:46.