none
Access 2010 Text aus Abfrage in Textfeld platzieren

    Frage

  • Hallo

    Ich habe ein Problem, wo ich einfach nicht weiterkomme, weil mir die Ideen ausgehen.

    Die Sache ist eigentlich ziemlich simpel und ich verstehe nicht, wo der Fehler liegen könnte.

    Ich habe im Formular ein ungebundenes Listefeld. Gegenüber habe ich ein Textfeld platziert, wo ich nach Auswahl eines Listenfelditems einen Text in das Textfeld platziere. Allerdings hat das Datenbankfeld ein Memoformat und nach 255 Zeichen ist da Schluss mit der einfachen Übertragung von listenfeld.column(2).

    Jetzt habe ich 2 weitere Lösungen probiert

    1. mit dLookup und
    2. mit einer kurzen select-Abfrage.

    Der Witz ist, dass der Text, also der Wert von Variablen strAusgabe zwar in der Msg-Box dargestellt wird, aber nicht im Textfeld.

    Wie bekomme ich den nach einem Button-Click in das Textfeld tfMessage?

    Ich bin für jede Idee dankbar.

    Function AusgabeTexte(id As Integer)
        Dim sql As String, ausgabe As String
        sql = "select inhalt from tblTexte where id=" & id
    
        With CurrentDb.OpenRecordset(sql)
            If Not .EOF Then
                ausgabe = ausgabe & .Fields(0)
            End If
        End With
        AusgabeTexte = ausgabe
    End Function
    
    Private Sub sfTexte_Click()
        Dim lItem As Long
        Dim itemSelected As Boolean
        itemSelected = False
        For lItem = 0 To Me.lfTexte.ListCount - 1
            If lfTexte.Selected(lItem) = True Then
                itemSelected = True
                Exit For
            End If
        Next
    
        If itemSelected = True Then
            Dim strAusgabe As String
            strAusgabe = AusgabeTexte(Me!lfTexte.Column(0))
            'strAusgabe = DLookup("[inhalt]", "tblTexte", "[id]=9")
            'strAusgabe = DLookup("inhalt", "tblTexte", "[id]=" & Me!lfTexte.Column(0))
           ' MsgBox strAusgabe
            Me.tfMessage = Trim(Me.tfNameLang) & vbCrLf & vbCrLf & strAugabe
        Else
            MsgBox ("bitte Texte auswählen")
        End If
    End Sub




    Liebe Grüße, die Luzie!

    Donnerstag, 20. Februar 2014 17:13

Antworten

  • Hallo

    Thema hat sich erledigt, es war wieder ein Tippfehler!

    Mit Option explicit wäre das nicht passiert. Sorry.


    Liebe Grüße, die Luzie!

    • Als Antwort markiert Luzie Donnerstag, 20. Februar 2014 17:36
    Donnerstag, 20. Februar 2014 17:36

Alle Antworten