Luk automatisk en for mular der er åben

Det kan ikke lade sig gørre.

----> Det kan ikke passe!!!!!!

Har du formular1 + 2 kan du ved åbning af formular2 indskrive denne sætning:
DoCmd.Close acForm, "Formular1"
Vh Henrik13

Jeg kan lave en demo.

DoCmd.Close Me.Name

gylling>This link will show you how to close all forms then once that is done you can open your other form.
http://www.mvps.org/access/forms/frm0040.htm

Function CloseAllFormsExceptCurrent()
Dim frm As Form
Dim frmCurrentForm As Form
 
Set frmCurrentForm = Screen.ActiveForm
For Each frm In Forms
    If frm.Name <> frmCurrentForm.Name Then
        DoCmd.Close acForm, frm.Name
    End If
Next

End Function

Hmm jeg kan ikke engang selv få den ovenstående til at virke (den starter før formularen er åben også kan den ikke finde Screen.Activeform). Alternativt kan funktionen kaldes med navnet på den aktuelle formular (dvs. der der ikke skal lukkes):

Function CloseAllFormsExceptCurrent(sExcludeForm As String)
Dim frm As Form

For Each frm In Forms
    If frm.Name <> sExcludeForm Then DoCmd.Close acForm, frm.Name
Next frm

End Function

the anwer is 08/10-2003 18:48:50!

Nåh ja, der står da lidt i bunden, der minder lidt om mit forslag. Jeg tillod mig blot at gå et skridt længere, og foreslå hvordan det kan implementeres.

superjap>I havent tried this myslef but the method you are using doesnt work according to the article! Thats why they suggest another method-

For Each frm In Forms ..... doesnt work according to the article!

So the answer is to either continue to remove the first item in the collection until there are no items left or start at the top end of the collection and shave them off at the top until you've gone through all of them. So either

  do while forms.count>0     
    docmd.close acform,forms(0).name 
  loop
or

  dim intx as integer 
  dim intCount as integer 
  intCount = Forms.count-1
  for intX= intCount to 0 step -1   
    docmd.close acform,forms(intX).name
  next
There is a difference between the two, with the second method you can conditionally leave forms open, you can't with the first version, so you can do something like this in the loop

  for intX= intCount to 0 step -1
        if forms(intX).Name <> "MyFormToKeepOpen" then
            docmd.close acform,forms(intX).name       
        end if   
  next

and we could also make a function

Function CloseEm(formName as string)

dim intx as integer 
dim intCount as integer

for intX= intCount to 0 step -1
if forms(intX).Name <> formName  then
  docmd.close acform,forms(intX).name       
end if   
next

End function

Then you could call the function

CloseEm me.name

Little slip up there :o)

Function CloseEm(formName as string)

dim intx as integer 
dim intCount as integer
intCount = Forms.count-1


for intX= intCount to 0 step -1
if forms(intX).Name <> formName  then
  docmd.close acform,forms(intX).name       
end if   
next

End function

Then you could call the function

CloseEm me.name

Terry
Oops! Jeg læste ikke så langt. Jeg så kun "will produce the same result as" og så læste jeg ikke længere - der er for mange ord :o)

Har testet det, og det er (selvfølgelig) korrekt, at ikke alle åbne formularer lukkes.

Jeg har vist prøvet noget lignende for mange år siden, da jeg lavede et program, der fjernede alle sammenkædede tabeller. Så efter mange år fik jeg en forklaring på problemet. Utroligt men sandt!

:o)

---->>terry. tusind tak det virker

selv tak