Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet » Polijna i Formi
Gjoreski 23.10.2015 22:15
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)

zxz 23.10.2015 22:41
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

Gjoreski 23.10.2015 23:18
Predmet:Re: Polijna i Formi

Ok fala ke probam utre

Gjoreski 24.10.2015 10:43
Predmet:Re: Polijna i Formi

Ne odi eve test program
Prilozi:
Test.rar (Velicina datoteke:106.28 KB)

zxz 24.10.2015 11:13
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

zxz 24.10.2015 11:17
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.

Gjoreski 24.10.2015 11:17
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"

zxz 24.10.2015 11:20
Predmet:Re: Polijna i Formi

Public Pole As as control
Public Forma As form

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

Gjoreski 24.10.2015 11:24
Predmet:Re: Polijna i Formi

Vaka dobivam Runtimme error 91

Gjoreski 24.10.2015 11:35
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