Vore tacksam om jag fick en lösning på följande problem.

Håller på att att utceckla en databas i access 2000.
Problemet är följande, hur får jag värden, data från en combobox att ligga
kvar till nästa post? Alltså jag vill att data, värdet skall kopieras eller ligga kvar till nästa post men också kunna ändras vid behov.
Mycket tacksam för svar!

MVH KED

I after updateventet sätter du comboboxens defautltvärde till aktuellt värde.

Tackar för svaret Anders.

Tyvärr får jag inte till det, hoppas du inte misstycker om jag
ber dig eller någon annan om lite mer i detalj.
Är det i koden AfterUpdate som jag skall ändra default värdet eller?
Om det är i koden eller annnastans hur skall det då se ut

Tacksam för svar

MVH
Ked

Tjenare.
<br>
Här är en annan möjlig variant.<br>
Kolla i hjälpen på DLookup.<br>
Om du lägger in en kodsnutt med en sådan funktion i kontrollens
_GotFocus() så borde det fungera.
Tänk bara på att först kolla att rutan är tom med:
<code> If IsNull([Fältnamnet]) Then
[Fältnamnet]=DLookUp("[Fältnamnet]", "Tabellnamnet", o.s.v...
End If </code>
För om det står något i boxen så vill du ju inte ändra detta.
<br>
Om du sedan har ett unikt ID för varje post så kan du använda det för
att leta upp föregående post i tabellen m.h.a. dess ID och den aktuella
postens ID.<br>
Jag vet att jag har använt denna funktion på textboxar någon gång
men det borde funka på comboboxar också. Är dock ej 100% säker.
<br>
Lycka till.<br>
/Per-Åke

Tack EL Paso

Fungerar som du skrev. Men jag kanske var otydlig, jag vill också
att, när jag byter namn i boxen så vill jag att det skall ligga kvar
vid nästa post.

Tackar ödmjukast för svar.

MVH Ked

Nu bara skriver jag lite ur huvedet. Men det ger dig nog en ide hur du skall kunna göra det.

<code>
'Om Text
Private Sub MyCombo_AfterUpdate()
If IsNull(MyCombo) Then
MyCombo.DefaltValue = Null
Else
MyCombo.DefaltValue = "=""" & Replace(MyCombo,"""","""""") & """"
End IF
End sub

'Om Tal
Private Sub MyCombo_AfterUpdate()
If IsNull(MyCombo) Then
MyCombo.DefaltValue = Null
Else
MyCombo.DefaltValue = "=" & MyCombo
End IF
End sub
</code>