Hallo Leute,
ich hab ein Kombinationsfeld, der ein nach Aktualisierung oder beim Laden eine SQL Abfrage startet und ein anderes Kombinationsfeld füllt:
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
Hallo,
welchen Datentyp hat MesseNr ?
MesseNr und ReferenzNr sind "Kurzer Text" :)
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?
txtReferenzNr richtig geschrieben
Spaltenanzahl 1
Spaltenbreite 5cm als Test eingefügt, immer noch leer.
txtMesseNr1 ist ebenfalls ein Kombifeld
Danke!
Dann ersetze versuchsweise
With Forms!frmRechnungGen!txtReferenzNr
.RowSource = st
.Requery
End With
durch
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
wooo...funkt! Danke! Aber woran lag das Problem?
Super!
Ev. liegt es an 'With Forms!frmRechnungGen!txtReferenzNr'
Kannst ja mal testen mit ''With Me.txtReferenzNr' statt obigem