online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon AndiS vom 26.02.2020, 15:54 Options

Variable beim Drücken eines Buttons einen Wert setzen

Hallo an @lle,
in einem Formular möchte ich eine Variable hochzählen bzw einen Wert zuweisen wenn ich einen Button drücke.
Wie kann ich dies realisieren.
mfg
andi
DANKE im vorraus


Antwort schreiben

Antwort 1 von Marie vom 27.02.2020, 05:20 Options

Ganz einfach:

in einem Modul eine Public-Anweisung eintragen, um Deine Variable öffentlich zu deklarieren, d.h. allen Prozeduren in allen Modulen aller Anwendungen zur Verfügung zu stellen.

Public DeineVariable As Integer ' Öffentliche Integer-Variable

Dann schreibst Du eine Prozedur beim Klick auf den Button:

Option Compare Database
Option Explicit

Private Sub DeinButton_Click()
On Error GoTo Err_DeinButton_Click

DeineVariable = 1250

Exit_DeinButton_Click:
    Exit Sub

Err_DeinButton_Click:
    MsgBox Err.Description
    Resume Exit_DeinButton_Click
    
End Sub


Jetzt kannst Du diese Zahl überall benutzen, die ist immer 1250, bis Du sie irgendwo änderst.

Gruß marie

Antwort 2 von AndiS vom 27.02.2020, 07:09 Options

Danke :-)
funktoniert soweit! :-) aber würde meine Variable gern anzeigen einfach zu Kontrolle aber im ungebunden Feld mit "=DeineVariable" funktioniert das nicht so wie ich will :-)
vielleicht kannst du mir weiterhelfen.

glg andi

Antwort 3 von Marie vom 29.02.2020, 05:51 Options

Option Compare Database
Option Explicit

Private Sub DeinButton_Click()

Dim DeineVariable As Integer
On Error GoTo Err_DeinButton_Click

DeineVariable = 1250
Me.DeinTextfeld = DeineVariable

Exit_DeinButton_Click:
    Exit Sub

Err_DeinButton_Click:
    MsgBox Err.Description
    Resume Exit_DeinButton_Click
End Sub


Gruß Marie

Ähnliche Themen

VB6 Variable in anderen Sub übergeben
da_horscht  28.11.2009 - 100 Hits - 6 Antworten

excel tabelle/spalte umformatieren
danielm  25.04.2008 - 31 Hits - 4 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026