[kapetang]

Καλημέρα

Αποστόλη, καλωσόρισες στην παρέα μας.

Στη φόρμα και στο συμβάν «Change» του πεδίου που καταχωρείς τον κωδικό πρόσθεσε τον παρακάτω κώδικα:

Private Sub id_Change()
    Dim rs As DAO.Recordset, strSQL As String
    If Len(Me.id.Text) = 7 Then
        strSQL = "SELECT Max(Right([ID],6)) AS IX FROM Table1 WHERE Left([ID],7)='" & Me.id.Text & "'"
        Set rs = CurrentDb.OpenRecordset(strSQL)
        If IsNull(rs!IX) Then
            Me.id = Me.id.Text & "." & "000001"
        Else
            Me.id = Me.id.Text & "." & Format(rs!IX + 1, "000000")
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub

Φυσικά θα αντικαταστήσεις τα «Table1» και «ID»με τα πραγματικά.

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