Συνέχεια αλφαριθμητικής αρίθμησης

[Thanosp]

Καλησπέρα
Κοίτα το συνημμένο, στο μετέφερα στην άλλη φόρμα, και άφησα ως ήταν .
Θανάσης

[passarella]

Αρχική Δημοσίευση από Thanosp

Καλησπέρα
Κοίτα το συνημμένο, στο μετέφερα στην άλλη φόρμα, και άφησα ως ήταν .
Θανάσης

Καλησπέρα και πάλι.
Το πρόβλημα με το αρχείο βιβλιοθήκης στα xp δεν εμφανίζεται, οπότε όλα καλά.
Εμφανίζεται μόνο στα win7.

Ευχαριστώ πολύ για την απάντηση σας.
Τα πονήματα τα είδα αλλά και πάλι θα επιμείνω ότι θα ήθελα να γίνεται αυτόματα η αλλαγή της αρίθμησης (όπως και στο πόνημα του Stelianta) με τη διαφορά ότι θα γίνεται ξεχωριστά, δηλ.τα άτομα με την ιδιότητα Διευθυντής 1,2,3 κ.ο.κ. , Υποδιευθυντής 1, 2, 3 κ.ο.κ , και κάθε φορά που θα προσθέτω ένα νέο μέλος να γίνεται αυτόματα η αρίθμηση,ανάλογα με την ιδιότητα, με την ενημέρωση δηλ., αλλά όχι στο σύνολό του, όπως στο πόνημα του Stelianta.π.χ. όταν θα δίνω μια εγγραφή με ιδιότητα Διευθυντής και πρέπει να μπει, λόγω αρχαιότητας, μεταξύ της εγγραφής 2 και 3, να δίνω ListNumber = 2 και αυτόματα οι υπόλοιπες εγγραφές να γίνονται 3, 4 κ.ο.κ

Στο τελευταίο πόνημα πρέπει να αλλάζω εγώ την ταξινόμηση (πεδίο ListNumber) , μία - μία εγγραφή, να πατάω το κουμπί Αρίθμηση και να γίνεται η ταξινόμηση.

Δεν ξέρω αν εξ' αρχής δεν έγινα κατανοητή.

Δεν γνωρίζω επίσης πολύ καλά VBA κώδικα
Προσπαθώ όσο μπορώ να κατανοήσω μερικά πράγματα.

Ελπίζω σε μια βοήθεια προκειμένου ολοκληρώσω αυτό που έχω αρχίσει.
Ευχαριστώ και πάλι.

[ασχετος]

Χριστίνα καλό απόγευμα,

Στην βάση του Θανάση "epanarithmisi", στην φόρμα "frm_idiotita" στο πεδίο 'cb0' έβγαλα τον κώδικα και στο πεδίο 'ListNumber' της δευτερεύουσας φόρμας 'Δευτερεύουσα φόρμα tbl_Persons Ετικέτα' στο συμβάν 'Before Upadate' έβαλα αυτόν τον κώδικα. Είναι τροπόποιηση του κώδικα του Θανάση. Μάλλον πρέπει να σου κάνει.

Dim EpetNum As Long
Dim parent_id_idiot As Long
Dim db As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Dim rscount As Integer

parent_id_idiot = Me.Parent.cb0.Column(0)
EpetNum = Nz(Me.ListNumber)

strSQL = "SELECT * " & _
" FROM tbl_Persons" & _
" WHERE [Id_idiotitas]=" & parent_id_idiot & _
" AND[ListNumber] >=" & EpetNum & _
" ORDER BY[ListNumber]"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rscount = rst.RecordCount

i = EpetNum + 1

If rscount = 0 Then
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
Else
Do
rst.Edit
rst![ListNumber] = i
rst.Update
rst.MoveNext
i = i + 1
Loop Until rst.EOF
End If

rst.Close
Set rst = Nothing
Set db = Nothing

[ασχετος]

Χριστίνα καλό σου βράδυ,

επειδή κάποτε θα χρειαστεί να διαγράψεις κάποιον, με κάποια ιδότητα, για να γίνει ξανά συνεχή αρίθμηση στο πεδίο 'ListNumber' της 'Δευτερεύουσα φόρμα tbl_Persons' πρέπει στο συμβάν, αυτής της φόρμας, 'After Del Confirm' να βάλεις αυτόν τον κώδικα

Dim EpetNum As Long
Dim parent_id_idiot As Long
Dim db As Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Dim rscount As Integer
Dim NumList As Integer

parent_id_idiot = Me.Parent.cb0.Column(0)

strSQL = "SELECT * " & _
" FROM tbl_Persons" & _
" WHERE [Id_idiotitas]=" & parent_id_idiot & _
" ORDER BY[ListNumber]"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rscount = rst.RecordCount
rst.MoveFirst
NumList = rst![ListNumber]

i = NumList

If rscount = 0 Then
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
Else
Do
rst.Edit
rst![ListNumber] = i
rst.Update
rst.MoveNext
i = i + 1
Loop Until rst.EOF
End If

rst.Close
Set rst = Nothing
Set db = Nothing

και στο συμβάν 'After Update' της ίδιας φόρμας τον κώδικα

Me.Form.Requery
DoCmd.GoToRecord , , acNewRec

[passarella]

Ευχαριστώ πολύ το μέλος άσχετος που μάλλον το αντίθετο θα έλεγα!!!

Όντως αυτό ήθελα....Πολύ καλό...!!!!

Θα επανέλθω με τυχόν απορίες.....


Ευχαριστώ και πάλι όσους μου απάντησαν έως τώρα.....