Luk en form hvis den er åben?

2 metoder:

If currentproject.allforms("Din form").Isloaded then
    docmd.Close acform, "Din form"

eller den frække:

On Error resume next
Docmd.Close acform, "Din form"

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

indsæt functionen i et modul:

brug følgende kode:
if fIsLoaded("formnavn") then
    docfmd.close acForm, "formnavn", acSaveNo
end if

Man kan måske læse ud af spørgsmålets karakter at jeg ikke er den rette til at afgøre hvilket løsningsforslag der er bedst. thomasjepsen's første forslag er testet og virker.

Så giv ham pointene :-D

rbj_fp's forslag var det 'rigtige' til og med version '97.
I Access 2000 blev indført den nye metode, som er kortere :o)

hmm.... det er sikkert rigtig. Det er en ændre kodestump jeg har haft liggende, som jeg bare altid hjernedødt har brugt.

ja, det kender jeg....man er af og til lidt hæmmet af, at have været med for længe. Man kører fast i de gamle rutiner og opdage slet ikke, at der ofte er sket en masse nyt og smart :o(

Ja det er jo det.... men tilgengæld er det noget hurtigere at genbruge gammel kode, og der virker ofte altid i første forsøg.

De bedste julehilsner til jer begge og tak for de hurtige svar/kommentarer.
:-)

selv tak og i lige måde :o)

Det var så lidt... og i lige måde