combobox standardværdi

Du har 2 tabeller. Een med din combo, og en anden hvori du slår nogle værdier op. I det øjeblik din combo er "aktiv", vil access opfatte begge tabeller som åbne, og du kan derfor ikke ændre tabeldefinitionerne.

Som forsøg kan du tage en kopi af en af tabellerne, og sætte din kode til at sætte standardværdi her.

Denne er afprøvet og fungerer. Bemærk at tabelnavnet "tabel" er en 3. tabel og er lukket.

Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.TableDefs("tabel")
tbl.Fields("Dato1").DefaultValue = Me.felt1

me!cmbBox.Defaultvalue=me!cmbBox.Value  ???

Mig bekendt kan man kun ændre på .DefaultValue på en combobox i designmode på en form.
Da du også nævner en textbox, undrer jeg mig over om det kunne være at det du ønsker er at indsætte den værdi du har valgt i comboboxen, som værdi i din textbox. I så fald er det rimeligt simpelt, men det kender du nok (sæt som defaultvalue  =cboBoxName.Column(1) for at tage værdien i kolonne 1)

Svar til Hugopedersen:

Nej spørgsmålet kunne formuleres som: hvorfor kan jeg ikke det her i en combobox når jeg kan i en textbox.

Mugs:

Jeg prøver lige en gang og vender tilbage.

Måske har det noget med at gøre at en combobox ikke har en property der hedder .DefaultValue !

Ha!

Nu har jeg den. Men jeg lavede en lille krølle på Muggs løsning. Jeg har jo kun brug for at den her standardværdi bliver hængende så længe formularen er åben. Så jeg gjorde følgende.

Option Compare Database
Option Explicit

Public dfv As String
Public Function DefValue() As String
DefValue = dfv
End Function


Private Sub SubSampleType_LostFocus()
dfv = Me!SubSampleType.Value
End Sub

Så satte jeg comboboxens defaultvalue til =DefValue()

Jeg har i forvejen en tabel med standardværdier der skal gemmes, hvis de skal blive selvom databasen lukkes skal de bare sættes på hylde der indtil den åbnes igen.