[Meteora]

Καλημέρα σε όλους !
Αγαπητέ (ή) ανώνυμε (-η) μια απλοϊκή πρόταση είναι η εξής :

Private Sub Command21_Click()

    Dim xi As Integer, ci As Integer
    
    xi = 0
    ci = 0
    
    Me.Text18 = [imeresa] + [imeresb]
    Do While Me.Text18 > 30
        Me.Text18 = Me.Text18 - 30
        xi = xi + 1
    Loop

    Me.Text16 = [minesa] + [minesb] + xi
    Do While Me.Text16 > 12
        Me.Text16 = Me.Text16 - 12
        ci = ci + 1
    Loop

    Me.Text14 = [etia] + [etib] + ci
End Sub

[imeresa], [imeresb], ... είναι αριθμητικά πεδία ενός πίνακα και text14,... είναι πλαίσια κειμένου μιας φόρμας η οποία 'κάθεται' στον πίνακα. Φτιάχνεις ένα κουμπί και στο συμβάν 'με το κλικ' φορτώνεις τον παραπάνω κώδικα.

Δέξου την απάντησή μου ως μια αρχή για την λύση που επιθυμείς...

Νίκος Δ.