Office: (Office 365) MSAccess - Feldinhalt in Formular aus anderer Tabelle befüllen (VBA)

Hallo und guten Tag allerseits,

ich habe ein, für viele von Euch sicherlich einfach zu lösendes Problem.
In meiner Tabelle literatur habe ich unter anderem die Felder Magazin, Kennung_Jahrgang, und Coverkennung.
Im Formular frm_LitInput sind diese Felder vorhanden, wobei das Feld Coverkennung automatisch befüllt werden soll, basierend auf der Eingabe im Feld Magazin.
Mittels VBA-Code ermittle ich aus Magazin die Heftkennung.

Des weiteren gibt es eine Auswahllistentabelle list_lit_kennung in der sich die Felder CoverKen, HeftKen, Reihe befinden.

Nun möchte ich gerne mittels VBA in dieser list_lit_kennung mit dem Feld Heftkennung aus dem Formular nachsehen und die korrekte Coverkennung in das Formular- und damit Tabellenfeld Coverkennung übernehmen, komme aber leider auf keinen grünen Zweig.

Mein Code sieht folgendermaßen aus:

Private Sub Magazin_AfterUpdate()
Dim KJN As String
Dim hyphen as Integer

hyphen = InStr(Me.Magazin, " - ")

Me!Heftkennung = Left(Me.Magazin, hyphen - 1) 'Heftkennung
KJN = Me!Heftkennung

Me.Coverkennung = DLookup("[CoverKenn]", "list_lit_kennung", "[HeftKenn] = " & Me.KJN)

End Sub

Leider steht in Me.Coverkennung der folgende Wert
"SELECT list_lit_kennung!CoverKenn FROM list_lit_kennung WHERE ((([list_lit_kennung]![HeftKenn]) Like '*MS'));"

und bringt auch die Fehlermeldung, dass der Ausdruck, den ich als Abfrageparameter eingegeben habe den folgenden Fehler verursacht: 'MS'

Gebe ich das Statement in einer Abfrage als SQL-Statement ein, so wird mir das korrekte Ergebnis, in diesem Fall MS_ zurückgegeben.

Was mache ich falsch bzw. wo habe ich meinen Denkfehler???

Danke für Eure Rückmeldungen.

 

Hallo,
versuche mal:

Code:

 Me.Coverkennung = DLookup("[CoverKenn]", "list_lit_kennung", "[HeftKenn] = '" & Me.KJN) & "'")

Warum Du dann noch einen Select direkt im Formularfeld hast, kann ich nicht verstehen.
Binde das Feld an das entsprechende Tabellen/Abfragefeld welches dem Formular zugrunde liegt.