Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Via + Taste Addieren.
zurück: ähnliche Namen zusammenfassen weiter: Listenfeld basierend auf mehreren Abfragen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Nov 2012, 11:21
Rufname:

Via + Taste Addieren. - Via + Taste Addieren.

Nach oben
       Version: Office 2007

Hallo zusammen,

ich habe ein Feld in meinem Formular. Der Startwert ist 1. Jetzt möchte ich gerne wenn ich in diesem Feld drin bin Me!Anzahl und die + Taste auf dem Numblock drücke da er automatisch +1 zum Feldwert hinzu addiert. Ich dachte ich könnte es so lösen:

If KeyAscii = 43 Then
Me!Anzahl = Me!Anzahl + 1
End If

aber er schreibt leider nur das + ins Feld... Irgendwas fehlt hier anscheiend noch.
KlausMz
Moderator Access


Verfasst am:
09. Nov 2012, 11:28
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Via + Taste Addieren. - AW: Via + Taste Addieren.

Nach oben
       Version: Office 2007

Hallo,
zeige die vollständige Prozedur (Code Tags benutzen !) und nicht nur Bruchstücke.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Nov 2012, 11:36
Rufname:

AW: Via + Taste Addieren. - AW: Via + Taste Addieren.

Nach oben
       Version: Office 2007

Sorry...
Code:
Private Sub Anzahl_KeyPress(KeyAscii As Integer)
    'MsgBox KeyAscii
    If KeyAscii = 43 Then
        Me!Anzahl = Me!Anzahl + 1
    End If
    If KeyAscii = 45 Then
        Me!Tech.SetFocus
    End If
End Sub
KlausMz
Moderator Access


Verfasst am:
09. Nov 2012, 11:40
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Via + Taste Addieren. - AW: Via + Taste Addieren.

Nach oben
       Version: Office 2007

Hallo,
Du musst durch zuweisung von Null an KeyAscii die Taste wirkungslos machen.
Code:
Private Sub Anzahl_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then
        KeyAscii = 0
        Me.Anzahl = Nz(Me.Anzahl, 0) + 1
    End If
End Sub
Die beiden Ifs kannst Du mit Select Case zusammenfassen:
Code:
Private Sub Anzahl_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
      Case 43
        KeyAscii = 0
        Me.Anzahl= Nz(Me.Anzahl, 0) + 1
      Case 45
        KeyAscii = 0
        Me!Tech.SetFocus
    End Select
End Sub
PS:
Anzahl als Feldname ist unbedingt zu vermeiden. Das ist eine gleichnamige Funktion und führt bei einem Feldnamen zu großen Problemen.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.


Zuletzt bearbeitet von KlausMz am 09. Nov 2012, 11:50, insgesamt einmal bearbeitet
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Nov 2012, 11:43
Rufname:


AW: Via + Taste Addieren. - AW: Via + Taste Addieren.

Nach oben
       Version: Office 2007

Hey super spitze! Das hat mir sehr weiter geholfen!

Vielen Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Abfrage - Inhalte via wenn-Funktion umbenennen 2 Orti81 901 03. Aug 2010, 15:11
Orti81 Access-Abfrage - Inhalte via wenn-Funktion umbenennen
Keine neuen Beiträge Access Tabellen & Abfragen: Die ersten 10 Datensätze in einer Abfrage addieren 6 elektrojimmi 1391 07. Jan 2010, 22:50
Gast Die ersten 10 Datensätze in einer Abfrage addieren
Keine neuen Beiträge Access Tabellen & Abfragen: Formatieren eine PivotCharts via VBA 0 TFree 189 16. Okt 2009, 12:48
TFree Formatieren eine PivotCharts via VBA
Keine neuen Beiträge Access Tabellen & Abfragen: mehrere Spalten addieren wenn... 13 tweety_birdy 1909 01. März 2009, 13:40
tweey_birdy mehrere Spalten addieren wenn...
Keine neuen Beiträge Access Tabellen & Abfragen: Access: SQL-Anfügeabfrage via Button ausführen 10 philbo 3541 22. Jan 2009, 14:45
philbo Access: SQL-Anfügeabfrage via Button ausführen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeiten in Form 3:30 addieren 5 <X> 1084 10. Jul 2008, 20:10
<X> Zeiten in Form 3:30 addieren
Keine neuen Beiträge Access Tabellen & Abfragen: altes problem: excel import via Anfügeabfrage 8 Micha85 2431 26. März 2008, 10:59
Zed2k altes problem: excel import via Anfügeabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Addieren eines Wertes aus mehreren Datensätzen 5 Patrick Reding 912 05. Dez 2007, 23:23
KlausMz Addieren eines Wertes aus mehreren Datensätzen
Keine neuen Beiträge Access Tabellen & Abfragen: Inhalte dreier "ungleicher" Abfragen addieren 2 gerald_b 896 12. Nov 2007, 23:00
gerald_b Inhalte dreier "ungleicher" Abfragen addieren
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: In Access Filtern, danach addieren 5 X-TREM 476 05. Nov 2007, 20:55
jens05 In Access Filtern, danach addieren
Keine neuen Beiträge Access Tabellen & Abfragen: Felder in spalte löschen und dabei in andere spalte addieren 8 Dreadnought 578 09. Sep 2007, 18:52
rita2008 Felder in spalte löschen und dabei in andere spalte addieren
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage addieren 1 Marcccey 577 09. Jul 2007, 09:37
Willi Wipp Daten aus Abfrage addieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum