Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
"+" wird eingegeben = Wert im Feld + 1
zurück: Aktualisieren Combofeld in Unterformular weiter: Problem mit dem geheimnisvollen "anderen Benutzer" Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dalmatinchen
look into my eyes ...


Verfasst am:
07. März 2005, 11:08
Rufname:
Wohnort: Steiermark/Österreich

"+" wird eingegeben = Wert im Feld + 1 - "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Hallo!

Ich habe ein paar Zahlen- Datumsfelder. Wenn das Feld nun den Focus hat und ich "+" oder "-" eingebe, möchte ich, dass dies nicht ins Feld geschrieben wird, sondern sich der Wert im Feld um jeweils 1 erhöht bzw. reduziert ... geht das?

Theoretisch müsste es hinhaun, wenn man in den Eigenschaften des Formulars die Tastenvorschau auf "ja" stellt und dann im Ereignis "bei Taste" des Textfeldes einen Code eingibt ... à la ...
Code:
Private Sub Form_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case vbAdd
         [Textfeld].Value = [Textfeld].Value + 1
      Case vbSubtract
         [Textfeld].Value = [Textfeld].Value - 1
   End Select
End Sub

Nur das funktioniert noch nicht wirklich ...

Danke & LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Tom2002
Der einzig Wahre Leuchtturm - Pilsum


Verfasst am:
07. März 2005, 12:14
Rufname:
Wohnort: Düsseldorf


AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

hi,

versuch mal:
Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
      Case 43
         Me!Textfeld = Me!Textfeld + 1
      Case 45
         Me!Textfeld = Me!Textfeld - 1 
   End Select
End Sub

ciao

tom

_________________
Win7, Win2008 R2, Office 2010 Prof

Wer mit Fortuna Düsseldorf groß geworden ist, der fürchtet sich auch vor Access nicht.
Die Nutzlosigkeit des Daseins anzuerkennen heisst, Fortuna-Fan zu sein.
Dalmatinchen
look into my eyes ...


Verfasst am:
07. März 2005, 12:19
Rufname:
Wohnort: Steiermark/Österreich

AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Danke für die schnelle Antwort!

Habs grad ausprobiert, aber leider wird ins Textfeld "+" oder "-" geschrieben.

LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Tom2002
Der einzig Wahre Leuchtturm - Pilsum


Verfasst am:
07. März 2005, 12:49
Rufname:
Wohnort: Düsseldorf

AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

sorry,

dann hab ich leider keine weitere idee Embarassed

ciao

tom

_________________
Win7, Win2008 R2, Office 2010 Prof

Wer mit Fortuna Düsseldorf groß geworden ist, der fürchtet sich auch vor Access nicht.
Die Nutzlosigkeit des Daseins anzuerkennen heisst, Fortuna-Fan zu sein.
Dalmatinchen
look into my eyes ...


Verfasst am:
07. März 2005, 13:06
Rufname:
Wohnort: Steiermark/Österreich


AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Danke trotzdem!

Hat jemand eine Idee, wie man das lösen könnte?

Danke & LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Willi Wipp
Moderator


Verfasst am:
07. März 2005, 17:31
Rufname:
Wohnort: Raum Wiesbaden

Re: "+" wird eingegeben = Wert im Feld + 1 - Re: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Hi Dalmatinchen,

wie waere es denn mit folgender Loesung
Code:
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
'    Debug.Print KeyCode    ' zum Testen im Direktfenster (Strg+G; Testfenster)
    Select Case KeyCode
      Case 187, vbKeyAdd                ' +  auf Alphanum und Nummernpad (107)
         Me!Textfeld = Nz(Me!Textfeld, 0) + 1
         KeyCode = 0
      Case 189, vbKeySubtract            ' - auf Alphanum und Nummernpad (109)
         Me!Textfeld = Nz(Me!Textfeld, 0) - 1
         KeyCode = 0
   End Select
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dalmatinchen
look into my eyes ...


Verfasst am:
07. März 2005, 17:46
Rufname:
Wohnort: Steiermark/Österreich

AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Funktioniert einwandfrei!

Danke!!!
Nachtrag: Dalmatinchen am 08. März 2005 um 09:09 hat folgendes geschrieben:
Eine Frage hätt ich dann doch noch ...

Wenn ich in einem Formular nun sagen wir zwei Datumsfelder habe und ich möchte, wenn ein Feld den Focus hat, dieses per "+" und "-" erhöhen bzw. vermindern.

Wie kann ich das anstellen?

Mit
Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Me![Datum].OnGotFocus = "" Then
        Select Case KeyCode
          Case 187, vbKeyAdd
             Me!Datum = Nz(Me!Datum, 0) + 1
             KeyCode = 0
          Case 189, vbKeySubtract
             Me!Datum = Nz(Me!Datum, 0) - 1
             KeyCode = 0
       End Select
    End If
    If Me![Faelligkeit].OnGotFocus = "" Then
        Select Case KeyCode
          Case 187, vbKeyAdd
             Me!Faelligkeit = Nz(Me!Faelligkeit, 0) + 1
             KeyCode = 0
          Case 189, vbKeySubtract
             Me!Faelligkeit = Nz(Me!Faelligkeit, 0) - 1
             KeyCode = 0
       End Select
    End If
End Sub

funktionierts nicht ... egal ob das Feld "Datum" oder das Feld "Fälligkeit" den Focus hat ... es wird immer der Wert im Feld "Datum" erhöht bzw. vermindert.

Grundsätzlich funktioniert's mit dem Erhöhen bzw. Vermindern, wobei mir

[Textfeld].OnGotFocus = ""

sehr eigenartig aussieht ... VB hat's mir jedoch vorgeschlagen Wink

LG Dalmatinchen

Nachtrag: Dalmatinchen am 08. März 2005 um 09:16 hat folgendes geschrieben:
Aaaaahhhhhh ... hat sich grad erledigt Wink

Hab grad gesehn, dass es das Ereignis bei Taste Ab auch bei den Textfeldeigenschaften gibt ... hab denCode jeweils bei den Textfelder eingefügt und jetzt funktionierts Very Happy

LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Willi Wipp
Moderator


Verfasst am:
08. März 2005, 12:33
Rufname:
Wohnort: Raum Wiesbaden

Re: "+" wird eingegeben = Wert im Feld + 1 (II) - Re: "+" wird eingegeben = Wert im Feld + 1 (II)

Nach oben
       

Hi Dalmatinchen,

auch wenn Du schon eine Loesung gefunden hast, hier noch ein weiterer Vorschlag
Code:
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
    Dim ctl As Control
   
    Set ctl = Screen.ActiveControl
    Select Case ctl.Name
      Case "Datum", "Faelligkeit"
        Select Case KeyCode
          Case 187, vbKeyAdd            ' +  auf Alphanum und Nummernpad (107)
             ctl = Nz(ctl, 0) + 1
             KeyCode = 0
          Case 189, vbKeySubtract        ' - auf Alphanum und Nummernpad (109)
             ctl = Nz(ctl, 0) - 1
             KeyCode = 0
        End Select
    End Select
    Set ctl = Nothing
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dalmatinchen
look into my eyes ...


Verfasst am:
08. März 2005, 12:49
Rufname:
Wohnort: Steiermark/Österreich

AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Danke!

Mit Select hatt ich's ja auch schon probiert, aber ich bin anscheinend etwas Optionsgruppen-geschädigt ... Ich habs immer mit

Case 1:
usw.
Case 2:
usw.

versucht ... auf Case Datum usw. wär ich nicht gekommen Wink

Wieder was dazugelernt! Danke!

LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Willi Wipp
Moderator


Verfasst am:
08. März 2005, 13:25
Rufname:
Wohnort: Raum Wiesbaden

Re: "+" wird eingegeben = Wert im Feld + 1 (III) - Re: "+" wird eingegeben = Wert im Feld + 1 (III)

Nach oben
       

Hi Dalmatinchen,

nur am Rande: Datum ist kein sehr gluecklich gewaehlter Feldname.
Vorschlag: z.B. DtDatum und DtFaelligkeit, bzw. ZlZahlenwert, ...
=> Man/Frau Wink koennte noch einfacher coden z.B.
Code:
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
    Dim ctl As Control
   
    Set ctl = Screen.ActiveControl
    Select Case Left$ctl.Name, 2)
      Case "Dt", "Zl"
        Select Case KeyCode
          Case 187, vbKeyAdd            ' +  auf Alphanum und Nummernpad (107)
             ctl = Nz(ctl, 0) + 1
             KeyCode = 0
          Case 189, vbKeySubtract        ' - auf Alphanum und Nummernpad (109)
             ctl = Nz(ctl, 0) - 1
             KeyCode = 0
        End Select
    End Select
    Set ctl = Nothing
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dalmatinchen
look into my eyes ...


Verfasst am:
08. März 2005, 23:35
Rufname:
Wohnort: Steiermark/Österreich

AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Dalmatinchen am 08. März 2005 um 13:26 hat folgendes geschrieben:
Datum und Fälligkeit war ja auch nur in meiner "Anfrage" so gewählt. In meiner Datenbank heisst das Feld Datum zum Beispiel "TerminDatum" oder "RechnungsDatum" ... je nachdem Wink

Hallo!

Gibt es die Möglichkeit, diesen Code für ein Uhrzeit-Feld (24 Std.) zu machen?
Code:
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
'    Debug.Print KeyCode    ' zum Testen im Direktfenster (Strg+G; Testfenster)
    Select Case KeyCode
      Case 187, vbKeyAdd                ' +  auf Alphanum und Nummernpad (107)
         Me!Textfeld = Nz(Me!Textfeld, 0) + 1
         KeyCode = 0
      Case 189, vbKeySubtract            ' - auf Alphanum und Nummernpad (109)
         Me!Textfeld = Nz(Me!Textfeld, 0) - 1
         KeyCode = 0
   End Select
End Sub

Ich habs schon probiert mit +1 usw. nur das funktioniert nicht ganz. Am liebsten wäre es mir, wenn immer um eine halbe Stunde erhöht bzw. vermindert wird!

Muss ich das Feld umformatieren? Gibt es da einen Trick?

Danke & LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Willi Wipp
Moderator


Verfasst am:
09. März 2005, 11:14
Rufname:
Wohnort: Raum Wiesbaden

Re: "+" wird eingegeben = Wert im Feld + 1 (IV) - Re: "+" wird eingegeben = Wert im Feld + 1 (IV)

Nach oben
       

Hi Dalmatinchen,

bei Feldern des Datentyps Datum/Zeit, sind die Tage der Ganzzahl-Teil (daher +-1)
und die Zeit der Nachkomma-Teil.
Wenn also 1/1 = 1 Tag, dann 1/24 = 1 Stunde bzw. 1/48 = 1/2 Stunde.
Code:
        Me!Textfeld = Nz(Me!Textfeld, 0) + 1/48
'bzw.
        Me!Textfeld = Nz(Me!Textfeld, 0) - 1/48

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Dalmatinchen
look into my eyes ...


Verfasst am:
09. März 2005, 11:23
Rufname:
Wohnort: Steiermark/Österreich


AW: "+" wird eingegeben = Wert im Feld + 1 - AW: "+" wird eingegeben = Wert im Feld + 1

Nach oben
       

Aaaaah ... das muss man erst mal wissen Wink

Wieder was dazugelernt!

Vielen, vielen Dank!

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
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: JPG im Ole Feld Größe explodiert 1 WarumNur 682 26. Feb 2005, 21:00
snurb JPG im Ole Feld Größe explodiert
Keine neuen Beiträge Access Tabellen & Abfragen: Leeres Feld mit "no info" ausfüllen 2 Gast 696 14. Feb 2005, 15:25
Gast Leeres Feld mit "no info" ausfüllen
Keine neuen Beiträge Access Tabellen & Abfragen: WHERE Wert Is manchmal Null 1 JTR 606 11. Feb 2005, 17:50
lothi WHERE Wert Is manchmal Null
Keine neuen Beiträge Access Tabellen & Abfragen: Feld in Tabelle mittels Aktualisierungsabfrage updaten 1 diso_de 788 11. Feb 2005, 15:45
stpimi Feld in Tabelle mittels Aktualisierungsabfrage updaten
Keine neuen Beiträge Access Tabellen & Abfragen: wie kann ich "#Fehler" aus dem feld rauslöschen? 5 drum_sax 613 04. Feb 2005, 14:40
stpimi wie kann ich "#Fehler" aus dem feld rauslöschen?
Keine neuen Beiträge Access Tabellen & Abfragen: Wert von Kontrollkästchen für Abfrage verwenden? 1 JoHo 1690 21. Jan 2005, 11:41
JoHo Wert von Kontrollkästchen für Abfrage verwenden?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld aus n Records in n Feldern eines Records zusammenfassen 0 frank58 588 31. Dez 2004, 12:05
frank58 Feld aus n Records in n Feldern eines Records zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Wert nicht vorhanden nimm den nächsten 2 Ogdo 788 29. Dez 2004, 12:40
Gast Wenn Wert nicht vorhanden nimm den nächsten
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit sum, max Wert und verhätnis summe/max anzeigen? 1 IV 2531 04. Nov 2004, 18:14
Skogafoss Abfrage mit sum, max Wert und verhätnis summe/max anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL - Abfrage ob ein Wert in der Tabelle enthalten ist 1 notausgang 1301 23. Sep 2004, 09:42
stpimi SQL - Abfrage ob ein Wert in der Tabelle enthalten ist
Keine neuen Beiträge Access Tabellen & Abfragen: Einen Wert per Abfrage in mehreren Tabellenspalten suchen 2 Danny G. 606 10. Sep 2004, 18:22
Danny G. Einen Wert per Abfrage in mehreren Tabellenspalten suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit YES/NO Feld 10 Annette G 883 17. Aug 2004, 11:46
Willi Wipp Abfrage mit YES/NO Feld
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe