[access] docmd.close functie

[Verwijderd]

hoi,

ik gebruik docmd.close om een formulier af te sluiten.


ik heb een formulier wanneer je op een knopje klikt opent er een popup scherm, je kunt op afsluiten klikken hierna sluit acces de popup scherm, maar ik wil ook dat de hoofdformulier ook afgesloten wordt.


DoCmd.Close acForm, "frmproductie"
DoCmd.Close


dit heb ik gebruikt maar het lukt de popup scherm sluit wel af, maar dan komt ie gelijk naar de hoofdscherm. ik wil dat ie terug gaat naar de schakelbord.


kon nergens vinden( f1,ms,google,got)

[P_de_B]

weet niet precies hoe het zit met scope enzo, maar:

code:

frmProductie.close

zou je eens kunnen proberen

[Verwijderd]

heb de code gebruikt maar lukt niet

[Pyrowired]

Gooi in een module de volgende code (en pas de waarden voor frm_1, frm_2 en frm_3 aan.
en roep met een knop met de actie kliken de functie aan (dus =CloseForms() invullen.

code:

function Close_Forms()

Dim formulieren, intI As Integer
formulieren = Array("frm_1", "frm_2")
intI = 0

Do While intI <= UBound(formulieren)
    
    DoCmd.Close acForm, formulieren(intI), acSavePrompt
    intI = intI + 1
Loop

DoCmd.SelectObject acForm,  frm_3

End function

edit:

extra stap verwijderd

[ Voor 16% gewijzigd door Pyrowired op 18-06-2004 12:25 ]

[Verwijderd]

Public Sub sluitVensters()
' Sluit alle vensters behalve frmSchakelbord
Dim nX As Integer, nY As Integer, sV As String
Dim db As Database, con As Container

Set db = CurrentDb
Set con = db.Containers("Forms")
For nX = 0 To con.Documents.Count - 1
sV = con.Documents(nX).Name
If (sV <> "frmSchakelbord") Then
DoCmd.Close acForm, sV
End If
Next nX

For nY = 0 To Reports.Count - 1
sV = Reports(nY).FormName
DoCmd.Close acReport, sV
Next nY

End Sub

[Verwijderd]

hee tjiba tof man, werkt prima !!!