Avatar billede Slettet bruger
07. april 2007 - 11:03 Der er 7 kommentarer og
1 løsning

Rettelse af feltegenskaber i rapporter.

I alle felter i alle rapporter (og formularer) vil jeg have venstre og højre margin sat til 0,1 cm (står til 0 cm). Findes der en rutine der automatisk kan løbe disse mange felter igennem og replace margin afstanden.

Venlig hilsen
OMN
Avatar billede mugs Novice
07. april 2007 - 19:42 #1
Ikke så vidt jeg ved. Men du kan åbne dine objekter og i menuen Rediger kan du vælge Marker alt og i egenskabsvinduet sætte din venstre position for alle felter på een gang.

Du kan også holde shift nede og klikke på de felter der skal ændre position. så kan du også ændrer venstre positionen på alle valgter felter på een gang.
Avatar billede terry Ekspert
08. april 2007 - 12:53 #2
You can open the reports indewsign mode and loop through the controls changing those you want, then save the report to save the changes.
The following example changes the left margin for labels and text boxes to 1440 twips which is = 1 inch


Sub AllReports()
    Dim obj As AccessObject, dbs As Object
    Dim i As Integer
    Dim rpt As Report
   
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllReports
   
        DoCmd.OpenReport obj.Name, acViewDesign
        Set rpt = Reports(obj.Name)
       
        For i = 0 To rpt.Controls.Count - 1
               
            Select Case rpt(i).ControlType
                Case acLabel
                    rpt(i).LeftMargin = 1440 'twips = 1 inch
                Case acTextBox
                    rpt(i).LeftMargin = 1440 'twips = 1 inch
                Case Else
               
            End Select
        Next i
   
        DoCmd.Close acReport, obj.Name, acSaveYes
        Next obj

End Sub
Avatar billede terry Ekspert
08. april 2007 - 12:55 #3
There are 567 twips in a centimetre
Avatar billede Slettet bruger
11. april 2007 - 12:59 #4
Thanks Terry.
Avatar billede terry Ekspert
11. april 2007 - 15:38 #5
thank you
Avatar billede Slettet bruger
11. april 2007 - 15:42 #6
Terry. Did you get the 60 point.
Avatar billede mugs Novice
11. april 2007 - 15:50 #7
Tillad mig at svare på terry's vegne. Du kan se på svaret 8/4 Kl 12:53:44 at terry har fået 60 point. Desuden kan su se, at der ikke er flere point at uddele.
Avatar billede terry Ekspert
11. april 2007 - 19:15 #8
Yes, got the points :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester