Ændre alle formularer på en gang

You may be able to use this to get you going.

You need toopen the form in design mode, change the property and then close with Save

http://www.mvps.org/access/forms/frm0040.htm

Ja, det er godt nok tæt på, men jeg vil gerne have fat i alle formularer også dem der ikke er åbne!!

no idea if this works in Acc97

Dim obj As AccessObject, dbs As Object
   
    Set dbs = Application.CurrentProject
    For Each obj In dbs.allForms
   
          DoCmd.OpenForm obj.Name, acDesign
   
'Maybe you can get at the properties here

          DoCmd.Close acForm, obj.Name, acSaveYes
   
    Next obj

Nææ - der er flere af ordene, som den ikke vil være med til - jeg har rodet lidt rundt i hjælp, men så vidt jeg kan finde ud af handler det altid kun om åbne formularer, jeg kan dog finde følgende:

Note  To list all forms in the database, whether open or closed, enumerate the Documents collection of the forms' Container object. You can then use the Name property of each individual Document object to return the name of a form.

Men den kan jeg heller ikke få til at virke....

Øv øv

Så lykkedes det......jeg googlede lige en sætning fra hjælpeteksten:

Sub test()
    Dim intCounter As Integer
    Dim intDocumentCount As Integer
   
    intDocumentCount = CurrentDb.Containers("Forms").Documents.Count - 1
   
    For intCounter = 0 To intDocumentCount
        MsgBox CurrentDb.Containers("Forms").Documents(intCounter).Name
    Next intCounter
End Sub

Den lister alle formularer - så er det jo bare at fylde en handling på.

Tak for hjælpen Terry

super

god jul og godt nytår til dig også