Office: Über inputbox in eine Tabelle schreiben

Hallo,

möchte über eine Inputbox etwas in eine Tabelle schreiben , wie mache ich das ?

 

Z.B. per VBA über
opendatabase
openrecordset
.addnew
.edit
.update
.close

Gruß, Michael

 

dann nenne mir doch bitte mal ein Beispiel wie ich nach dem obrigen Vorschlag zb in die Tabelle "Daten" in das Feld "Text" schreiben kann.

 

Ein prima Beispiel findest Du in der Online-Hilfe zu Access unter dem Suchbegriff "addnew" (im VBA-Editor eintippen und F1 drücken). Auch bei --> MSDN gibt's da was.

Wichtig dabei, unter Extras - Verweise muß die DAO-Bibliothek angehakt sein. Als Default dürfte das neuere ADO aktiviert sein, mit der die Syntax etwas anders, die Vorgehensweise aber fast gleich ist.

Als Alternative könntest Du natürlich auch einen SQL-String mit --> "INSERT INTO ..." zusammenbasteln und mit docmd.runsql abschicken.

Gruß, Michael

 

Sorry blick da nicht durch

 

Dann auch an dieser Stelle nochmal die Frage:

Was hast Du bisher versucht und was klappte nicht bzw. an welcher Stelle kommst du nicht weiter? Kopiere ggf. den VBA-Code hier rein, damit man sich den mal ansehen kann.

Gruß, Michael

 

Also einen Quelltext habe ich noch nicht, weil ich ja schon das Problem habe einen Wert über die Inputbox in eine Tabelle zu schreiben,

 

So poste jetzt hier einfach mal meinen aktuellen stand der dinge.
Ich muss noch irgendwie die Inputbox zu laufen bringen.

 

Naja, das hat jetzt ein bißchen was von Henne und Ei... ;-) Du kannst nur einen Wert von einer InputBox in eine Tabelle schreiben, wenn du einen VBA-Source hast. Von alleine passiert da eher nichts.

Hmmm... Ok... Also das Formular besteht im Prinzip ja nur aus
a) Formular öffnen ==> Text aus Tabelle lesen und in das Laufschriftfeld einsetzen
b) Timer ==> Text nach links bzw. rechts umlaufen lassen
c) Timer-Button ==> Geschwindigkeit aus Eingabefeld in Timer-Intervall setzen
d) Schließen-Button ==> Formular schließen

Deine Erweiterung jetzt
e) Input-Button ==> Anzeigen einer Input-Box

Und das war's auch schon. Leider verwirfst / ignorierst Du den Rückgabewert der Inputbox. Da kann der Anwender eingeben, was er will, es verschwindet im großen Bit-Bucket.

Die Inputbox hat einen Rückgabewert, siehe dazu bitte die Online-Hilfe. Diesen Wert mußt du einer Variablen zuweisen und kannst diese dann in die Tabelle schreiben oder direkt in das Laufschriftfeld einsetzen oder auch beides.

Also als Gerüst so in der Art:

Code:

Private Sub btn_Texteingabe_Click()

    Dim NeuText As String

    NeuText = InputBox("Bitte einen Text eingeben:")
    If (NeuText <> "") Then
        ' ...
    End If

End Sub

Die Frage ist also, was machst Du bei den 3 Punkten in der Mitte. Und da kommt eben .AddNew, .Edit oder ein entsprechender SQL-String oder was auch immer ins Spiel.

Ohne Speicherung in der Tabelle würde reichen:

Code:

       Me!Lauftext = NeuText & "          "

Mit Speicherung könnte es sowas in der Art werden:

Code:

        Dim DB As Database
        Dim RS As Recordset

        [ ... ]

        Set DB = CurrentDb
        Set RS = DB.OpenRecordset("Tabelle", dbOpenDynaset)
        'rs.MoveFirst
        RS.Edit
        RS("Feldname") = NeuText
        RS.Update
        DB.Close

Gruß, Michael

 

Super klappt aber das mit den "[...]" habe ich noch nicht so ganz verstanden. Weil das speicher klappt auch ohne ".AddNew" oder ".Edit".

Jetzt habe ich da noch ne frage:

In der Inputbox ist ja das Eingabefeld - kann ich dort auch den Text anzeigen lassen (altem Text auslesen) den ich zuvor eingegeben habe um diesen zu ergänzen - so brauche ich den Text nicht immer neu Einzugeben.

 

Ähm, nein, nicht ganz...

Wenn Du das Formular öffnest, wird der Lauftext aus der Tabelle gelesen. Mit der InputBox wird dann ein neuer Text in das Laufschrift-Feld eingesetzt, aber nicht in der Tabelle gespeichert. Wenn Du das Formular schließt und wieder öffnest, hast Du den alten Text wieder drin.

Ohne diese .Edit und Konsorten Geschichte kannst Du das ggf. auch erreichen, wenn das Laufschrift-Feld nicht nur ein normales Text-Feld ist, sondern dies auch über eine Datenquelle im Formular mit dem entsprechenden Datenfeld in der Tabelle verknüpft ist. Ohne das muß der Datensatz sozusagen "manuell" aktualisiert bzw. erzeugt werden.

Klar, aber das hast Du in der Online-Hilfe zur InputBox sicher auch schon gelesen, oder? Die hattest Du Dir nach dem letzten Posting ja bestimmt schon angesehen. Denn ich schrieb ja:

Du könntest dazu

Code:

Dim AltText As String

[ ... ]

AltText = Trim$(DLookup("Datenfeld", "Tabelle"))

nehmen. Der Text wird dann genau so wie im FormOpen aus der Tabelle gelesen. Ich würde übrigens aus Performance-Gründen eher DFirst anstelle von DLookup benutzen...

Dann kannst Du AltText als Parameter für die InputBox benutzen.

Gruß, Michael