1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Access VBA - Variable

Discussion in 'Programmieren' started by stippiderkoch, Dec 21, 2006.

Thread Status:
Not open for further replies.
  1. stippiderkoch

    stippiderkoch Byte

    Hi, ich habe folgendes Problem. Im Textfeld LW ist Monat/Jahr 6-stellig gespeichert. Dann wird das Textfeld PZR dazugezählt.
    Nun soll der Feldinhalt in Jahr/Monat für einen Bericht gedreht werden. Bei z.B. 122005 funktioniert es, bei 032005 aber nicht.
    Jetzt fehlt im Feld LWB die führende Null also 32005.
    Wie wird das gelöst, ohne das die Tabellenfelder auf nummerisch geändert werden müssen?


    Private Sub LW_AfterUpdate()

    Dim LWmm As String * 2
    Dim LWjj As String * 4
    Dim LWB As String * 6


    If PZR >= 1 Then
    LWB = LW + PZR
    LWjj = Right(LWB, 4)
    LWmm = Left(LWB, 2)
    LWBerechnung = LWjj + LWmm
    End If
    End Sub

    Mfg
     
    stippiderkoch, Dec 21, 2006
    #1
  2. Angel-HRO

    Angel-HRO Megabyte

    Bei dieser Funktion: so

    Private Sub LW_AfterUpdate()

    Dim LWmm As String * 2
    Dim LWjj As String * 4
    Dim LWB As String * 6


    If PZR >= 1 Then
    LWB = LW + PZR
    LWjj = Right(LWB, 4)
    LWmm = Left(LWB, 2)
    LWBerechnung = Format(LWjj + LWmm,"000000")
    End If
    End Sub
     
    Angel-HRO, Dec 21, 2006
    #2
  3. stippiderkoch

    stippiderkoch Byte

    Danke André

    Das war die Lösung.
    Ich wünsch Dir frohe Weihnachten und einen guten Rutsch nach 2007
    Peter
     
    stippiderkoch, Dec 22, 2006
    #3
Thread Status:
Not open for further replies.

Share This Page