✔ Der TextBox Inhalt aus DB geben

[Manii]

Schon wieder eine geistige Schranke, die ich mit eurer Hilfe entriegeln will:

Ich möchte, dass meine TextBox den String, der in einer Datenbank liegt, auf Knopfdruck anzeigt. Genau so, wie die anderen Felder auch.

Hier mein Code:

 txt = rs.Fields("strTEXT")
    Set txt.DataSource = rs
    
    Range("B18") = rs.Fields("strBESTNR")
    Range("F18") = rs.Fields("strPROJEKT")
    Range("I18") = rs.Fields("strAUFTRAG")

Das ist alles was ich mit der TextBox bis jetzt gecoded habe. Mehr Code über oder für sie gibts nicht. Die unteren 3 Felder habe ich nur hier rein kopiert, damit ihr seht wie ich das möchte. Also so wie der Inhalt "strBESTNR" von der Datenbank ins Feld "B18" kommt, möchte ich dass der Inhalt von "strTEXT" in meine TextBox kommt.

Grüsse..

PS: Ich hoffe ihr habt alle ne Klimaanlage..

 

[5Rad]

Text1.text = rs.Fields("strgText")

Meintest du vielleicht das?!

lg
Piti

 

[Manii]

Danke für die schnelle Antwort erstmal, jetzt zu deiner Idee

Sie klingt ansich nicht schlecht, sieht auch sinnvoller aus als meine Version, aber:
Der Fehler bleibt genau der gleiche:

"Ein Objekt, das dem angeforderten Namen oder dem Ordinalverweis entspricht, kann nicht gefunden werden."

 

[Manii]

Worksheets(Application.Sheets(1).Name).Text1.Value = rs.Fields("strTEXT")

sowas brauchte ich