Faire référence à un nom de champ dans ma fonction vba

Bonjour à vous,

J'ai une base de données Access qui me sert à importer des données provenant d'un site externe puis à convertir les données comme il se doit pour ensuite les extraire en un fichier texte sous une forme très stricte (avec des positions et des espaces blancs à respecter) afin que mon système comptable puisse le lire adéquatement. 

J'ai quelques manipulations à faire avec mes données avant de pouvoir les extraire, dont ajouter des espaces avant ou après les données selon le nombre de caractères requis pour le champ.

Voici donc mes objets:

- Table "Donnees" : [No],[A],[B],[C],...
Cette table contient les données que j'importe directement du site à convertir.
- Table "Caracteres" : [No],[NomChampC],[Caracteres]
Cette table regroupe tous les noms des champs de la table "Donnees" avec le nombre de caractères que les données doivent combler.

Par exemple, si le champ [A] correspond au numéro de facture et que la donnée du site est "20231130" (correspondant à 8 caractères), mais que le nombre de caractères requis est 12, je dois combler avec 4 espaces blancs à droite de la donnée, ce qui donne "20231130    ".

Pour ce faire, j'utilise un bouton de formulaire qui exécute une requête UPDATE:
BOUTON: 

Private Sub Commande6_Click()
'Call ChampCaP(Caracteres)

Dim Ma_table As Recordset, strC As String
Set Ma_table = CurrentDb.OpenRecordset("Caracteres")

Do Until Ma_table.EOF
    strC = Ma_table![NomChampC]
    Call CurrentDb.Execute("UPDATE Donnees SET " & strC & " = CharEspacesD ([" & strC & "], " & strC & ")")
    Ma_table.MoveNext
Loop




End Sub

Et voici donc ma fonction à laquelle je fais référence:

Public Function CharEspacesD(ByVal s As String, c As String) As String
 
    Dim nbEsp As Variant, i As Integer, nbCaracReq As Variant, strWEspaces As String
            

    nbCaracReq = DLookup("[NbCaracteres]", "Caracteres", "[NomChampC] = '" & c & "'")


    If Len(s) <= nbCaracReq Then
            
            nbEsp = nbCaracReq - Len(s)
            
            strWEspaces = s & Space(nbEsp)
            s = strWEspaces
    End If
    
    If Len(s) > nbCaracReq Then
            
            strWEspaces = Left(s, nbCaracReq)
            s = strWEspaces

    End If
 
 CharEspacesD = s
 

 
End Function

En premier lieu, j'aimerais savoir s'il est possible d'attribuer une valeur avec seulement des espaces à un enregistrement. donc, si mon numéro de facture est vide, mettre seulement 12 espaces blancs.

En deuxième, Ma fonction ne fonctionne pas parce que la variable "c" fait référence aux données présentes dans l'enregistrement et non au nom du champ de la donnée. Est-ce possible de transférer le nom du champ dans une fonction?

Merci beaucoup, j'attends vos réponses avec impatience !! :)