Πρώτα Βήματα - Βάσεις δεδομένων

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

cap — Sat, 06 Jan 2007 05:09:29 GMT

Να θυμάστε να κλείνετε το θέμα (επιλέγετε "Εχει επιλυθεί" από την κορυφή) όταν θεωρείτε οτι έχει απαντηθεί. Το κλείνω εγώ αυτό.

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

JOHNM — Sat, 06 Jan 2007 04:58:48 GMT

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

Δούλεψε άψογα.

Σε ευχαριστώ πολύ

JohnM

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

George J. Capnias — Sun, 03 Sep 2006 03:50:35 GMT

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

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

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

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

George J.

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

JOHNM — Tue, 30 May 2006 17:57:45 GMT

Καταρχην σε ευχαριστώ για τον κώδικα.

Μηπως ομως μπορεις να μου πεις πως θα τον καταχωρισω ως module η class module , και πως θα των καλεσω.

Ευχαριστω πολυ

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

George J. Capnias — Sat, 20 May 2006 07:30:52 GMT

Εδώ είναι μια ρουτίνα, που είχα γράψει... Μπορεί να το κάνει για τιμές μέχρι 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.

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

JOHNM — Sat, 20 May 2006 03:35:32 GMT

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

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

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

Απ: Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

cap — Sat, 20 May 2006 03:05:32 GMT

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

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

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

Μήπως υπάρχει κανένας έτοιμος κώδικας για Access XP για εγγραφή τιμών σε ολογράφως;

JOHNM — Sat, 20 May 2006 02:55:32 GMT

ΚΑΛΗΣΠΕΡΑ

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

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