Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon grubie vom 03.01.2019, 17:28 Options
Fensterstatus abfragen
Hallo Forum,
ich benötige mal wieder Hilfe. Wie kann ich in Access mit VBA abfragen, ob ein bestimmtes Formular geöffnet ist oder nicht.
Hintergrund ist der, dass ich ein Formular X von zwei verschiedenen anderen Formularen, Y oder Z, aufrufe (über DoCmd.OpenForm). Wenn ich X schliesse, möchte ich nun, dass eine bestimmte Sub-Routine nur dann ausgeführt wird, wenn X aus Y geöffnet wurde aber nicht aus Z.
Gruss,
grubie
ich benötige mal wieder Hilfe. Wie kann ich in Access mit VBA abfragen, ob ein bestimmtes Formular geöffnet ist oder nicht.
Hintergrund ist der, dass ich ein Formular X von zwei verschiedenen anderen Formularen, Y oder Z, aufrufe (über DoCmd.OpenForm). Wenn ich X schliesse, möchte ich nun, dass eine bestimmte Sub-Routine nur dann ausgeführt wird, wenn X aus Y geöffnet wurde aber nicht aus Z.
Gruss,
grubie
Antwort 1 von OmaDuck vom 03.01.2019, 17:32 Options
Hallo,
Du könntest jeweils im Formular Y oder Z in eine globale Variable schreiben wo Du dich befindest. Dann kannst du in X abfragen wo Du hergekommen bist
Gruß
OmaDuck
Du könntest jeweils im Formular Y oder Z in eine globale Variable schreiben wo Du dich befindest. Dann kannst du in X abfragen wo Du hergekommen bist
Gruß
OmaDuck
Antwort 2 von Marie vom 06.01.2019, 16:48 Options
Ab Acess 2000 gibt es die Eigenschaft IsLoaded.
Also bitte Accessversion angeben künftig bei Fragen
In früheren Versionen mit syscmd:
Public Function IsFormularOpened(StrFormName As String) As Boolean
IsFormularOpened = (SysCmd(acSysCmdGetObjectState, acForm, StrFormName) > 0)
End Function
liefert true oder false
Also bitte Accessversion angeben künftig bei Fragen
In früheren Versionen mit syscmd:
Public Function IsFormularOpened(StrFormName As String) As Boolean
IsFormularOpened = (SysCmd(acSysCmdGetObjectState, acForm, StrFormName) > 0)
End Function
liefert true oder false
Ähnliche Themen
Import von Acces-Abfragen für Excel-Pivot-tabellen
DCAH 25.01.2007 - 145 Hits -
Abfragen - Access
gast64 30.01.2007 - 154 Hits - 2 Antworten
zentrales Formular erstellen, das danach Abfragen einschränkt
Solu 26.11.2007 - 122 Hits - 7 Antworten
formularbasiert mehrere SQL Abfragen nacheinander
Solu 29.11.2007 - 145 Hits - 3 Antworten
Sprache in VBA abfragen : wo /wie finde ich Setup?
user3 26.06.2008 - 77 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
