Net Framework, Office 365, C#, WPF, ASP.Net, Visual Studio, Programmiersprachen PC, C# Programmieren, vba, SQL Server, free source code snippets Antivirus free
#

Access vba: Fortschreibende Vorgabewerte erstellen

 

 

Aufgabe:

in einem Eingabefeld sollen die Vorgabewerte für neue Zeilen automatisch einem Zähler oder einer fortlaufenden Nummerierung entsprechen

 

Lösung:

In Vba ermittelt man den eingegebenen Wert. Hiervon berechnet man ob es einen Trennpunkt gibt und erhöht anschliessend den rechten Teil ab der Trennung durch erhöhung der ASCII – Nummern.

 

Fortschreibung einer Nummererierung mittels Ascii

'*.a or .1

Next_Letter = Chr(Asc(sExt) + 1)

 

 

 

Lösungs-Code in vba Visual Basic for Applcations.

Eingesetzt in Microsoft Access alle Versionen

Private Sub ctlPosition_AfterUpdate()

    '--------< ctlPosition_AfterUpdate() >--------

    '< check input >

    Dim sInput As String

    sInput = Nz(ctlPosition.Value, "")

 

    Dim posPoint As Integer

    posPoint = InStr(1, sInput, ".")

    '</ check input >

 

    If posPoint > 0 Then

        '----< Has .Point >----

        Dim sExt As String

        sExt = Mid(sInput, posPoint + 1)

        If Len(sExt) = 1 Then

            '--< Single Extension >--

            '*.a or .1

            sExt = Chr(Asc(sExt) + 1)

            Dim sFront As String

            sFront = Mid(sInput, 1, posPoint)

 

            '< set Default >

            ctlPosition.DefaultValue = "'" & sFront & sExt & "'"

            '</ set Default >

            '--</ Single Extension >--

        End If

        '----</ Has .Point >----

    Else

        '----< Numeric >----

        If IsNumeric(ctlPosition) Then

            '-< IsNumeric >-

            Dim sNext As Integer

            sNext = CLng(ctlPosition) + 1

            '< set Default >

            ctlPosition.DefaultValue = "'" & sNext & "'"

            '</ set Default >

            '-</ IsNumeric >-

        End If

        '----< Numeric >----

    End If

    '--------</ ctlPosition_AfterUpdate() >--------

End Sub

 

 

Einfach in den AfterUpdate Event einsetzten.

Mobile
»
Access: Sonderzeichen in vba einsetzen
»
Access VBA: Löschen von Datensätzen
»
VBA Funktion: Konvertiere Numerierung in Zahl
»
Access vba: Fortschreibende Nummerierung als Vorgabewerte erstellen
»
Vba: Option Explicit
»
VBA: Option Explicit

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Raimund.Popp@Microsoft-Programmierer.de