[kapetang]

Καλησπέρα

Γρηγόρη, βάλε σε μια φόρμα ένα κουμπί (cmdSetNewName) και, στο συμβάν κλικ , πρόσθεσε τον κώδικα:

Private Sub cmdSetNewName_Click()
    Dim rs As DAO.Recordset, tblName As String
    Dim OldName As String, NewName  As String


    On Error GoTo errHandler
    tblName = "Table1"  'Εδώ ορίζεται το πραγματικό όνομα του πίνακα
    Set rs = CurrentDb.OpenRecordset(tblName)
    With rs
        If .RecordCount Then
            Do Until .EOF
                OldName = !Current_File_Name: NewName = !New_File_name
                If Dir(OldName) <> "" Then
                    Name OldName As NewName
                End If
                .MoveNext
            Loop
        End If
        MsgBox "Η μετανομασία ολοκληρώθηκε"
    End With
Exit_Sub:
    Set rs = Nothing
    Exit Sub
errHandler:
    MsgBox Err.Description, vbCritical, "Error #" & Err.Number
    Resume Exit_Sub
End Sub