{"id":55000685,"date":"2009-10-01T00:00:00","date_gmt":"2020-05-22T22:17:48","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=685"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Ereignisse_im_Eigenbau","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/","title":{"rendered":"Ereignisse im Eigenbau"},"content":{"rendered":"

\"\"<\/p>\n

Ereignisse werden durch Formulare, Berichte und deren Steuerelemente ausgelöst und vielleicht noch durch einige Objekte, deren Ereignisse man sich auch noch extra per WithEvents-Anweisung gefügig machen muss. Oder gibt es da noch mehr Ja, gibt es! Sie können nämlich eigene Ereignisse samt Ereignisprozedur und Parameter definieren und festlegen, wann diese ausgelöst werden. Wie das geht und was Sie davon haben, erfahren Sie in diesem Beitrag.<\/b><\/p>\n

Eigene Ereignisse programmieren … als ob die Menge der Ereignisse etwa von Formularen nicht schon unübersichtlich genug wäre! Und damit kann man doch alles machen, was nötig ist, oder nicht Nun: Sie können schon eine Menge mit den eingebauten Ereignissen erledigen, aber fehlte Ihnen da noch nie etwas<\/p>\n

Bevor wir zu einem handfesten Beispiel für das Erweitern eines Formulars um ein benutzerdefiniertes Ereignis kommen, schauen wir uns die grundlegende Technik einmal an, und zwar am Beispiel einer Klasse, die von einem Formular referenziert und verwendet wird.<\/p>\n

Die Klasse soll irgendetwas unheimlich Spannendes und Aufwendiges tun, was wir in diesem Beitrag aber gar nicht unbedingt komplett beleuchten müssen – zum Beispiel eine E-Mail versenden, deren Daten der Klasse zuvor zugewiesen wurden. Die Klasse enthält zunächst einige Eigenschaften, die für den Versand einer Mail wichtig sind:<\/p>\n

Dim m_Empfaenger As String\r\nDim m_Absender As String\r\nDim m_Betreff As String\r\nDim m_Inhalt As String<\/pre>\n
Diese Eigenschaften macht die Klasse nach außen über eine Public Property <\/b>verfügbar – hier etwa für die Eigenschaft Empfaenger<\/b>:<\/p>\n
Public Property Let Empfaenger(strEmpfaenger\r\nAs String)\r\nm_Empfaenger = strEmpfaenger\r\nEnd Property<\/pre>\n
Das ist alles noch nichts Neues – auch nicht die Methode Senden<\/b>, mit der man den Versand der E-Mail durchführen kann und die hier um die eigentliche Funktion erleichtert wurde:<\/p>\n
Public Sub Senden()\r\n€Versendet die E-Mail ...\r\n€ ... viele Befehle ...\r\n€Ruft benutzerdefiniertes Ereignis auf:\r\nRaiseEvent MailVersendet\r\nEnd Sub<\/pre>\n
Interessant wird es bei der Zeile RaiseEvent MailVersendet<\/b>. RaiseEvent <\/b>sorgt dafür, dass das als Parameter angegebene Ereignis ausgelöst wird. Dieses müssen Sie vorher allerdings noch deklarieren, und zwar im Modulkopf:<\/p>\n
Public Event MailVersendet()<\/pre>\n
Dies ist die denkbar einfachste Variante einer Ereignisdefinition – das nackte Ereignis enthält keinerlei Parameter.<\/p>\n
Wenn Sie im VBA-Editor zunächst das Ereignis mit dem Schlüsselwort Events<\/b> deklarieren, können Sie später nach der Eingabe des Befehls RaiseEvents<\/b> per IntelliSense darauf zugreifen (siehe Bild 1).<\/p>\n
\"pic002.png\"<\/p>\n
Bild 1: Auf benutzerdefinierte Ereignisse können Sie im gleichen Modul per IntelliSense zugreifen.<\/span><\/b><\/p>\n
Wenn Sie nun ein Formular wie das aus Bild 2 verwenden, können Sie darüber ein Objekt auf Basis der Klasse clsMail <\/b>instanzieren, mit den benötigten Daten füttern und die Mail absenden. Ach, und natürlich können Sie auf das Ereignis reagieren, das beim Absenden der Mail ausgelöst wird. Dies geschieht in drei Schritten:<\/p>\n
\"pic001.png\"<\/p>\n
Bild 2: Dieses Formular reagiert auf das benutzerdefinierte Ereignis der Klasse clsMail.<\/span><\/b><\/p>\n
Zunächst einmal müssen Sie eine Objektvariable für die Klasse clsMail <\/b>deklarieren. Dabei verwenden Sie das Schlüsselwort WithEvents<\/b>, welches es ermöglicht, dass Sie auf die Ereignisse der Klasse reagieren können:<\/p>\n
Dim WithEvents objMail As clsMail<\/pre>\n
Dann instanzieren Sie die Klasse und weisen dieser die Werte aus den Textfeldern des Formulars zu:<\/p>\n
Private Sub cmdSenden_Click()\r\nSet objMail = New clsMail\r\nWith objMail\r\n.Absender = Me.txtAbsender\r\n.Empfaenger = Me.txtEmpfaenger\r\n.Betreff = Me.txtBetreff\r\n.Inhalt = Me.txtInhalt\r\n.Senden\r\nEnd With\r\nEnd Sub<\/pre>\n
Schließlich fehlt noch die Definition der Ereignisprozedur, welche die Anweisungen enthält, die beim Auslösen des Ereignisses ausgeführt werden sollen.<\/p>\n
<\/p>\n
Dieses Ereignis legen Sie über die beiden Kombinationsfelder des VBA-Fensters der Formularklasse an, indem Sie zunächst links den Eintrag objMail <\/b>und dann rechts MailVersendet <\/b>auswählen (siehe Bild 3). Die Routine versehen Sie mit einer einfachen MsgBox<\/b>-Anweisung:<\/p>\n
\"pic003.png\"<\/p>\n
Bild 3: Anlegen einer Ereignisprozedur für ein benutzerdefiniertes Ereignis<\/span><\/b><\/p>\n
Private Sub objMail_MailVersendet()\r\nMsgBox \"Die Mail wurde versendet.€\r\nEnd Sub<\/pre>\n
Wenn Sie nun das Formular in der Formularansicht öffnen und auf die Schaltfläche Senden <\/b>klicken, wird ein Objekt auf Basis der Klasse clsMail <\/b>instanziert, gefüllt und seine Methode Senden <\/b>aufgerufen. Dies führt wiederum zum Auslösen des Ereignisses MailVersendet<\/b>, was im Formular das Anzeigen des gewünschten Meldungsfensters nach sich zieht.<\/p>\n
Alternativen und was ihnen fehlt<\/b><\/p>\n
Das hätten wir auch einfacher haben können: Sie deklarieren die Methode Senden <\/b>in der Klasse clsMail <\/b>einfach als Funktion und legen für diese einen Rückgabewert des Typs Boolean <\/b>fest, der nach erfolgtem Versenden den Wert True <\/b>zurückliefert. Die Schaltfläche cmdSenden <\/b>fragt diesen Wert dann ab und zeigt im Falle von True <\/b>ein entsprechendes Meldungsfenster an.<\/p>\n
Aber: Was wäre, wenn das Formular beispielsweise den Fortschritt des Sendevorgangs anzeigen sollte – so wie in Bild 4 Woher bekäme es den aktuellen prozentualen Fortschritt Nun, die Breite des Rechteck-Steuerelements kann man ja von außen in der folgenden Form beeinflussen, und das ginge ja auch von der Senden<\/b>-Methode der Klasse aus:<\/p>\n
\"pic004.png\"<\/p>\n
Bild 4: Anzeige eines Fortschrittbalkens<\/span><\/b><\/p>\n
Forms!frmMail!rctFortschritt.Width = 1000<\/pre>\n
Aber was, wenn das Formular frmMail <\/b>überhaupt nicht geöffnet ist, weil der Mailversand von ganz anderer Stelle initiiert wurde Und entspricht denn das überhaupt einem guten Programmierstil Nein, natürlich nicht: Auf diese Weise würden Sie eine zusätzliche Abhängigkeit der Klasse clsMail <\/b>vom Formular frmMail <\/b>einbauen, was nicht erstrebenswert ist – vor allem deshalb, weil die Klasse sonst nicht von anderen Komponenten aus genutzt werden könnte. Und außerdem wäre dies ja ein schlechtes Beispiel, wenn es nicht ein geeignetes benutzerdefiniertes Ereignis für unseren Anwendungsfall gäbe.<\/p>\n
Fortschritt<\/b><\/p>\n
Das Formular hat also ein Rechtecksteuerelement namens rctFortschritt <\/b>zusätzlich erhalten, und die Methode Senden <\/b>der Klasse clsMail <\/b>ist auf sehr interessante, aber hier nicht näher beleuchtete Weise in der Lage, den Fortschritt beim Versenden der Mail in prozentualer Form zu liefern.<\/p>\n
Die folgende API-Funktion hilft dabei, den Fortschritt gerade so schnell zu machen, dass er im Fortschrittsbalken noch zu erkennen ist:<\/p>\n
Private Declare Sub Sleep Lib \"kernel32€ (ByVal dwMilliseconds As Long)<\/pre>\n
Wohlweislich definieren wir im Kopf von clsMail <\/b>einmal das folgende benutzerdefinierte Ereignis und legen dafür einen Parameter namens intProzent <\/b>fest:<\/p>\n
Public Event Fortschritt(intProzent As Integer)<\/pre>\n
Die Senden<\/b>-Methode fügt unsere Bausteine nun so zusammen, dass das Ereignis Fortschritt <\/b>jede hundertstel Sekunde einmal aufgerufen wird – und zwar mit dem Wert der Zählervariablen i <\/b>als Parameterwert:<\/p>\n
Public Sub Senden()\r\nDim i As Integer\r\n€Versendet die E-Mail ...\r\n€ ... viele Befehle ...\r\nFor i = 1 To 100\r\nSleep 10\r\nRaiseEvent Fortschritt(i)\r\nDoEvents\r\n Next i\r\n    €Ruft benutzerdefiniertes Ereignis auf:\r\n    RaiseEvent MailVersendet\r\n    End Sub<\/pre>\n
Das Ereignis fügen wir natürlich nun auch noch zum Formular frmMail <\/b>hinzu. Erstmal brauchen wir eine Variable, welche die ursprüngliche Breite des Rechtecks speichern soll:<\/p>\n
Dim lngWidth As Long<\/pre>\n
Diese wird beim Klick auf Senden <\/b>mit der aktuellen Breite des Fortschritts-Rechtecks gefüllt:<\/p>\n
lngWidth = Me!rctFortschritt.Width<\/pre>\n
Schließlich folgt die Deklaration des Ereignisses, das den Fortschritt aus dem Parameter ausliest und die Breite des Fortschritts-Rechtecks entsprechend der übermittelten Prozentzahl anpasst:<\/p>\n
Private Sub objMail_Fortschritt(intProzent As\r\n Integer)\r\n    Me!rctFortschritt.Width =\r\n    lngWidth * intProzent \/ 100\r\n    End Sub<\/pre>\n
Fertig: Dies lässt sich ohne zusätzliche Abhängigkeiten kaum anders abbilden als mit benutzerdefinierten Ereignissen. Wie war das nochmal mit der Abhängigkeit Ach ja: Die Klasse soll ja nicht nur von einem speziellen Formular aus aufgerufen werden und dessen Fortschrittsbalken über eine direkte Referenz anpassen können. Stattdessen sollte die aufrufende Instanz selbst entscheiden, wie sie mit den übermittelten Prozentzahlen umgeht – und das ist hier der Fall: Genau genommen kann das Ereignis ja auch komplett ignoriert werden.<\/p>\n
Formulare um benutzerdefinierte Ereignisse erweitern<\/b><\/p>\n
Was mit handelsüblichen Klassen möglich ist, funktioniert auch mit den Klassenmodulen von Formularen und Berichten: Sie lassen sich ebenfalls um benutzerdefinierte Ereignisse erweitern. Im Beitrag Ereignisprozeduren implantieren <\/b>(Shortlink 686) stehen wir im letzten Teil vor dem Problem, dass wir von einem aufrufenden Formular aus kein Ereignis eines Popup-Formulars anzapfen konnten, um einen Zeitpunkt nach dem Anklicken der OK<\/b>-Schaltfläche, aber vor dem Schließen des Formulars abzupassen. Der Hintergrund war, dass wir ein Textfeld des Popup-Formulars auslesen und seinen Inhalt in ein Textfeld des aufrufenden Formulars schreiben wollten. Es war zwar möglich, auf das Klicken der OK<\/b>-Schaltfläche zu reagieren, aber erst nach dem Abarbeiten des OnClick<\/b>-Ereignisses der Schaltfläche im Popup-Formular selbst – und die löste mit DoCmd.Close <\/b>bereits das Schließen des Formulars aus, womit beim Auslösen des zweiten, implantierten OnClick<\/b>-Ereignisses kein Zugriff auf das Formular mehr möglich war. Dem Formular frmPopup_II <\/b>weisen Sie dazu zunächst folgende Deklaration hinzu:<\/p>\n
Public Event CloseForm()<\/pre>\n
Die Ereignisprozedur, die beim Klicken auf die OK<\/b>-Schaltfläche ausgeführt wird, löst nun zunächst das benutzerdefinierte Ereignis aus und schließt dann das Formular:<\/p>\n
Private Sub cmdOK_Click()\r\n    RaiseEvent CloseForm\r\n    DoCmd.Close acForm, Me.Name\r\n    End Sub<\/pre>\n
Im aufrufenden Formular brauchen Sie folgende Deklaration der Formularklasse:<\/p>\n
Dim WithEvents objFrmPopup As Form_frmPopup_II<\/pre>\n
Das einzige Ereignis dieser Klasse implementiert das Formular wie folgt:<\/p>\n
Private Sub objFrmPopup_CloseForm()\r\n    Me!txtVonPopup = objFrmPopup!txtPopup\r\n    End Sub<\/pre>\n
Fertig! Sie können nun vor dem Schließen des Formulars automatisiert auf dessen Steuerelemente zugreifen und haben außerdem ein völlig unabhängiges Popup-Formular, das Sie von anderen Instanzen aus ebenfalls aufrufen können – egal, ob diese auch auf dessen Steuerelemente zugreifen möchten. Beachten Sie, dass Sie nicht das Formular selbst, sondern die Formularklasse referenzieren müssen, wenn Sie auf benutzerdefinierte Ereignisse zugreifen möchten.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
Ereignisse.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Ereignisse werden durch Formulare, Berichte und deren Steuerelement ausgelöst, und vielleicht noch durch einige Objekte, deren Ereignisse man sich auch noch extra per WithEvents-Anweisung gefügig machen muss. Oder gibt es da noch mehr Ja, gibt es! Sie können nämlich eigene Ereignisse samt Ereignisprozedur und Parameter definieren und festlegen, wann diese ausgelöst werden. Wie das geht und was Sie davon haben erfahren Sie in diesem Beitrag.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662009,66052009,44000025],"tags":[],"class_list":["post-55000685","post","type-post","status-publish","format-standard","hentry","category-662009","category-66052009","category-VBA_und_Programmiertechniken"],"yoast_head":"\nEreignisse im Eigenbau - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Ereignisse im Eigenbau\" \/>\n<meta property=\"og:description\" content=\"Ereignisse werden durch Formulare, Berichte und deren Steuerelement ausgelöst, und vielleicht noch durch einige Objekte, deren Ereignisse man sich auch noch extra per WithEvents-Anweisung gefügig machen muss. Oder gibt es da noch mehr Ja, gibt es! Sie können nämlich eigene Ereignisse samt Ereignisprozedur und Parameter definieren und festlegen, wann diese ausgelöst werden. Wie das geht und was Sie davon haben erfahren Sie in diesem Beitrag.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T22:17:48+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"8\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Ereignisse im Eigenbau\",\"datePublished\":\"2020-05-22T22:17:48+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/\"},\"wordCount\":1493,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/424feb315ad347c994cf7755d473944b\",\"articleSection\":[\"2009\",\"5\\\/2009\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/\",\"name\":\"Ereignisse im Eigenbau - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/424feb315ad347c994cf7755d473944b\",\"datePublished\":\"2020-05-22T22:17:48+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/424feb315ad347c994cf7755d473944b\",\"contentUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/424feb315ad347c994cf7755d473944b\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Ereignisse_im_Eigenbau\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Ereignisse im Eigenbau\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Ereignisse im Eigenbau - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/","og_locale":"de_DE","og_type":"article","og_title":"Ereignisse im Eigenbau","og_description":"Ereignisse werden durch Formulare, Berichte und deren Steuerelement ausgelöst, und vielleicht noch durch einige Objekte, deren Ereignisse man sich auch noch extra per WithEvents-Anweisung gefügig machen muss. Oder gibt es da noch mehr Ja, gibt es! Sie können nämlich eigene Ereignisse samt Ereignisprozedur und Parameter definieren und festlegen, wann diese ausgelöst werden. Wie das geht und was Sie davon haben erfahren Sie in diesem Beitrag.","og_url":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T22:17:48+00:00","og_image":[{"url":"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"8\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Ereignisse im Eigenbau","datePublished":"2020-05-22T22:17:48+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/"},"wordCount":1493,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#primaryimage"},"thumbnailUrl":"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b","articleSection":["2009","5\/2009","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/","url":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/","name":"Ereignisse im Eigenbau - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#primaryimage"},"thumbnailUrl":"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b","datePublished":"2020-05-22T22:17:48+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#primaryimage","url":"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b","contentUrl":"http:\/\/vg06.met.vgwort.de\/na\/424feb315ad347c994cf7755d473944b"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Ereignisse_im_Eigenbau\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Ereignisse im Eigenbau"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000685","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000685"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000685\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000685"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000685"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000685"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}