Ändern der schriftart auf alle Steuerelemente auf Microsoft Access-Bericht

Ich habe eine sehr komplexe Microsoft Access-Bericht. Dieser Bericht ist, für mehrere Kunden. Ich möchte die schriftart ändern, die auf einer Teilmenge** der Steuerelemente des Berichts (es gibt Tonnen) für einen bestimmten Kunden, aber nicht für andere. Da die schriftart ist festgelegt auf die Pegel, ist es möglich, zu ändern ist es programmatisch?

**Die Kriterien, wählt die Teilmenge wäre, basierend auf der aktuellen schriftart. Zum Beispiel würde ich die schriftart ändern wollen auf alle Steuerelemente, die derzeit verwenden Sie Arial.

  • Möchten Sie die schriftart ändern, die eine Laufzeit oder in der design-Ansicht? Entweder ist einfach genug.
  • Ich will es ändern zur Laufzeit, basierend auf einer Kunden-id, für einen Teil der Kontrollen.
InformationsquelleAutor James Hill | 2012-03-30
  1. 3

    Wie etwa:

    Private Sub Report_Load()
If Me.OpenArgs = "1" Then
    ChangeFont Me
End If
End Sub


Sub ChangeFont(rpt As Report)
Dim ctl As Control

    For Each ctl In rpt.Controls
        If ctl.ControlType = acSubform Then
            ChangeFont ctl.Report
        ElseIf ctl.ControlType = acTextBox Then
            If ctl.FontName = "Calibri" Then

                 ctl.FontName = "Times"
            End If
        End If
    Next
End Sub
    InformationsquelleAutor Fionnuala
  2. 1

    Können Sie etwas wie die folgende:

    DoCmd.OpenReport "MyReport", acViewDesign, , , acHidden
For Each ctl In Reports.Item("AmbulanceServices")
  If ctl.FontName = "Arial" Then
    ctl.FontName = "Tahoma"
    ctl.FontSize = 10
  End If
Next
DoCmd.Save acReport, "MyReport"
    • Das wird sich ändern, die Schriftarten für immer, yesno?
    • Ja, es wird. Sie können sich wahrscheinlich um dies zu vermeiden, öffnen Sie den Bericht in den Ansicht-Modus und läuft ähnlich wie code - ohne zu speichern. Sie können auch minimieren, den Bericht, so dass Benutzer nicht sehen, die änderungen, wie Sie auftreten.
    • Sie müssen auch aufpassen, für Steuerelemente wie Etiketten, die Sie nicht wollen, zu ändern und Unterformulare, die nicht über die Schriftarten.
    InformationsquelleAutor ron tornambe
Schreibe einen Kommentar