1 1 1 1 1 1 1 1 1 1 Rating 5.00 (2 Votes)

Problemstellung:

Nur für 32Bit Office Versionen

Das Checkbox-Control in MS-Access hat einen Nachteil.
Es ist nicht möglich das Control zu vergrößern bzw. farbig zu gestalten.
Mit ein paar Tricks ist das doch möglich.
Die Originalidee stammt von Günther Ritter und und wurde von mir erweitert und angepasst.

Voraussetzungen:
Das Bsp ist ab A00 lauffähig

Funktionsweise:
Erstmal kennen wir alle die Standardansicht der Checkbox.

Aber irgendwie ist das immer etwas eintönig.
Manchmal wäre doch es besser so:

 

Aber wie macht man das nun?
Zuerst benötigt man für die beiden linken Bsp. den TT-Font "Marlett" und für die beiden rechten "Wingdings2"

Die Schriftgröße und Farbe ist in den Eigenschaftseinstellungen frei definierbar.
Im Steuerelementinhalt der großen Boxen schreibt man dann z.B.:

=Wenn([chk_1]=-1;"b") 

Wobei der Bezug auf die richtige Checkbox gesetzt wird und das gewünschte Symbol der gewählten Schriftart.
Die echte Checkbox wird auf nicht sichtbar gesetzt und ist nur zur Demonstration hier im Bsp sichtbar.

Jetzt muss noch etwas Code eingefügt werden.
Im Modul "mod_Check" sind 2 API-Funktionen und eine Sub enthalten.
Diese dienen dazu das der TextCursor nicht in unserer Checkbox angezeigt wird.

Public Declare Function HideCaret Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function apiGetFocus Lib "user32" Alias "GetFocus" () As Long
Public Sub SetMark(objCheck As CheckBox)
    If objCheck = True Then
        objCheck = False
    Else
        objCheck = True
    End If
End Sub


Der Sub "SetMark" wird dann im Formular der der Name der veränderten Checkbox übergeben.

Im Formular selbst ist dann folgender Code erforderlich:
In den Ereignissen "Beim Hineingehen" und "Bei Focuserhalt" der vergrößter Checkbox.
Ausschalten des Textcursors:

Private Sub chkG_1_Enter()
    HideCaret apiGetFocus
End Sub
Private Sub chkG_1_GotFocus()
    HideCaret apiGetFocus
End Sub

Im Ereignis "Beim Klicken"
Ausschaten des Textcursors und setzen des Wertes:

Private Sub chkG_1_Click()
    HideCaret apiGetFocus  'Cursor bei Focus abschalten
    SetMark Me.chk_1
End Sub

Im Ereignis "Bei Taste" wird der Wert unserer Checkbox bei der Entertaste geändert:

Private Sub chkG_1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    SetMark Me.chk_1
  End If
End Sub

Das Ergebnis sieht dann so aus:

 

In der Bsp-DB sind die Codes nur im oberen linken Textfeld hinterlegt.
Bei den anderen würde es genauso funktionieren.
 

Auch in Berichten ist diese Darstellung möglich.

 

Dateien:
(0 Stimmen)

Nur für 32Bit Office Versionen

Bsp-DB für die Anzeige von großen und farbigen Checkboxen

ab A00


Die Zip-Datei enthält ein Version ab A00
Datum 05.02.2018
Dateigröße 18.45 KB
Download 1.591

 

Ähnliche Artikel

You have no rights to post comments

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Nur für 32Bit Office Versionen Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool...
1.png5.png7.png9.png0.png7.png6.png
Heute108
Gestern486
Diese Woche1425
Dieser Monat7699
Total1579076

  • IP: 54.234.184.8
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

29. März 2024

Letzte Kommentare

  • Berechnen von Zeiträumen als Abfragekriterium

    elmard 02.02.2021 21:02
    1000 Dank
    für diese Datenbankanwendung! Eine sehr gute Umsetzung mit den vielen Möglichkeiten des Datums.

    Weiterlesen...

     
  • SQL zu VBA Konverter

    Tommy Admin 03.11.2019 16:33
    RE: SQL zu VBA Konverter
    Hallo Elmard, danke für die Info. :lol:

    Weiterlesen...

     
  • SQL zu VBA Konverter

    elmard 03.11.2019 14:49
    Bei SmartTools neue Version 4.0
    Dieses Tool liegt inzwischen in der Version 4 vor und läuft nun auch von A2013 und A2016 sowie im ...

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...