ΚΑΛΗΣΠΕΡΑ

ΜΗΠΩΣ ΥΠΑΡΧΕΙ ΚΑΝΕΝΑΣ ΕΤΟΙΜΟΣ ΚΩΔΙΚΑΣ ΓΙΑ ACCESS XP ΓΙΑ ΕΓΓΡΑΦΗ ΤΙΜΩΝ ΣΕ ΟΛΟΓΡΑΦΩΣ ?

ΔΗΛΑΔΗ ΣΤΟ ΕΝΑ ΠΕΔΙΟ  ΝΑ ΓΡΑΦΩ ΤΟ ΠΟΣΟ ΚΑΙ ΣΕ ΑΛΛΟ ΝΑ ΒΓΑΖΕΙ ΤΟ ΠΟΣΟ ΟΛΟΓΡΑΦΟΣ

Καλησπέρα και καλωσήλθες,

αν θέλεις μην χρησιμοποιείς κεφαλαία, γιατί δεν φαίνονται και τοσο καλά (σαν να φωνάζεις).

Θα μπορούσες να αξιοποιήσεις ενδεχομένως τη function που θα βρείς στο post Function ΟΛΟΓΡΑΦΩΣ που έχει δημοσιευτεί παλιότερα. (Για Microsoft Dynamics, αλλα δεν νομίζω η προσαρμογή να είναι ιδιαίτερα δύσκολη).

Ευχαριστω για το καλωσορισμα , και sorry για τα κεφαλαια.

Το function αυτο το εχω δοκιμαση αλλα δεν εχει δουλεψει στην vba της access, μηπως εχεις κατι αλλο υποψη?

Εχω βρει ενα κωδικα σε exel ξερεις αν ειναι συμβατος με access?

Εδώ είναι μια ρουτίνα, που είχα γράψει... Μπορεί να το κάνει για τιμές μέχρι 9999,99 Ευρώ.

Private Function MakeOlografos(AXIA As Double) As String
Dim iXiliades As Integer
Dim iEkatontades As Integer
Dim iDekades As Integer
Dim iMonades As Integer
Dim iLeptaDekades As Integer
Dim iLeptaMonades As Integer

Dim sEkatontades(10) As String
Dim sDekades(10) As String
Dim sMonades(10) As String
   
    sEkatontades(1) = "ΕΚΑΤΟ"
    sEkatontades(2) = "ΔΙΑΚΟΣΙΑ"
    sEkatontades(3) = "ΤΡΑΚΟΣΙΑ"
    sEkatontades(4) = "ΤΕΤΡΑΚΟΣΙΑ"
    sEkatontades(5) = "ΠΕΝΤΑΚΟΣΙΑ"
    sEkatontades(6) = "ΕΞΑΚΟΣΙΑ"
    sEkatontades(7) = "ΕΠΤΑΚΟΣΙΑ"
    sEkatontades(8) = "ΟΚΤΑΚΟΣΙΑ"
    sEkatontades(9) = "ΕΝΝΙΑΚΟΣΙΑ"

    sDekades(1) = "ΔΕΚΑ"
    sDekades(2) = "ΕΙΚΟΣΙ"
    sDekades(3) = "ΤΡΙΑΝΤΑ"
    sDekades(4) = "ΣΑΡΑΝΤΑ"
    sDekades(5) = "ΠΕΝΗΝΤΑ"
    sDekades(6) = "ΕΞΗΝΤΑ"
    sDekades(7) = "ΕΒΔΟΜΙΝΤΑ"
    sDekades(8) = "ΟΓΔΟΝΤΑ"
    sDekades(9) = "ΕΝΕΝΗΝΤΑ"

    sMonades(1) = "ΕΝΑ"
    sMonades(2) = "ΔΥΟ"
    sMonades(3) = "ΤΡΙΑ"
    sMonades(4) = "ΤΕΣΣΕΡΑ"
    sMonades(5) = "ΠΕΝΤΕ"
    sMonades(6) = "ΕΞΙ"
    sMonades(7) = "ΕΠΤΑ"
    sMonades(8) = "ΟΚΤΩ"
    sMonades(9) = "ΕΝΝΙΑ"
   
    iXiliades = AXIA \ 1000
    iEkatontades = (AXIA - 1000 * iXiliades) \ 100
    iDekades = (AXIA - 1000 * iXiliades - iEkatontades * 100) \ 10
    iMonades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10) \ 1
    iLeptaDekades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10 - iMonades) * 10 \ 1
    iLeptaMonades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10 - iMonades - iLeptaDekades * 0.1) * 100 \ 1
   
    MakeOlografos = ""
    If iXiliades > 0 Then
        Select Case iXiliades
            Case Is > 9
                MakeOlografos = ""
                Exit Function
            Case 1
                MakeOlografos = MakeOlografos & "ΧΙΛΙΑ"
            Case Else
                MakeOlografos = MakeOlografos & sMonades(iXiliades) & " ΧΙΛΙΑΔΕΣ"
        End Select
    End If
   
    If iEkatontades > 0 Then
        If iEkatontades = 1 And (iDekades <> 0 Or iMonades <> 0) Then
            MakeOlografos = MakeOlografos & " EKATON"
        Else
            MakeOlografos = MakeOlografos & " " & sEkatontades(iEkatontades)
        End If
    End If
   
    If iDekades > 0 Then
        If iDekades = 1 And iMonades = 1 Then
            MakeOlografos = MakeOlografos & " " & "ΕΝΤΕΚΑ"
        ElseIf iDekades = 1 And iMonades = 2 Then
            MakeOlografos = MakeOlografos & " " & "ΔΩΔΕΚΑ"
        Else
            MakeOlografos = MakeOlografos & " " & sDekades(iDekades)
            If iMonades > 0 Then
                MakeOlografos = MakeOlografos & " " & sMonades(iMonades)
            End If
        End If
    Else
        If iMonades > 0 Then
            MakeOlografos = MakeOlografos & " " & sMonades(iMonades)
        End If
    End If
   
    MakeOlografos = MakeOlografos & " ΕΥΡΩ"

    If iLeptaDekades > 0 And iLeptaMonades > 0 Then
        If iLeptaDekades > 0 Then
            If iLeptaDekades = 1 And iLeptaMonades = 1 Then
                MakeOlografos = MakeOlografos & " " & "ΕΝΤΕΚΑ"
            ElseIf iLeptaDekades = 1 And iLeptaMonades = 2 Then
                MakeOlografos = MakeOlografos & " " & "ΔΩΔΕΚΑ"
            Else
                MakeOlografos = MakeOlografos & " " & sDekades(iLeptaDekades)
                MakeOlografos = MakeOlografos & " " & sMonades(iLeptaMonades)
            End If
        Else
            If iLeptaMonades > 0 Then
                MakeOlografos = MakeOlografos & " " & sMonades(iLeptaMonades)
            End If
        End If
   
        MakeOlografos = MakeOlografos & " ΛΕΠΤΑ"
    End If

    MakeOlografos = Trim(MakeOlografos)

End Function

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias

Αν και καθυστεριμένα:

Μέσα στην Access μπορείς να φτιάξεις modules. Μέσα στο module κάνε copy & paste τον παραπάνω κώδικα.

Όπου χρειάζεται να έχεις ένα ποσό ολογράφως, πχ σε ένα textbox, μπορείς να καλείς την μέθοδο σαν

=MakeOlografos(πεδίο ή τιμή)

George J.

George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias