Prüfen ob Formular geöffnet

08/09/2007 - 15:46 von Tobias Gramer | Report spam
- Prüfen ob Formular geöffnet Nach oben

Version: Office2k (2000)


Hallo Leute,

ich habe ein Problem beim Abprüfen von geöffneten Formularen.

Ich habe diesen Code erstellt:

Function IstGeladen(MeinFormularname As String)
If CurrentProject.AllForms(MeinFormularname).IsLoaded Then
IstGeladen = True
Else
IstGeladen = False
End If
End Function

Wenn ich diese Funktion testweise über das Direktfenster aufrufe, bekomme
ich als Ergebnis Wahr oder Falsch, funktoniert also ohne Probleme.

Nun brauche ich diese Funktion in der Abfrage eines Berichtes. Je nachdem,
ob ein bestimmtes Formular geöffnet ist, sollen die Parameter von diesem
Formular verwendet werden. Das Kriterium in der Abfrage lautet:

Wenn(IstGeladen("frmMonatsabschlussDetailanzeigeEinkauf")=Wahr;([tblFahrzeuge].[Einkaufsdatum])
Zwischen [Formulare]![frmMonatsabschluss]![txtDatumVon] Und
[Formulare]![frmMonatsabschluss]![txtDatumBis];([tblFahrzeuge].[Einkaufsdatum])
Zwischen [Formulare]![frmDruckauswahl]![txtDatumVon] Und
[Formulare]![frmDruckauswahl]![txtDatumBis])

Wenn ich die Abfrage laufen lasse, fragt Access grundsàtzlich nach dem
Formular frmDruckauswahl, auch wenn das Formular
frmMonatsabschlussDetailanzeigeEinkauf geöffnet ist.

Was mache ich falsch?

Besten Dank im Voraus.

Gruß Oli
 

Lesen sie die antworten

#1 Mark Doerbandt
08/09/2007 - 15:52 | Warnen spam
Hallo, Tobias,

Tobias Gramer:

Wenn(IstGeladen("frmMonatsabschlussDetailanzeigeEinkauf")=Wahr;([tblFahrzeuge].[Einkaufsdatum])
Zwischen [Formulare]![frmMonatsabschluss]![txtDatumVon] Und
[Formulare]![frmMonatsabschluss]![txtDatumBis];([tblFahrzeuge].[Einkaufsdatum])
Zwischen [Formulare]![frmDruckauswahl]![txtDatumVon] Und
[Formulare]![frmDruckauswahl]![txtDatumBis])

Wenn ich die Abfrage laufen lasse, fragt Access grundsàtzlich nach dem
Formular frmDruckauswahl, auch wenn das Formular
frmMonatsabschlussDetailanzeigeEinkauf geöffnet ist.



Wenn wertet beide Teile aus - Du kannst ja mal testweise in die
Parameterabfrage Mist eingeben, der wird dann auch nicht verwendet.

Lagere Deine Entscheidung in eine Funktion aus.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen