VBA-Hilfe bei Nummernblock

[MzKlMu]

Hallo,
die Formatierung dürfte keine Rolle spielen.
Du kannst Die DB mal posten, aber ich benötige eine MDB.
Aber es gibt auch noch andere Helfer hier.


PS und nebenbei:
Single als Datentyp ist meist unbrauchbar. Das ist als Fließkommazahl zu ungenau. Nimm Double.
Hat jetzt aber mit dem Problem nichts zu tun, nur als Hinweis.

[HaNe]

Hallo Klaus,

...ähm...wie kann ich denn hier eine Datei posten, die größer als 300 kb ist?....

Gruß
Hagen

[DF6GL]

Hallo,


gar nicht, dafür die DB evtl. datenreduzieren , komprimieren/reparieren und zippen.

[HaNe]

Hallo zusammen,

hier dann also meine Datenbank - gespeichert als mdb für die 2000er Version.

Gruß
Hagen

[DF6GL]

Hallo,

Code [Auswählen] Erweitern


Private Sub Tasten_Click()
On Error GoTo myerr

Static blnkomma As Boolean

    Select Case Me.Tasten
        Case 0 To 9
       
        If blnkomma Then
       
            If Len(Nz(Me(AktivesFeld), "")) < 12 Then
                Me(AktivesFeld) = Me(AktivesFeld) & "," & Me.Tasten
            End If
           
         blnkomma = False
        Else
            If Len(Nz(Me(AktivesFeld), "")) < 12 Then
                Me(AktivesFeld) = Me(AktivesFeld) & Me.Tasten
            End If
       
        End If
       
        Case 10
            If Len(Nz(Me(AktivesFeld), "")) > 0 Then
                Me(AktivesFeld) = Left(Me(AktivesFeld), Len(Me(AktivesFeld)) - 1)
            End If
        Case 11
            Me(AktivesFeld) = Null
        Case 12
            Me(AktivesFeld) = Me(AktivesFeld) * -1
        Case 13
            MsgBox "Enter gedrückt, eingegebener Wert: " & Me(AktivesFeld)
        Case 14
        blnkomma = True
       
    End Select
    Me.Tasten = Null
   
   
exit_Sub:
   
    Exit Sub
   
myerr:

If Err = 2113 Then
blnkomma = False
  Resume exit_Sub
Else
  MsgBox Err.Number & ": " & Err.Description
  Resume exit_Sub
End If

End Sub

[HaNe]

Hallo DF6GL,

und an ALLE anderen Mitstreiter. Vielen Dank. Es funktioniert wunderbar. Großes Dankeschön

Gruß aus dem Erzgebirge
Hagen

[DF6GL]

Hallo,

oder noch besser so (wegen Eingabe von 0,01)  , mit einem ungebundenen Textfeld (zwecks Anzeige der akt. Angabe oder lediglich einer String-Variablen. 

Code [Auswählen] Erweitern

Private Sub Tasten_Click()
On Error GoTo myerr

Static blnkomma As Boolean  ', txtInput as String


    Select Case Me.Tasten
   

        Case 0 To 9
       
        If blnkomma Then
                  Me!txtInput = Me!txtInput & "," & Me.Tasten
        blnkomma = False
        Else
            If Len(Nz(Me!txtInput, "")) < 12 Then
                Me!txtInput = Me!txtInput & Me.Tasten
            End If
       
        End If
           
           
           
           
        Case 10
            If Len(Nz(Me!txtInput, "")) > 0 Then
                Me!txtInput = Left(Me!txtInput, Len(Me!txtInput) - 1)
            End If
        Case 11
            Me!txtInput = Null
           
        Case 12
            Me!txtInput = Me!txtInput * -1
        Case 13
            MsgBox "Enter gedrückt, eingegebener Wert: " & Me!txtInput
        Case 14
        blnkomma = True
       
    End Select
    Me.Tasten = Null
    Me(AktivesFeld) = Me!txtInput
exit_Sub:
   
    Exit Sub
   
myerr:

If Err = 2113 Then
blnkomma = False
  Resume exit_Sub
Else
  MsgBox Err.Number & ": " & Err.Description
  Resume exit_Sub
End If

End Sub

[HaNe]

Hallo DF6GL,

die erste Variante sollte ausreichend sein, da ich nur die Viertelstunden ( 0,25 / 0,5/ 0,75 ) brauche. Es geht hier um Zeiterfassungen von Einzelteilen und da sollte die erste VBA vollkommen ausreichend sein. Der Bediener sieht zwar erst das Komma nach der Eingabe der folgenden Zahl, aber das ist kein Problem und kann so bleiben.
Vielen Dank für die schnelle Hilfe.

Gruß aus dem Erzgebirge
Hagen