07. april 2007 - 11:03Der 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.
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
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.
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
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.
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.