Kombinationsboks skal sæge på 2 felter

Hmm, hvis jeg forstår dig ret, så vil du lave en komboboks, med én kolonne i dropdown-listen. Denne kolonne skal enten vise varenummer eller EAN-nr!?

Jeg forstår dog ikke hvilket felt, du ønsker at måle længden på??

Hvis Len(?) = 13 skal det være EAN

I hvert fald skal rækkekilden til din komboboks være en forespørgsel hvor du har et felt, som ser nogenlunde således ud:
Vare: IIf(Len([Ukendt felt])=13;[EAN];[Varenummer])

/Thomas

13 er lengden på Ean nummeret, og varenummer er
max 10 tegn, so kombiboksen skal fångere sodan at vis lengden er 13 tegn så bruger den ean nr i varedatabasen ellers bruger den varenr

P.S. sådan ser koden ud nu

Private Sub Innskriving_AfterUpdate()
  \'Innskriving av vørium í keypslistan
    Me![Vøru listi.Vøru_nr] = Me![Innskriving]
 
    \'Um nøgd er støri en 1
    If Me![Nøgd] >= \"1\" Then
    \'verður tað standandi sum er í feltinum
    Me![Nøgd] = Me![Nøgd]
    Else
    \'Er nøgd 1 sum standard
    Me![Nøgd] = \"1\"
    End If
   
    Me![á_kr] = Me![Soluprisur] * [Mvg] +      [Soluprisur]
    Me![Upphædd] = Me![Soluprisur] * Me![Nøgd] * [Mvg] + [Soluprisur]
    Me![Keyps prísur] = Me![Kostprisur] * Me![Nøgd] * [Mvg] + [Kostprisur] * [Nøgd]
End Sub

Private Sub Innskriving_AfterUpdate()
  \'Innskriving av vørium í keypslistan


    Me![Vøru listi.Vøru_nr] = Me![Innskriving]
 
    \'Um nøgd er støri en 1
    If Me![Nøgd] >= \"1\" Then
    \'verður tað standandi sum er í feltinum
    Me![Nøgd] = Me![Nøgd]
    Else
    \'Er nøgd 1 sum standard
    Me![Nøgd] = \"1\"
    End If
   
    Me![á_kr] = Me![Soluprisur] * [Mvg] +      [Soluprisur]
    Me![Upphædd] = Me![Soluprisur] * Me![Nøgd] * [Mvg] + [Soluprisur]
    Me![Keyps prísur] = Me![Kostprisur] * Me![Nøgd] * [Mvg] + [Kostprisur] * [Nøgd]
End Sub

UPS... Prøver igen... Du kal nok lave en selektion på længden af dit indtastningsfelt:

Private Sub Innskriving_AfterUpdate()
  \'Innskriving av vørium í keypslistan
    If Len(Me![Innskriving])=13 Then
      Me![Vøru listi.Vøru_nr] = DLookUp(\"[Vøru_nr]\",\"Vøru listi\",\"[EAN]=\" & Me![Innskriving])
    Else
      Me![Vøru listi.Vøru_nr] = Me![Innskriving]
    End If
 
    \'Um nøgd er støri en 1
    If Me![Nøgd] >= \"1\" Then
    \'verður tað standandi sum er í feltinum
    Me![Nøgd] = Me![Nøgd]
    Else
    \'Er nøgd 1 sum standard
    Me![Nøgd] = \"1\"
    End If
   
    Me![á_kr] = Me![Soluprisur] * [Mvg] +      [Soluprisur]
    Me![Upphædd] = Me![Soluprisur] * Me![Nøgd] * [Mvg] + [Soluprisur]
    Me![Keyps prísur] = Me![Kostprisur] * Me![Nøgd] * [Mvg] + [Kostprisur] * [Nøgd]
End Sub