Centar za edukaciju-BiH


Stranice (2):1,2

#1 23.10.2015 22:15
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#3 23.10.2015 23:18
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

#4 24.10.2015 10:43
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

Prilozi:
Informacije o tipu datoteke za:rar  Test.rar
Preuzimanja:331
Velicina datoteke:106.28 KB

↑  ↓

#5 24.10.2015 11:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#6 24.10.2015 11:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

#7 24.10.2015 11:17
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Set Forma = PraviNazivForme
Set pole = Frm("Imepoljanaformi")
Pole = ImeTekstpoljadrugeformeizkojecitaspodatak
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 24.10.2015 11:24
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

#10 24.10.2015 11:35
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 04 pm.