[ Υποφόρμες ] Αυτόματη αρίθμηση σε υποφόρμα

[sirpanos]

Καλημέρα παιδιά !!
Χρειάζομαι και πάλι τα φώτα σας σε κάτι που φαίνεται απλό και υπάρχουν αρκετά θέματα
πάνω σε αυτό αλλά και πάλι δεν κατάφερα να βρω λύση.
Θέλω να βάλω αυτόματη αρίθμηση σε δευτερεύουσα φόρμα , μόνο να φαίνεται στην οθόνη
χωρίς να καταχωρείται πουθενά.
Κάθε εγγραφή να αρχίζει απο το 1 , και στην επόμενη σελίδα πάλι απο την αρχή.

ευχαριστώ εκ των προτέρων και μπράβο σας για τις καθημερινές βοήθειες σε όλους μας !!!!

[nasos23]

Καλησπέρα σε όλους.
Παναγιώτη δημιούργησε μία λειτουργική μονάδα (module) και κάνε αντιγραφή τον
παρακάτω κώδικα:

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    'Purpose:   Numbering the rows on a form.
    'Usage:     Text box with ControlSource of:  =RowNum([Form])
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

Αποθηκεύεις και κλείνεις το module.
Στη συνέχεια.
Στην υποφόρμα και σε μορφή σχεδίασης δημιουργείς ένα αδέσμευτο πεδίο ->Δεδομένα->
Προέλευση στοιχείου ελέγχου γράφεις : =RowNum([Form])

[sirpanos]

Ευχαριστώ πολύ Νάσο για την απάντηση σου !!
Δεν μου δουλεύει όμως , στο πεδίο βγάζει #Όνομα;
Την λειτουργική μονάδα την βάζω στην κεντρική φόρμα ή στην δευτερεύουσα ?
Αν ακι το δοκίμασα και στις 2 αλλά και πάλι το ίδιο βγάζει.
έχεις κάποιο παράδειγμα με κάποια βάση ?

Εχω Access 2007 Ελληνικά , δεν ξέρω άν επηρεάζει κάπου

Και πάλι Ευχαριστώ

[nasos23]

Καλημέρα
Δες το συνημμένο παράδειγμα

[sirpanos]

Ναι , αυτό είναι , Ευχαριστώ πολύ Τάσο !!!!!!