Gemme data fra ComboBox

Private Sub Form_Load()
Combo1.AddItem "Kategori1"
Combo1.AddItem "Kategori2"
Combo1.AddItem "Kategori3"
Combo1.ListIndex = 0
Text1 = Combo1.Text
End Sub


Private Sub Command1_Click()
Text1 = Combo1.Text
End Sub

Sådan lidt hurtigt fortalt...

- Mikker

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Private Sub Command1_Click()
If Text1.Text = "" Then
    MsgBox "Der er et tomt felt, det må der ikke være."
ElseIf Combo1.Text = "" Then
    MsgBox "Der er et tomt felt, det må der ikke være."
Else
    Set ws = Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\data.mdb")
    db.Execute "INSERT INTO table1 ('" & Combo1.Text & "') VALUES ('" & Text1.Text & "');"
End If
End Sub

Combo1.Text er den værdi som feltet hedder i din db, og Text1.Text er den værdi der sættes ind i feltet med navnet i combo1.text....

Du skal også bruge referencen Microsoft DAO 3.51 eller 3.6....

/Tubber

mikker: hvad gør listindex i det du har skrevet.....

Yes... Det var hurtigt...
Hvad skal Text1 defineres som?
Er det feltet i Employee-tabellen, som skal lagre "kategori1, 2 el.3"?

Og i så fald, hvorledes gøres det?

Hvis det er mit du spørger til så....:

Text1.Text er den text der står skrevet i det tekstfelt i din form.
Combo1.Text er der hvor de 3 kategorier skal stå, så kan man ikke selv skrive dem....

det min if sætning gør er den chekker om der er tomme felter, hvis der ikke er tager den texten fra Text1 og sætter ind i det felt som passer til kategorien...

Skal vist have tingene skåret ud i pap:
Min Combobox hedder ComboCategory i en form der hedder Employee.
Kategorivalgene ligger i en tabel, der hedder Category med 1 felt i, der hedder Category.
Hvis man vælger en værdi i Categorytabellen, skal denne lagres i feltet Category i Employee-tabellen.

Jeg har forsøgt med begge løsningsforslag, men uden held :o(
Kan I uddybe udfra det jeg har skrevet?

Altså det du vil det er at hente data ind fra en database ?

I din database er der en tabel og der i et felt der hedder catgory......

og det er de poster der er under category du vil have ind i en combobox ?

>>tubber
Præcis!
Og de værdier, som findes i comboboxen, skal så kunne bruges til hver employee (emp.1 tilhører kat.1; emp.2 tilhører kat.3, osv..)

Hvad mener du med at emp1 tilhører kat1 og emp2 tilhører kat3 ?

Der findes en form, hvor man taster al data om hver employee.. Bl.a. skal man kunne vælge om den pågældende tilhører kategori1, 2 eller 3 fra en Combobox.
Navnene på kategorierne f.eks. "leder", "sekretær", "andet" ligger i en tabel "Category". Dette skal, ligesom navn, adresse, osv. lagres i Employee-tabellen i feltet Category.

Make sense?

Her er i hvertfald for at hente data ind i din combobox.....

Dim ws As Workspace
Dim db As Database
Dim rs As Recordset

Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\data.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tabel")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs!Category
        rs.MoveNext
    Loop
End If

Data.mdb er dit databasenavn
Tabel er tabelnavn
rs!category er de recordsets der er i den tabel under det feltnavn der hedder category

og stadig den reference

nu er jeg forvirret skal data ud af database eller ind i en database ?

eller hvad skal de ?

Skal ovenstående ligge i Form_Load() eller hva?

Nå jeg er lige away lidt skriver lige noget svar senere.....

ja skal det

Jeg taster manuelt de tre kategorier i Category-tabellen, men de skal IND i den samme DB, bare i en anden tabel (Employee)
Er det nemmere at droppe Category-tabellen og blot skrive hvad der skal være i Comboboxen i VB og herefter lagre det i Employee-tabellen?

Category-tabellen mente jeg bare gjorde det lettere, hvis man senerehen skal tilføje en kategori?

Nu har jeg fikset ComboBoxen så den kan vise de tre kategorier - det blev løst ved at skrive det i Form_Load() i stedet for at bruge Category-tabellen. Men hvordan lagrer jeg så den valgte kategori med hver Employee?

Private Sub Command1_Click()
If Combo1.Text = "" Then
    MsgBox "Der er et tomt felt, det må der ikke være."
Else
    Set ws = Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\data.mdb")
    db.Execute "INSERT INTO table1 (Employe) VALUES ('" & Combo1.Text & "');"
End If
End Sub

Det skal være i en knap

Takker...
Håber det virker.. Jeg vil se på det i morgen formiddag.

/U.K.