VBA: SQL und Kombinationsfeld

[Nadeshiko]

Hallo Leute,

ich hab ein Kombinationsfeld, der ein nach Aktualisierung oder beim Laden eine SQL Abfrage startet und ein anderes Kombinationsfeld füllt:

Code [Auswählen] Erweitern


Private Sub txtMesseNr1_AfterUpdate()

Dim st As String

st = "SELECT ReferenzNr FROM tblRechnungen WHERE MesseNr = '" & Me!txtMesseNr1 & "'"

MsgBox st

With Forms!frmRechnungGen!txtReferenzNr
    .RowSource = st
    .Requery
End With


Das Kombinationsfeld bleibt leer. Wenn ich eine Abfrage manuell starte, dann liefert er mir Werte zurück...
Wo liegt also mein dummer Fehler?

Viele Grüße

[MzKlMu]

Hallo,
welchen Datentyp hat MesseNr ?

[Nadeshiko]

MesseNr und ReferenzNr sind "Kurzer Text"

[database]

Hallo,

das Kombifeld heißt tatsächlich 'txtReferenzNr' ?
Hast du alle Eigenschaften des zu füllenden Kombifeldes geprüft - vor allem die Spaltenanzahl und die Spaltenbreite?

Ist 'txtMesseNr1' ebenfalls ein Kombifeld?

[Nadeshiko]

txtReferenzNr richtig geschrieben
Spaltenanzahl 1
Spaltenbreite 5cm als Test eingefügt, immer noch leer.

txtMesseNr1 ist ebenfalls ein Kombifeld

Danke!

[database]

Dann ersetze versuchsweise

Code (vb) [Auswählen] Erweitern


With Forms!frmRechnungGen!txtReferenzNr
    .RowSource = st
    .Requery
End With


durch

Code (vb) [Auswählen] Erweitern


Me.txtReferenzNr.RowSourceType = "Table/Query"
Me.txtReferenzNr.RowSource = "SELECT ReferenzNr FROM tblRechnungen WHERE MesseNr = '" & Me!txtMesseNr1 & "';"
Me.txtReferenzNr.ColumnCount = 1
Me.txtReferenzNr.ColumnWidth = 3

Me.txtReferenzNr.Requery


Speichere danach und schieße und öffne das Formular nochmal neu

[Nadeshiko]

wooo...funkt! Danke! Aber woran lag das Problem?

[database]

Super!

Ev. liegt es an 'With Forms!frmRechnungGen!txtReferenzNr'
Kannst ja mal testen mit ''With Me.txtReferenzNr' statt obigem