Försöker hämta ett värde från ett särskilt fält och stoppa in det i en textruta.
Men jag kan inte...

Private Sub CboPropp_Click()
Nat = DcboNatagare.Text
Select Case CboPropp
Case E16Lgh
SQL = AdoNat.RecordSource = "SELECT e16l FROM natagare WHERE natagare = & Nat"
TxtFastAv.Text = SQL
Case E16A
SQL = AdoNat.RecordSource = "SELECT e16 FROM natagare WHERE natagare =" & "Nat"
TxtFastAv.Text = SQL
osv...
/Mikael

Vad jag kan se så långt är det väl följande rader som bör ses över:

SQL = AdoNat.RecordSource = "SELECT e16 FROM natagare WHERE natagare =" & "Nat"

Nat är en variabel förmodar jag, då bör raden se ut som följer:

SQL = AdoNat.RecordSource = "SELECT e16 FROM natagare WHERE natagare =" & Nat

Textsträngen SQL avslutas vid = varpå variabeln Nat Konkaterneras.

Min hjärna är en fantastisk kroppsdel. Den klarar av att styra en så komplex sak som kroppen, men klarar den av att lösa vb-problem?
Icke!

Private Sub CboPropp_Click()
Dim Nat, SQL As String
Nat = DcboNatagare.Text
Select Case CboPropp
Case E16Lgh
SQL = "SELECT e16l FROM natagare WHERE natagare =" & Nat
AdoNat.RecordSource = SQL
TxtFastAv.Text = Nat
osv...

Förklaring:

CboPropp är en vanlig combobox som jag fyller i Form Load händelsen.

DcboNatagare är en dataCombo som jag fyller från en databas(Ooohh)

TxtFastAv är en vanlig textruta som inte är kopplad till någonting.


Vad som är meningen:

Användaren gör först ett val i DcboNatagare

Därefter gör användaren ett val i CboPropp

När valet görs i Cbopropp ska ett värde hämtas från tabellen Natagare och kolumnen
e16l där värdet i kolumnen Natagare = valet i DcboNatagare.

Jo du läste rätt, jag har samma namn på tabellen och en av kolumnerna, spelar det någon roll?

Vad som händer:

Inget absolut inget, inte ens ett felmeddelande.