kombinationsbox skal udfylde flere felter i underformular

Er vist noget i retning af :

Felt1.value = Komnibanationsboks.Column(0)
Felt2.value = Komnibanationsboks.Column(1)
Felt3.value = Komnibanationsboks.Column(2)
Felt4.value = Komnibanationsboks.Column(3)

Stavekursus : Kombinationsboks .. naturligvis

Jeg skal have mere hjælp. :)

det felt der bliver opdateret fra kombinationsboxen hedder SN
et af de 3 felter der ikke bliver opdateret hedder Smodel
er det så noget i retning af

SN.value = kombinationsbox12.Column(0)
Smodel.value = kombinationsbox12.Column(1)

og det værste :( hvor skal jeg skrive koden

Du har forstået logikken c",)

Du skal skrive det i Kombinationsboksens hændelsesprocedure AfterUpdate

Hvis du vil gøre det let for dig selv, så prøv at lave en ny Combobox og når "Wizard'en" popper op vælger du bare den nederste mulighed "Find a record on my form based on the value I selected in my combo box" så længe dine 3 felter er linket op til den pågældende tabel så stifter de automatisk alt efter hvad du vælger i din combo box

Håber det kan bruges c",)

Ok, så ser det sådan ud

Private Sub Kombinationsboks12_AfterUpdate()

SN.Value = kombinationsbox.Column(0)
Smodel.Value = kombinationsbox12.Column(1)

End Sub

men så får jeg en run time error 424, Objekt required på linie

SN.Value = kombinationsbox.Column(0)

har du et godt bud på afhjælpning af det

Det er nok fordi din Kombinationsboks ikke arbejder med 0 som 1. kolonne, så er værdien 1 i stedet ...

Ups ... så lige en fejl i din kode

SN.Value = kombinationsbox.Column(0) skal hedde
SN.Value = kombinationsbox12.Column(0)

Så den korrekte burde være :

Private Sub Kombinationsboks12_AfterUpdate()

    SN.Value = Kombinationsboks12.Column(0)
    SModel.Value = Kombinationsboks12.Column(1)

End Sub

Ok, der sker noget, men jeg får stadigvæk fejl
nu i linie to
Smodel.Value = kombinationsbox12.Column(1)

Jeg har
SN.Value = kombinationsbox12.Column(1)
hvor SN.value = "27247B" som er serienummeret og den rigtige værdi,
kombinationsbox12.Column(1) indeholder værdien Null
og
Smodel.Value = Null
giver det nogen mening for dig

... og du har prøvet med .Column(0) ???

Hvordan ser din SQL-sætning ud for kombinationsboksen

Prøv med følgende kode i din AfterUpdate for Combo boxen, bare husk at substituere ComboBoxNavn med navnet på din combo box c",)

Private Sub ComboBoxNavn_AfterUpdate()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[SN] = " & str(Nz(Me![ComboBoxNavn]))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Her kommer den SQL der er på kombinationsboksen

SELECT [KIWUdstyrIngNULLOversigt Forespørgsel].Type, [KIWUdstyrIngNULLOversigt Forespørgsel].Model, [KIWUdstyrIngNULLOversigt Forespørgsel].Betegnelse, [KIWUdstyrIngNULLOversigt Forespørgsel].[S/N]
FROM [KIWUdstyrIngNULLOversigt Forespørgsel];
Det er den der gør at brugeren kan se både model og serinummer inden valg af post
kombinationsboksen viser 4 felter fra hver post

Har du mulighed for at sende Databasen ( zippet ) til OSE@POST.DK

Nej, jeg må ikke sende databasen ud af huset!

Jeg har prøvet med følgende

Private Sub Kombinationsboks12_AfterUpdate()
Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[SN] = " & Str(Nz(Me![Kombinationsboks12]))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

SN.Value = Kombinationsboks12.Column(1)
Smodel.Value = kombinationsbox12.Column(2)

End Sub

men får en runtime error 13,på linie her under

rs.FindFirst "[SN] = " & Str(Nz(Me![Kombinationsboks12]))

Me![Kombinationsboks12] indeholder den rigtige værdi for SN

Prøv lige nedenstående, og fortæl resultatet til os

Private Sub Kombinationsboks12_AfterUpdate()

  MsgBox Kombinationsboks12.Column(0)
  MsgBox Kombinationsboks12.Column(1)
  MsgBox Kombinationsboks12.Column(2)
  MsgBox Kombinationsboks12.Column(3)





End Sub

Jeg får først en box hvor der står Tastatur ved klik på ok kommer der en ny box
med C1405B som er det rigtige modelnr o.sv. alle værdier er rigtige for den valgte post,
ingen fejlmeddelelser, :)

OBS ! Vær lige opmærksom på forskellen imellen boks og box i din kodelinie

Ok, så er kolonnenummereringen ( 0 - 3 ) korrekt

Så skal dette også virke ( check lige hvordan du har navngivet kombinationsboksen )

Private Sub Kombinationsboks12_AfterUpdate()
   
  SN.Value = Kombinationsboks12.Column(0)
  SModel.Value = Kombinationsboks12.Column(1)
  Felt3.Value = Kombinationsboks12.Column(2)
  Felt4.Value = Kombinationsboks12.Column(3)

End Sub

Hej :(
det virker ikke,
eller det virker som da jeg startede, den fylder kun data i et af felterne i underformularen
dog kan jeg nu med Kombinationsboks12.Column() selv bestemme hvilken værdi der skal indsættes i dette felt.
Jeg vil prøver at lave en ny underformular, måske kommer fejlen derfra, så melder jeg tilbage.

Det slår mig lige ... dine feltes som skal opdateres, ligger de i selve formularen hvor Kombinationsboksen er, eller ligger de i en underformular ?

Er det sidste tilfældet, er koden sådan her :

Private Sub Kombinationsboks12_AfterUpdate()

    Me![UnderFormular]![SN].Value = Kombinationsboks12.Column(0)
    Me![UnderFormular]![SModel].Value = Kombinationsboks12.Column(1)
    Me![UnderFormular]![Felt3].Value = Kombinationsboks12.Column(2)
    Me![UnderFormular]![Felt4].Value = Kombinationsboks12.Column(3)

End Sub

underformularen bygger på den tabel hvor data skal gemmes,
kombinationsboksen slår data op i en forespørgsel fra en anden tabel og er en bundet
kombinationsboksen der blev ved oprettelsen lavet så den gemte værdien i et felt (SN) i underformularen, så svaret må blive at de felter der skal opdateres ligger i samme formular som kombinationsboksen.
Det er forøvrigt kun det felt (SN) jeg kam gemme data i, så jeg tror det er der fejlen er.
Jeg har for en sikkerhed skyld prøvet med
Me![UnderFormular]![SN].Value = Kombinationsboks12.Column(0) der Giver fejl
og
Me![SN].Value = Kombinationsboks12.Column(0) ingen ændring (koden avikles men der sker igen opdatering)

Kan du ikke lave en ny database, hvor du medtager de nødvendige tabeller ( uden data ), de nødvendige forespørgsler og så den pågældende formular, og maile den zipped til mig, så skal jeg se hvad jeg kan gøre for at hjælpe

:))) hurra, det lykkedes, den nye underformular, med en ubunden kombinationsboks
hvor jeg brugte din kode

Private Sub Kombinationsboks12_AfterUpdate()
   
  SN.Value = Kombinationsboks12.Column(0)
  SModel.Value = Kombinationsboks12.Column(1)
  Felt3.Value = Kombinationsboks12.Column(2)
  Felt4.Value = Kombinationsboks12.Column(3)

End Sub

gik rent igennem, mang mange tak for din indsats,

du får point

Tak ... en hård nød, men det lykkedes ... sku´ det være en anden gang c",)

Jeg har lige prøvet dette gode tip, og det virkede.
Man skal bare lige holde øje med, i hvilken rækkefølge man udvælger sin Rækkekilde, da rækkefølgen er enslydende med column (x) efterfølgende.
Samtidig skal man i comboboxen huske at angive antallet af kolonner man har i sin udvælgelse = dem man vil bruge til at overføre data til den tilhørende tabel.