Gentag feltvaerdi

Brug sendkeys

Tak for poient.

Hvis du altid skal have den samme værdi, kan du benytte "Standardværdi for nye poster" i tabellen eller formularen. Hvis værdien ændrer sig på den måde, at du ønsker et felt's værdi overført til en ny post, kan du bruge flg:

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.RecordsetClone
rs.MoveLast
Me!felt1.DefaultValue = "'" & rs!felt1 & "'"
rs.Close
End If

Den værdi der er indtastet i felt1, vil blive standardværdi i den nye post i felt1.

Koden kræver en reference til DAO.

Hvad betyder reference til DAO og hvordan gør jeg det?

Gå i modul
Gå i tools
Gå i refancer
der kan du trykke dao af.

Hej Henrik13! Dit svar er sådan set rigtigt, det fungerer bare ikke. Det skal siges, at posten hentes i en comboboks, og det er måske derfor, at jeg ikke kan få den til at virke.

Bruger du ^ i stedet for CTRL.

Hej mugs! Jeg har indstillet DAO - fint! Men din kode virker desværre ikke. Fejlmelding kommer ved første indtastning ved: rs.MoveLast. Ved 2. indtastning er det sætningen: Me!felt...osv. Ved du, hvad der nu er galt?

Hej Henrik! Ja, det gør jeg.

Min kode er afprøvet og fungerer perfekt her som beskrevet. Vil du have en testdb opgiver du blot din e-mail.