Globale Variable deklarieren

[accessy]

Wenn ich die DB starte, kommt es zu einem Überlauffehler.
Und die Zeile
Farbe_Aktiv = 4103935
ist markiert.

Mein Ziel ist es, dass ich die beiden Variablen als Global deklarieren will.

Option Compare Database
Option Explicit
Public Farbe_Aktiv As Integer
Public Farbe_Passiv As Integer

Private Sub Form_Open(Cancel As Integer) 'Beim Öffnen des Formulars
  Farbe_Aktiv = 4103935
  Farbe_Passiv = 10354687
  Call Gesperrt
End Sub

Private Sub Bearbeitungsart_Enter()
  Me.Bearbeitungsart.BackColor = Farbe_Aktiv 'Farbe Orange
End Sub

Private Sub Bearbeitungsart_Exit(Cancel As Integer)
  Me.Bearbeitungsart.BackColor = Farbe_Passiv 'Farbe Hellgelb
End Sub

[bahasu]

Hi,

probier mal statt als integer sie als long zu deklarieren.

aus der Hilfe:
Integer werden als 16-Bit-Zahlen (2 Bytes) in einem Bereich von -32.768 bis 32.767 gespeichert

Harald

[accessy]

Uiiiiii...
darauf wäre ich jetzt nicht gekommen.
Denn die Zahlenwerte sind ja integer...

Na egal, funktioniert jetzt einwandfrei.
Ich danke dir für den Hinweis und wünsche einen schönen Tag.

[MzKlMu]

Hallo,
es gibt bei Access 3 Integer Zahlentypen:

Byte 0 bis 255 (Speicherbedarf 1 Byte)
Integer −32.768  bis 32.767 (Speicherbedarf 2 Byte)
Long Integer -2147483648 bis 2147483647 (Speicherbedarf 4 Byte)

Nur der Vollständigkeithalber.