Prebacianje podataka iz text polja u memo kroz VBA bez brianja postojećih?

[ sabacc @ 27.12.2010. 07:17 ] @

Pitanje je jednostavno. Treba prebaciti podatke iz text polja-combo box u memo polje. Najlakše je na primer na neki događaj postaviti code:

Private Sub Saljeseanti_AfterUpdate()
Me.Zapis = Me.Spisak
End Sub

I ovaj red coda prebacuje podatke iz jednog polja (text-combo box) u drugo (memo). Problem je u sledećem? Svaki put kada bi izabrali novu zapis u text polju posle događaja AfterUpdate prenosili bi se podaci iz text polja u memo polje, ALI BI BRISALI SADRŽAJ VEĆ PREBAČENIH PODATAKA. Trebalo bi samo da se dodaju novi podaci u memo polje bez brisanja već postojećih?

[ SLOJ.1973 @ 27.12.2010. 08:06 ] @

Ovaj dole kod radi na prebacivanju iz polja Text10 ,koje je tipa Text u polje Text8 koje je tipa memo na dogadjaj afterUpdate Text10.Pa ti probaj sa combo box-om.

Code:
Private Sub Text10_AfterUpdate()
Me.Text8 = Me.Text8 + " " + Me.Text10
End Sub

.Provereno radi i kada je polje Text10 tipa ComboBox

[ sabacc @ 27.12.2010. 08:28 ] @

Radi bez problema. HVALA!

[ SLOJ.1973 @ 27.12.2010. 08:30 ] @

Nema na čemu.Pozdrav.

[ sabacc @ 03.02.2011. 07:37 ] @

Jednom sam se bavio ovim pitanjem i prebacivanje podataka iz text polja u memo bez brisanja postojećih bi išlo kroz code na nekom događaju recimo.

Me.Zapis=Me.Zapis+MeCombo4 gde je Zapis memo polje, a Combo4 nepovezano polje koje poziva vrednosti kolone jedne tabele.

Problem je u sledećem? Na koji način bi se svako prebacivanje novog zapisa iz nepovezanog polja u memo polje ispisivalo u novom redu.

[ Getsbi @ 03.02.2011. 07:46 ] @

Jel ovo nastavak ove teme?: http://www.elitesecurity.org/t...aka-iz-text-polja-memo-kroz-VB

[ sabacc @ 03.02.2011. 08:44 ] @

Da. U memo polju novi red bi dobili sa komandom Enter, a u izvešaju mi je bitno da je svaki novi zapis novi red. Može se to uraditi i sa dodavanjem nove tabele i vezom jedan prema više, ali ovo je mnogo jednostavniji način (bez koplikovanja i dodavanja novih tabela u bazi)

[ SLOJ.1973 @ 03.02.2011. 09:32 ] @

Mozda ovako

Code:
Private Sub Combo0_AfterUpdate()
Me.Text8 = Me.Text8 + vbCrLf + Me.Combo0
End Sub

Pozdrav.

[ sabacc @ 03.02.2011. 12:46 ] @

Radi. Hvala na pomoći!
Pozdrav.