3
Wert via Button hoch- bzw. runterzählen (MS Access 2003)
Ausgangslage:
Wird mit Formular gelöst
VBA
Hallo zusammen.
Ich habe das Problem, dass ich eine Übersicht darstellen muss, welche alle Datensätze einer Tabelle anzeigen.
Danach soll man mit einem Button das Feld Anzahl (Integer) um +1 hochzählen und mit einem anderen Button herunterzählen.
Wie kann ich das realisieren?
Ich hab es so versucht.
Passiert aber genau nichts
Hoffe ihr könnt mir folgen und mir auch helfen.
Danke
Ich habe das Problem, dass ich eine Übersicht darstellen muss, welche alle Datensätze einer Tabelle anzeigen.
Danach soll man mit einem Button das Feld Anzahl (Integer) um +1 hochzählen und mit einem anderen Button herunterzählen.
Wie kann ich das realisieren?
Ich hab es so versucht.
Passiert aber genau nichts
Hoffe ihr könnt mir folgen und mir auch helfen.
Danke
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 113981
Url: https://administrator.de/contentid/113981
Printed on: April 25, 2024 at 07:04 o'clock
3 Comments
Latest comment
Hi,
ist das ein an eine Tabelle gebundenes Endlosformular?
Wenn ich mich recht erinnere lässt sich sowas in Access nicht realisieren, da der Button im detailbereich nicht weis zu wlechem datensatz in der Tabelle er gehört
Und: Dein Code stimmt so auch nicht.
Wenn Du ein *Feld* im Formular ansprechen/ändern willst musst du das über "Me." ansprechen
Geht imo aber nur wenn es KEIN Endlosform ist.
lg,
Slainte
ist das ein an eine Tabelle gebundenes Endlosformular?
Wenn ich mich recht erinnere lässt sich sowas in Access nicht realisieren, da der Button im detailbereich nicht weis zu wlechem datensatz in der Tabelle er gehört
Und: Dein Code stimmt so auch nicht.
Wenn Du ein *Feld* im Formular ansprechen/ändern willst musst du das über "Me." ansprechen
Me.Anzahl = Me.Anzahl + 1 Geht imo aber nur wenn es KEIN Endlosform ist.
lg,
Slainte
das müsste eigentlich so laufen:
Option Compare Database
Option Explicit
Private Sub Plus_Click()
anzahl = anzahl + 1
End Sub
Private Sub Minus_Click()
anzahl = anzahl - 1
End Sub
Option Compare Database
Option Explicit
Private Sub Plus_Click()
anzahl = anzahl + 1
End Sub
Private Sub Minus_Click()
anzahl = anzahl - 1
End Sub
ne habs selber heraus gefunden:
Private Sub Plus_Click()
Dim Anzahl As Integer
Forms![LagerBettlach].Form!Anzahl = Forms![LagerBettlach].Form!Anzahl + 1
End Sub
Danke gleich wohl
Private Sub Plus_Click()
Dim Anzahl As Integer
Forms![LagerBettlach].Form!Anzahl = Forms![LagerBettlach].Form!Anzahl + 1
End Sub
Danke gleich wohl
