Update σε πεδίο πίνακα

Καλησπέρα σε όλους!

Αγαπητέ φίλε, αφού σ ευχαριστήσω για τα καλά σου λόγια, θα ήθελα να δοκιμάσεις ( αν φυσικά δεν έχεις καταλήξει)
τον παρακάτω κώδικα προκειμένου να χρησιμοποιήσεις μεταβλητή σε όνομα πεδίου:

Option Compare Database
Option Explicit

Sub UpdateTable(VarFieldName$)
    Dim xField As DAO.Field
    With CurrentDb.OpenRecordset("Bathmoi", 2)
        Set xField = .Fields(VarFieldName)
        .MoveFirst
        Do While Not .EOF
            .Edit
            xField = xField * 0.2
            .Update
            .MoveNext
        Loop
    End With
End Sub

Sub Call_UpdateTable()
    UpdateTable "FieldName"   ' όπου  "FieldName" = το όνομα του επιθυμητού πεδίου.
End Sub

Με εκτίμηση