אופיס 365 קוד עיצוב למספר רכב באקסס

[יאיר משה]

שלום וברכה
איך כותבים באקסס קוד לשדה מספר, שאם מזינים בו 7 ספרות העיצוב יהיה 72-059-03, ואם מזינים 8 ספרות, העיצוב יהיה 123-45-678.

תודה לעוזרים

 

[אפקטיביות]

תוסיף פונקציה ב"אחרי עדכון"
(כמובן אל תשאיר את שמות המשתנים בצורה המזעזעת הזאת...)

Function o(v As Long)
    Dim d As String
    d = Trim(Str(v))
    If Len(d) = 7 Then
        o = Left(d, 2) & "-" & Mid(d, 3, 3) & "-" & Right(d, 2)
    ElseIf Len(d) = 8 Then
        o = Left(d, 3) & "-" & Mid(d, 4, 2) & "-" & Right(d, 3)
    End If

End Function