TKSoft-Online

Problemstellung:

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 unter A00-A07 lauffähig

unter A07 muss sich Bsp-DB in einen „Vertrauenswürdigen Standort“ befinden

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 

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.

Große und farbige Checkboxen

Downloads in dieser Kategorie

MS-Access Formulare

Seite: 1

• Aktuelles Formularfeld bei MouseMove-Ereignis, mit variabelen Format hervorheben
Aktuelles Formularfeld bei "MouseMove"-Ereignis, mit variabelen Format hervorheben
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Beliebigen Cursor in Formularen anzeigen
Beliebigen Cursor in Formularen anzeigen
für A00-A07

Die Zip-Datei enthält eine Version ab A00
• Einschränken von Textfeldeingaben durch das Ereignis Bei Taste
Einschränken von Textfeldeingaben durch das Ereignis "Bei Taste"
für A00-A03 , A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00
• Gefundene Suchtextstellen im Textfeld markieren

Gefundene Suchtextstellen im Textfeld markieren
für A00-A03 , A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00

• Große und farbige Checkboxen

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

für A00-A07, unter Vista und Windows7 nicht getestet.


Die Zip-Datei enthält ein Version ab A00
• Hand-Cursor in Formularen anzeigen
Hand-Cursor in Formularen anzeigen
für A00-A07
Funktioniert auch unter Windows Vista

Die Zip-Datei enthält eine Version ab A00
• Listview Demo
Demo zur Benutzung des Listviews
für A00-A03, unter A07 und Vista nicht getestet.

Die Zip-Datei enthält ein Version ab A00
• Mehrfachauswahl eines Listenfeldes speichern
Mehrfachauswahl eines Listenfeldes speichern
für A00-A07

Die Zip-Datei enthält ein Version ab A00
• Setzen eines Markierungsrahmens um das aktive Control
Setzen eines Markierungsrahmens um das aktive Control
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Speichern der letzten Datensatz-Position in einer Property
Speichern der letzten Datensatz-Position in einer Property
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00

Seite: 2

• Ändern der Größe des MS-Access Programmfensters zu Laufzeit
Ändern der Größe des MS-Access Programmfensters zu Laufzeit
für A00-A03, unter A07 und Vista nicht getestet.

Die Zip-Datei enthält ein Version ab A00
• Beispiel für einen Belegungsplan
Beispiel für einen Belegungsplan
Die Zip-Datei enthält eine Version für A00 - A10

Powered by Tux Merlín Extensions