Afvragen of formulier open is

[Laroguz]

Ik zit wat in Visual Basic in een formulier te programmeren en nu moet ik verwijzen naar het een of het andere formulier. Dit moet echter wel open staan. Hoe kan ik nu afvragen of een formulier open staat?

groeten
Wim Janssen

 

[jwaque]

kan je het formulier niet gewoon openen en later sluiten?

DoCmd.OpenForm "frmnaam"

wat je wil

DoCmd.Close acForm, Me.Form.Name

 

[Laroguz]

Nee, dat kan helaas niet. Ik heb een label (rapport) dat ik vanaf 2 verschillende formulieren moet kunnen printen. Nu is het zo dat de informatie voor dat label van dat bewuste formulier komt dat op dat moment open staat. In de Visual Basic code moet ik dus kunnen afvragen welke van de 2 formulieren open staat om vervolgens naar de bewuste velden te kunnen gaan.
Ik had dit gemaakt, maar dat werkt niet.


Dim VersieMem As String
Dim PrintNaamMem As String
Dim BatchEigMem As String

Select Case True
Case Forms!FrmKeuzeAfzakLabel.IsLoaded = True
PrintNaamMem = Forms!FrmKeuzeAfzakLabel.TxtPrintNaamAfzak
BatchEigMem = Forms!FrmKeuzeAfzakLabel.TxtBatchEig
VersieMem = Forms!FrmKeuzeAfzakLabel.CboVersie
Case Forms!FrmKeuzePaklijst.IsLoaded = True
PrintNaamMem = Forms!FrmKeuzePaklijst.TxtPrintNaamAfzak
BatchEigMem = Forms!FrmKeuzePaklijst.TxtBatchEig
VersieMem = Forms!FrmKeuzePaklijst.CboVersie
End Select

groeten
Wim Janssen

 

[OctaFish]

Met een functie kun je checken of een formulier is geopend.

Function fIsLoaded(ByVal sForm As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
If SysCmd(acSysCmdGetObjectState, acForm, sForm) <> 0 Then
    If Forms(sForm).CurrentView <> 0 Then
        fIsLoaded = True
    End If
End If
End Function