indsæt data i combobox

Normalt er kombobokse (i Access) bundet til en tabel eller forespørgsel.

Mn kan dog også angive "Rækkekildetype" til at være en "Værdiliste".

Derved kan du tilføje elementer ved at skrive:

Me!Comboboks.Rowsource = Me!Comboboks.Rowsource & ";" & NyVærdi


Hvis du benytter en tabel/forespørgsel som rækkekilde, skal du i stedet tilføje værdien til tabellen og Opdatere komboboksen med
Me!Comboboks.requery

Du behøver ingen knap. Du kan benytte hændelsen VedIkkepåListe (NotInList) og indsætte denne:

Dim prompt As String
DoCmd.SetWarnings False
Response = acDataErrContinue
prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
DoCmd.RunSQL "INSERT into Register (feltnavn) VALUES ('" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True

dl, har du kigget på dit andet spm tidligere: http://www.eksperten.dk/spm/563602

Hvis du indtaster en værdi i comboen, der ikke eksisterer ti tabellen / forspørgslen, vil du blive promptet for, om du vil indsætte værdien.

Egenskbnen BegrænsTilListe skal væresat til "Ja".

BegrænsTilListe:  da får jeg nogle fejl,... men jeg skal bare bruge en eller 2 linje, code, for at indsætte noget tekst i en combobox, skal indsættes så man kan vælge det  via den lille pil.

Hvordan er din rækkekildetype angivet? Som tabel/forespørgsel eller som værdiliste?

tabel/forespørgsel  er det forkert ... skal det være værdiliste

Min combobox er sat til at indsætte en værdi i en database.
men jeg skal selv styre de værdi der er i combobox, da det skal være fra en anden tabel, men i alle værdier fra den tabel skal med.

Håber i forstår.

Hvis du allerede har alle værdier i en tabel/forespørgsel, så er det nemmest sådan.

Og i så fald kan du indsætte en post i denne tabel vha disse sætninger:

docmd.Setwarnings false
docmd.RunSQL "Insert into [Din tabel] (Felt1)) Select '" & NyVærdi & "'"
docmd.Setwarnings true

Denne syntaks gælder, hvis værdien er tekst og hvis der kun skal indsættes ét felt i tabellen.

Glæmte lige at opdatere komboboksen:

docmd.Setwarnings false
docmd.RunSQL "Insert into [Din tabel] (Felt1)) Select '" & NyVærdi & "'"
docmd.Setwarnings true
ME!Comboboks.Requery

Hvem fa'en staver Glemte med "Æ"???? ;)

You do :o)

åbenbart!! Aner ikke hvor den kom fra....!??

Måske fra den film, jeg sidder og ser!?

Ansvarsforflygtigelse!!!

Nej da. Men du kan da godt få den 'rigtige' forklaring:

Fejlen skyldes helt og aldeles, at min dansklærer i folkeskolen aldrig lærte os at stave korrekt, at jeg var syg den ene dag, hvor vi lærte at stave til "glemte", at mine forældre ikke stimulerede mig nok intellektuelt som barn samt at jeg stadig lider af granatchok efter min deltagelse i Irak-krigen.

Hmmm - Jeg føler med dig.
Skyd dansklæreren fordi denne ikke repeterede stavemåden. Dit interlektuelle stade giver jeg heller ikke særlig meget for, idet du prøver at skyde skylden fra dig. Granatchoket tyder på behov for psykologhjælp.

Ups, står det så sløjt til?

Så er det godt, at man hverken behøver at kunne stave, være intelligent eller psykisk stabil for at være systemkonsulent/-udvikler ;o)

OK - Du er heldig stillet, idet dit job tilsyneladende ikke kræver noget særligt. Men inden vi bliver anmeldt for spam, må vi hellere slutte denne tråd. Så vil jeg vende tilbage til min 600 sider's Tom Clancy: Kodenavn "Red Rabbit".

Tak for iaften ;o)

God idé.

Måske DL er kommet lidt videre?

thomasjepsen >> det kan godt være det er mig der roder rundt i det.

men jeg skal ikke ligge ind i en tabel.
Jeg skal ligge en tekst ind i en combobox. Denne combobox er IKKE bundet til noget, hvorden få data fra, det skal jeg selv lave.

ok, så skal du angive "Rækkekildetype" til værdiliste.

Herefter kan du manuelt angive værdierne adskilt med semikolon i Rækkekilde.

For at tilføje ét element vha VBA, skal du bruge mit første eksempel:

Me!Comboboks.Rowsource = Me!Comboboks.Rowsource & ";" & NyVærdi

thomasjepsen >> tak

Selv tak !

Jeg håber, at du fik det til at lykkedes?

nej, faktisk ikke ...
jeg er newbie i access 2000 ... og det er en større sag for mig til jeg vil lave ... men ikke så svær ... jeg kunne lave det i delphi men har store problemmer med det i access.

og jeg vil have det som VB kode bagved ... jeg hader alt det man kan sætte op i access men som ikke altid virker.

men jeg vil oprette en sp omkring det hele. så kan du jo måske hjælpe med.

//dl