{"id":55000471,"date":"2020-02-01T00:00:00","date_gmt":"2020-07-03T10:46:01","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=471"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Pruefen_ob_ein_Formular_geoeffnet_ist","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html","title":{"rendered":"Pr&uuml;fen, ob ein Formular ge&ouml;ffnet ist"},"content":{"rendered":"<p class='introduction'>Unter Access kommt es immer wieder vor, dass Sie pr&uuml;fen wollen, ob ein Formular ge&ouml;ffnet ist &#8211; beispielsweise, wenn Sie Daten aus diesem Formular auslesen wollen. Dieser Artikel zeigt die VBA-Funktion, mit der Sie dies pr&uuml;fen k&ouml;nnen.<\/p>\n<p>In vielen F&auml;llen ist es interessant, ob ein Formular ge&ouml;ffnet ist und in welcher Ansicht es sich derzeit befindet.<\/p>\n<p>Das kann zum Beispiel der Fall sein, wenn in einem anderen Formular Daten bearbeitet werden, die in dem betroffenen Formular ebenfalls angezeigt werden und dort gegebenenfalls aktualisiert werden m&uuml;ssen. Das kann nat&uuml;rlich nur passieren, wenn der aktuelle Zustand des Formulars bekannt ist.<\/p>\n<p>Den Zustand ermitteln Sie in zwei Stufen:<\/p>\n<ul>\n<li>Ist das Objekt &uuml;berhaupt ge&ouml;ffnet<\/li>\n<li>Falls ja, in welcher Ansicht wird es gerade angezeigt<\/li>\n<\/ul>\n<p>F&uuml;r die Ermittlung des genauen Zustandes verwenden Sie zwei Funktionen beziehungsweise Eigenschaften.<\/p>\n<h2>Die Funktion SysCmd<\/h2>\n<p>Mit der ersten Funktion, <b>SysCmd<\/b>, lassen sich neben der Information, ob das angegebene Objekt ge&ouml;ffnet ist, noch einige weitere Systeminformationen abfragen.<\/p>\n<p>Um die unterschiedlichen M&ouml;glichkeiten zu verwenden, geben Sie den jeweils gew&uuml;nschten Wert f&uuml;r den ersten Parameter der Funktion ein. Im VBA-Editor werden die f&uuml;r den ersten Parameter m&ouml;glichen Werte angezeigt. In unseren Fall handelt es sich um den Parameter <b>acSysCmdGetObjectState<\/b>.<\/p>\n<p>Als weitere Parameter erwartet die Funktion den Objekttyp (hier <b>acForm<\/b>) sowie den Namen des Objektes.<\/p>\n<p>Die Funktion gibt folgende Werte zur&uuml;ck:<\/p>\n<ul>\n<li><b>0<\/b>: Objekt ist geschlossen<\/li>\n<li><b>1<\/b>: Objekt ist ge&ouml;ffnet<\/li>\n<\/ul>\n<h2>Die Eigenschaft CurrentView<\/h2>\n<p>Hat sich das Formular als ge&ouml;ffnet herausgestellt, k&ouml;nnen Sie gefahrlos mit der Eigenschaft <b>CurrentView <\/b>des jeweiligen Formulars ermitteln, in welchem Zustand es sich gerade befindet.<\/p>\n<p>Es gibt folgende drei Zust&auml;nde:<\/p>\n<ul>\n<li><b>0<\/b>: Entwurfsansicht<\/li>\n<li><b>1<\/b>: Formularansicht<\/li>\n<li><b>2<\/b>: Datenblattansicht<\/li>\n<\/ul>\n<p>Die anderen Ansichten wie die Pivot-Ansicht sollen hier au&szlig;er Acht gelassen werden.<\/p>\n<p>Alles zusammen k&ouml;nnen Sie in eine Wrapperfunktion packen, wie folgender Quellcode zeigt:<\/p>\n<pre><span style=\"color:blue;\">Function <\/span>IstFormularGeoeffnet(strFormularname<span style=\"color:blue;\"> As <\/span>                                      String)<span style=\"color:blue;\"> As Boolean<\/span>\r\n    <span style=\"color:blue;\">If <\/span>SysCmd(acSysCmdGetObjectState, acForm,                               strFormularname) <> 0<span style=\"color:blue;\"> Then<\/span>\r\n        <span style=\"color:blue;\">If <\/span>Forms(strFormularname).CurrentView <> 0<span style=\"color:blue;\"> Then<\/span>\r\n            IstFormularGeoeffnet = <span style=\"color:blue;\">True<\/span>\r\n        <span style=\"color:blue;\">End If<\/span>\r\n    <span style=\"color:blue;\">End If<\/span>\r\n<span style=\"color:blue;\">End Function<\/span><\/pre>\n<p>Im Direktfenster pr&uuml;fen Sie dann beispielsweise so, ob ein Formular ge&ouml;ffnet ist:<\/p>\n<pre><span style=\"color:blue;\">Debug.Print<\/span> IstFormularGeoeffnet(\"frmBeispiel\")\r\n<span style=\"color:blue;\">True<\/span><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Unter Access kommt es immer wieder vor, dass Sie pr&uuml;fen wollen, ob ein Formular ge&ouml;ffnet ist &#8211; beispielsweise, wenn Sie Daten aus diesem Formular auslesen wollen. Dieser Artikel zeigt die VBA-Funktion, mit der Sie dies pr&uuml;fen k&ouml;nnen.<\/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":[66012020,662020,44000010],"tags":[],"class_list":["post-55000471","post","type-post","status-publish","format-standard","hentry","category-66012020","category-662020","category-Formulare_mit_VBA_programmieren"],"aioseo_notices":[],"yoast_head":"<!-- This site is optimized with the Yoast SEO Premium plugin v15.9.2 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Pr&uuml;fen, ob ein Formular ge&ouml;ffnet ist - Access [basics]<\/title>\n<meta name=\"description\" content=\"Unter Access kommt es immer wieder vor, dass Sie pr\u00fcfen wollen, ob ein Formular ge\u00f6ffnet ist \u2013 beispielsweise, wenn Sie Daten aus diesem Formular auslesen wollen. Dieser Artikel zeigt die VBA-Funktion, mit der Sie dies pr\u00fcfen k\u00f6nnen.\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Pr&uuml;fen, ob ein Formular ge&ouml;ffnet ist - Access [basics]\" \/>\n<meta property=\"og:description\" content=\"Unter Access kommt es immer wieder vor, dass Sie pr\u00fcfen wollen, ob ein Formular ge\u00f6ffnet ist \u2013 beispielsweise, wenn Sie Daten aus diesem Formular auslesen wollen. Dieser Artikel zeigt die VBA-Funktion, mit der Sie dies pr\u00fcfen k\u00f6nnen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\" \/>\n<meta property=\"og:site_name\" content=\"Access [basics]\" \/>\n<meta property=\"article:published_time\" content=\"2020-07-03T10:46:01+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"-0001-11-30T00:00:00+00:00\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Gesch\u00e4tzte Lesezeit\">\n\t<meta name=\"twitter:data1\" content=\"2\u00a0Minuten\">\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebSite\",\"@id\":\"https:\/\/access-basics.de\/#website\",\"url\":\"https:\/\/access-basics.de\/\",\"name\":\"Access [basics]\",\"description\":\"DAS ACCESS-MAGAZIN F\\u00dcR ALLE, DIE VON 0 AUF 100 WOLLEN\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":\"https:\/\/access-basics.de\/?s={search_term_string}\",\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"de\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html#webpage\",\"url\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\",\"name\":\"Pr&uuml;fen, ob ein Formular ge&ouml;ffnet ist - Access [basics]\",\"isPartOf\":{\"@id\":\"https:\/\/access-basics.de\/#website\"},\"datePublished\":\"2020-07-03T10:46:01+00:00\",\"dateModified\":\"-0001-11-30T00:00:00+00:00\",\"author\":{\"@id\":\"https:\/\/access-basics.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f\"},\"description\":\"Unter Access kommt es immer wieder vor, dass Sie pr\\u00fcfen wollen, ob ein Formular ge\\u00f6ffnet ist \\u2013 beispielsweise, wenn Sie Daten aus diesem Formular auslesen wollen. Dieser Artikel zeigt die VBA-Funktion, mit der Sie dies pr\\u00fcfen k\\u00f6nnen.\",\"breadcrumb\":{\"@id\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"item\":{\"@type\":\"WebPage\",\"@id\":\"https:\/\/access-basics.de\/\",\"url\":\"https:\/\/access-basics.de\/\",\"name\":\"Home\"}},{\"@type\":\"ListItem\",\"position\":2,\"item\":{\"@type\":\"WebPage\",\"@id\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\",\"url\":\"https:\/\/access-basics.de\/index.php\/Pruefen_ob_ein_Formular_geoeffnet_ist.html\",\"name\":\"Pr&uuml;fen, ob ein Formular ge&ouml;ffnet ist\"}}]},{\"@type\":\"Person\",\"@id\":\"https:\/\/access-basics.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"@id\":\"https:\/\/access-basics.de\/#personlogo\",\"inLanguage\":\"de\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","_links":{"self":[{"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/posts\/55000471","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/comments?post=55000471"}],"version-history":[{"count":0,"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/posts\/55000471\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/media?parent=55000471"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/categories?post=55000471"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-basics.de\/index.php\/data\/wp\/v2\/tags?post=55000471"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}