[kapetang]

Καλησπέρα

Γιώργο, ελπίζω να κατάλαβα σωστά το ζητούμενο.

Στην επισυναπτόμενη ΒΔ έκανα τις ακόλουθες αλλαγές:

1) Επειδή το τελευταίο πεδίο αρχίζει από «000», άλλαξα τα πεδία από αριθμητικά σε πεδία κειμένου.

2) Για να αποθηκεύουν διαφορετικές τιμές, δημιούργησα ευρετήρια που δεν επιτρέπουν διπλότυπες.

3) Πρόσθεσα τον παρακάτω κώδικα.

Private Sub cmdRnd_Click()
    Dim j As Integer
    On Error Resume Next
    For j = 1 To 10
        With Me.Recordset
            .AddNew
            .Fields("ΠΙΣΤΟΠΟΙΗΤΙΚΟ") = CreateRdn("1", 6)
            .Fields("ΑΡΙΘΜΟΣ_ΠΙΣΤΟΠΟΙΗΤΙΚΟΥ") = CreateRdn("1700", 9)
            .Fields("ΚΩΔΙΚΟΣ_ΠΙΣΤΟΠΟΙΗΤΙΚΟΥ") = CreateRdn("000", 9)
            .Update
        End With
    Next
    Me.Recordset.MoveLast
    On Error GoTo 0
End Sub


Public Function CreateRdn(ByVal strStart As String, Digits As Integer) As String
    Dim j As Integer
    For j = 1 To Digits - Len(strStart)
        strStart = strStart & Int(Rnd() * 10)
    Next
    CreateRdn = strStart
End Function

Αν πατήσουμε το κουμπί θα προστεθούν στον πίνακα 10 ή λιγότερες ( αν μία εγγραφή δημιουργεί διπλότυπα δεν αποθηκεύεται) εγγραφές .

Φιλικά/Γιώργος