unterschiedliche Datenbankfelder einem Textfeld in einem Formular zuweisen

[smily68]

Hallo

Ich stehe vor folgendem Problem. Ich habe mehrere Memofelder. Nun möchte ich in meinem Formular mit einem Kombinationsfeld ein Memofeld aussuchen und so die Verbindung des entsprechenden Datenbankfeldes dem Textfeld im Formular zuweisen. Wie kann ich das machen?

Gruss Daniel

[smily68]

Ich bin ein Stück weitergekommen. Mit folgendem Code kann ich die verschiedenen Felder aus der Tabelle dem Textfeld auf dem Formular durch eine Kombiboxfeld zuweisen. Ich sehe den Inhalt, doch kann ich diesen nicht überarbeiten

Private Sub cboNotizBereich_AfterUpdate()

    Dim strFeldName As String

    strFeldName = DLookup("adreText_FeldName", "tblCboAdreTexte", "adreText_ID = " & Me.cboNotizBereich)
    Me.Form.RecordSource = "SELECT * FROM qryAdresseTexte WHERE adresse_ID = " & Me.Parent!adresse_ID & " AND adreTeilSes_AdreMitGlied_IDF = " & Me.Parent!sfrAdresseMitgliedListe!adreMitglied_ID & " AND adreTeilSes_Session_IDF = " & Me.Parent!cboAdreSes_Session_IDF
    Me.txtAdresse_Bem.ControlSource = strFeldName
    Me.Refresh

End Sub

Gruss Daniel

[DF6GL]

Hallo,

vermutlich ist die Abfrage "qryAdresseTexte" nicht aktualisierbar....

[smily68]

Ja ich habe den Fehler gefunden. Meine Abfrage war so aufgebaut, dass sie nicht aktualisierbar ist. Da die Felder in unterschiedlichen Tabellen sind mache ich nun Select Case eine Unterscheidung und mache mein Me.Forme.RecordSource direkt auf die Tabelle. Nun funktioniert es.

Gruss Daniel