Office: (Office 2003) Objekt per Button in Datenbank & Formular einfügen

Hey,

Das werde ich auf jeden Fall tun, ist ja nur nützlich! *Smilie

Habe jetzt eine 3. Tabelle angelegt (tbl_Daten) und die Spalten Dateiname (Als Text) Und Datei (Als OLE - Objekt) und Themennummer (Fremdschlüssel) eingefügt.
Außerdem habe sie sie mit einer 1:n Beziehung über einen Fremdschlüssen mit der Tabelle tbl_Themen verbunden.

*Smilie

 

Super.

Da Du das Formular ja schon hast füge Dir jetzt den Button zum "Dokument hochladen" hinzu. Dort stellst Du in den Eigenschaften--> "Ereignis" beim Ereignis "Beim Klicken" den Wert "[Ereignisprozedur]" ein und öffnest den VBA-Editor mittels der drei Punkte am Ende der Zeile.

Ich würde sagen, wir bauen dort den Ablauf per Funktionen strukturiert ein und beziehen uns immer auf Saschas Beispiel. So dass wir am Ende folgenden sinngemäßen Aufbau haben:

Code:

Das nur als Schema. Nachfolgend werde ich immer die Funktion, die wir gerade bearbeiten und die "Sub" des Buttons aufschreiben. Sobald Du irgendwas nicht verstehst, dann frag nach. Ob Du die Funktionen auf dem Formular einfügst oder auf einem gesonderten Modul, bleibt Dir überlassen. Ich lager die meistens in ein gesondertes Modul aus, da ich die Funktionen ja möglicherweise auf einem anderen Formular auch verwenden möchte.

Dann fangen wir mal an (Änderungen bzw. Erweiterungen zu vorhergehenden Codes werde ich immer rot kennzeichnen, temporäre Zustände zur Ergebnisüberprüfung des Abschnitts in blau). Genaue Bezeichnungen Deiner Steuerelemente solltest Du dann selbst einpflegen, aber das stellt kein Problem dar, solange Du verstehst, was in den jeweiligen Abschnitten passiert.

Code:

Die dazugehörige Funktion:

Code:

Das sollte für's erste reichen. Viel Spass.

 

Hey, Wow *Smilie
Das klappt ja super!
Und ich habe sogar verstanden was ich mache *Smilie

Bin bereit für weitere Schritte!
*Smilie

 

Guten Morgen bofspb,

wie geht es denn weiter? *Smilie Bis zu dem beschriebenen Punkt klappt alles. Jetzt bin ich gespannt auf den Rest!

 

Guten Morgen. Freitag gings plötzlich drunter und drüber. Sorry. Aber hier bin ich wieder ;-) Gib mir mal 20 Minuten um mich zu sortieren.

 

Jetzt isses ja nicht mehr weit. *wink.gif* Hast Du Dir Saschas Beispiel angesehen? Dann erkennst Du, das die Funktion als Parameter den Dateinamen erwartet. Den haben wir ja am Freitag ermittelt. Nun müssen wir ihn nur noch weiterreichen.

Code:

Jetzt noch die eigentliche Speicherfunktion (ich hab die mal um die Teile zur Prüfung eingekürzt). Außerdem müssen wir der Funktion noch Deine Themennummer mitteilen, um den Datensatz zuordnen zu können. Wie Du oben siehst, steht im Funktionsaufruf die Variable Themennummer. Diese musst Du jetzt selbst anpassen (wo immer die auf Deinem Formular steht, z.B. Me!txt_Themennummer)

Code:

Jetzt brauchen wir noch die Hilfsfunktion "ExtractFileName". Die übernehmen wir einfach 1 zu 1.

Code:

 

Habe jetzt alles so weit gemacht und verstanden.
Jetzt kommt aber leider wenn ich den Befehl ausführe eine Fehlermeldung *frown.gif*
Habe mal ein Screenshot von der Fehlermeldung angehängt!
Vielen vielen Dank *Smilie

 

Ach man, gar nicht, irgendwie hab ich den letzten Code übersehen!!!! *Smilie Erstmal noch anschauen!

 

Okay, Fehler besteht weiterhin. *frown.gif*

 

Zunächst schau mal im VBA-Editor unter "Extras"--> "Verweise" ob dort "Microsoft DAO 3.x Object Library" aktiviert ist.

 

Jabb ist aktiviert! *Smilie

 

Dann geh mal Deinen Code schritt für Schritt durch. (Cursor in die Zeile "Private Sub DeinButton_Click()" und dann F9 drücken). Dann gehst Du auf Dein Formular und drückst den Button. Er springt jetzt in den VBA-Editor. Nun kannst Du mit der F8-Taste schritt für Schritt durch den Code gehen. An welcher Stelle fliegt er denn raus?

 

Das sagt er mir nicht. Den Haltepunkt setzen funktioniert, aber wenn ich den Button im Formular drücke, dann komme ich nicht in den VBA Editor.
Sehe nicht, wo der Fehler liegt, werde einfach nochmal den Code durchgehen zeile für zeile ob ich nicht was vergessen habe.

 

Bei

Steht im Formular als ThemenNr Schreibe ich jetzt in den Code Me!txt_ThemenNr?