Cini mi se da ti hoces da prenosis vrednost jednog polja iz rekorda u rekord.
Ima vise nacina, a evo ga jedan, relativno jednostavan.
1) za svako polje koje zelis da prenosis iz rekorda u rekord, deklarise se varijabla na nivou forme
Code:
Option Compare Database
Option Explicit
'varijabla strAdresa vidljiva je iz svih procedura u okviru ove forme
Dim strAdresa As String
2) Dodaj sledeci kod u event procedure Form_AfterUpdate() i Form_Current()
Code:
Private Sub Form_AfterUpdate()
'Spakujemo poslednju unetu vrednost u form level varijablu
strAdresa = Me!txtAdresa
End Sub
Private Sub Form_Current()
If Me.NewRecord Then
'prepisemo sta smo sacuvali iz prethodnog rekorda
If strAdressa <> vbNullString Then
Me!txtAdresa = strAdresa
End If
End If
Sta ce se desiti? Kad se forma otvori prvi put, polje txtAdresa je prazno. Unesemo neku vrednost i sacuvamo (Save) record. Kad predjemo na novi rekord (ali zaista novi, ne na sledeci postojeci), u polju txtAdresa bice upisana vrednost koju smo uneli u prethodni rekord. Ako nam odgovara, ostavimo to kako jeste, unesemo ostatak i sacuvmo rekord. Ponovo se vrednost iz txtAdresa upise u varijablu i prenosi na sledeci NOVI rekord. I tako dalje. sta god je upisano poslednje, prenece se u sledeci rekord.
kako sve u stvari funkcionise? Varijabla strAdresa se koristi u dve razlicite procedure. Form_AfterUpdate() upise vrednost u strAdresa, a Sub Form_Current() procita tu vrednost i dodeli je text boxu txtAdresa . Kad sacuvas rekord, poslednji event koji se desi je Form_AfterUpdate. Kad predjes na novi rekord, desi se prvo CurrentRecord event za formu. Primeti kako je u Sub Form_Current() upotrebljen Me.NewRecord za utvrdjivanje da li smo na novom rekordu. Bez ovog testa bi se adresa prepisala u sledeci rekord, makar i postojeci, kad god bi neki prethodni rekord bio promenjen, sto nije dobro.
Metod radi sa formama, bez obzira na izgled - Form View, Cont. Form ili Datasheet.
Moguci problem je ako ima mnogo polja koja se prepisuju iz forme u formu, mora da se pise kod za svaku od njih, pa procedure postaju pretrpane i teske za odrzavanje.