Office: (Office 2016) Wie einem CommandButton per VBA eine OnClick-Eigenschaft zuweisen?

Hallo Forum,

ich möchte per VBA einem CommandButton eine OnClick-Eigenschaft zuweisen. Leider sagt mir Access aber immer, dass er die zugewiesene VBA-Prozeduren nicht findet.

Hier mein Code:

Code:

Bei der Schreibweise der Ereignisprozedur halte ich mich an Microsoft:
https://msdn.microsoft.com/de-de/lib.../ff845322.aspx

Da es sich um VBA-Code handelt, den ich aufrufen möchte, verwende ich die Schreibweise mit den eckigen Klammern und den Anführungszeichen.
Der Button wird wie gesagt ordnungsgemäß erstellt, aber wenn ich ihn anklicke erhalte ich die folgende Fehlermeldung:

Habt ihr eine Idee was ich falsch mache?

Beste Grüße

zachy

:)

 

Hallo!

Willst du per Code eine Ereignisbehandlung (also über WithEvents) aktivieren oder willst du eine Funktion ausführen lassen?

Damit die Ereignisbehandlung läuft:
Code:

.. und dann über den VBA-Code mittels Ereignisprozedur behandeln.
Anm.: falls du den auch noch per VBA einfügen willst, kannst du das im Entwurf z. B. über die CreateEventProc-Methode der Modul-Klasse umsetzen (In diesem Fall musst du [Event Procedure] nicht einstellen.)

Falls du nur eine Funktion (muss Function sein, Sub geht nicht) ausführen lassen willst:
Code:

mfg
Josef

 

Hallo Josef,

ich weiß nicht, ob ich dich richtig verstanden habe. Ich möchte, dass wenn auf den Button geklickt wird, eine Prozedur ausgeführt wird.
Ich soll also den Text Event Procedure nicht durch den Namen der Prozedur ersetzen. Ok, ich habe jetzt folgendes in meinem Code geändert:

Code:

Damit Access meine Prozedur findet, habe ich sie jetzt folgendermaßen benannt (liegt natürlich im gleichen Modul):

Code:

Access bringt nun keine Fehlermeldung, wenn ich auf den Button klicke. Allerdings passiert auch nichts. Irgendwas ist noch nicht richtig.

Kannst du mir bitte noch mal helfen?

 

Hallo!

Dann reicht:

Code:

mit:
Code:

Falls du die Ereignisbehandlung über eine Eventprozedur machen willst und ich dich mit etwas mehr Code "erschlagen" darf: CodeModuleWriter.cls
Die Methode AddCodeToEventProcedure fügt den Code in die Ereignisbehandlungsprozedur an.

Luftcode für deinen Anwendungsfall:
Code:

mfg
Josef

 

Hallo Zachy,

Du kannst auch mal hier nachlesen.


Gruß Carsten

 

mit:
Code:

Hallo Josef,

ich habe es so probiert wie von dir geschildert. Leider haut mir Access jetzt wieder eine Fehlermeldung um die Ohren. Hier noch mal zur Sicherheit der komplette Code:

Code:

Im gleichen Modul liegt diese Funktion:

Code:

Access sagt nun:

Was ich vielleicht noch dazu sagen sollte:
Der gesamte Code, also sowohl das Erstellen der Buttons, als auch die Funktion die aufgerufen werden soll, sind Bestandteile eines Klassenmoduls.
Kann es vielleicht damit etwas zu tun haben?

P.S. CodeModuleWriter.cls Habe ich mir noch nicht ausführlich angeschaut. Ich hoffe das es erst mal ohne geht. :-D

P.P.S. Hallo Carsten, dein Link führt bei mir zu einer toten Seite.

Gruß
zachy

 

Hallo!

Ok, das ist das Problem. *wink.gif*
Die Funktion, die bei OnClick eingetragen ist, muss entweder in der Formularklasse vom Formular mit dem Button sein oder als Public Function in einem Standardmodul.
Wenn du in einer Klasse auf das Click-Ereignis reagieren willst, musst du WithEvents verwenden.

Kannst du einmal kurz beschreiben, was du machen willst?

Für mich klingt es etwas eigenartig, dass du den Code zum Einfügen eines Buttons in ein Formular in der gleichen Klasse wie die Ereignisbehandlung, die auf das Click-Ereignis reagieren soll, hast.
.. das eine ist Code für den Formularentwurf, das andere ist Code, den man zur Laufzeit benötigt.


Kennst du die WithEvents-Anweisung?

In die Klasse, die auf den Button-Click reagieren soll, schreibst du folgendes:
Nur Luftcode!
Code:

mfg
Josef

 

Aha, 'ausgesternelt':http://www.*************************154593_0_0_asc.php

Ich war viele Jahre nicht hier und nach so vielen Jahren kann man immer noch keinen Link zum Nachbarforum setzen. Ich wundere mich immer wieder ...
... Kindergarten.

Der Link sollte dahin zeigen:
http://www.office - loesung.de/ftopic154593_0_0_asc.php
(Bitte kopieren und die beiden Leerzeichen vor und nach dem Minuszeichen entfernen.)


Das funktionierte früher jedenfalls und sicher auch heute noch so.
Wobei ich das heute in Klassen auslagern würde.


Gruß Carsten

 

mfg
Josef

Hallo Josef,

danke genau das war's! Ich habe die Funktion jetzt in ein anderes Modul gelegt und es funktioniert einwandfrei! :-D

Zu deiner Frage was ich tue:

Ich greife mit meiner Access-Datenbank auf einen SQL Server zu und möchte für jede Tabelle auf dem SQL Server ein Suchformular anlegen. Da ich nicht jedes Suchformular per Hand anlegen möchte, habe ich eine Klasse geschrieben, welche das für mich übernimmt und unter anderem die richtige Anzahl an Suchfeldern angelegt.

Der Button soll letztendlich die Suche auslösen. Die Prozedur, welche die gewünschten Daten aus dem Server abruft, ist ebenfalls fertig. Es scheiterte bislang nur an dem Klick auf den Button.

Aber jetzt funktioniert es! Vielen Dank noch mal! *biggrin.gif*

Mit den besten Grüßen

zachy

 

Hallo!

Interessehalber nachgefragt:

Wie gehst du bei dieser automatischen Suchfeldererstellung mit Fremdschlüsselfeldern um? Liest du die Beziehung automatisiert aus und verwendest Comboboxen als Filter-Steuerelement?

Weil es zum Thema "Suchformular erstellen" passt:
Die von mir erwähnte CodeModuleWriter-Klasse wird in einem Add-In verwendet, dass bei der Erstellung von Such-/Filter-Formularen hilft.
Arbeitsweise des ACLib-FilterForm-Wizard kannst du als Video ansehen. (Video ist ungekürzt - du siehst in 7:30 min wie ein Filterformular entsteht.)

mfg
Josef