Ενημέρωση εγγραφών με VB

[marpapa]

Καλησπέρα,

Θέλω να ενημερώσω το πεδίο field1 με τους πρώτους 20 χαρακτήρες του πεδίου field.

Το πεδίο field βρίσκεται στον πίνακα p1. Το πεδίο field1 βρίσκεται σε διαφορετικό πίνακα π.χ. p2.

Δηλαδή, θέλω να παίρνει τα στοιχεία που βρίσκονται στο field του πίνακα p1 και να ενημερώνει με νέα εγγραφή το πεδίο field1 που είναι σε άλλο πίνακα.

Σας παραθέτω τον κώδικα για να μου πείτε πως να το παραμετροποιήσω.

Private Sub Aioie?0_Click()
    With CurrentDb.OpenRecordset("p1", 2)
        .MoveFirst
        Do While Not .EOF
            .Edit

            !field1 = Left(!field, 20)

            .Update
            .MoveNext
        Loop
    End With
End Sub

Σας ευχαριστώ