Discussion :

[MGD_Software]

C'est bien ce que je pensais.

Est-ce que tu as fait la modif du "If not IsNull(fsSrce) then..." ?
Sinon c'est normal qu'il y ait l'erreur.
Les champs Access n'acceptent généralement pas une longueur de chaîne nulle par défaut. Dans Access, on peut forcer la propriété "AllowZeroLength" des champs texte, ce qui résoud le problème mais n'est pas satisfaisant pour l'esprit.

La bonne solution est de sauter la mise à jour du champ destination si le champ source est nul. Comme par défaut le champ est nul (vide) à sa création, il le reste.

Si malgré le If... le problème persiste, c'est que la requête ne renvoie pas un champ null (comme le ferait une base Access) mais un texte de longueur 0 (comme un serveur SQL). Tu ne précises pas le type de serveur origine.
Dans ce cas, on peut tenter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        For Each fdSrce In rsSrce.Fields
            If Not IsNull(fdSrce) and not fdSrce = "" then
                rsDest.Fields(fdSrce.Name) = fdSrce
            End If
        Next

Ce coup-ci, on ne peut pas avoir l'erreur 3315 puisqu'on ne tente pas de mettre à jour les champs vides. Par contre, si le champ est Null, VB peut faire un caca sur l'expression fdSrce = "", car je ne sais plus s'il sait comparer un objet Null à une chaine vide. Dans le pire des cas, une solution plus longue mais plus sûre serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
        For Each fdSrce In rsSrce.Fields
            If IsNull(fdSrce) then
                'On ne fait pas de mise à jour si le source est Null
            ElseIf fdSrce = "" then
                'On ne fait pas de mise à jour si le source est une chaine vide
            Else
                rsDest.Fields(fdSrce.Name) = fdSrce
            End If
        Next

VBA, on t'aura ! Non mais alors !

[MGD_Software]

Il y a encore une autre solution, encore moins propre mais désespérée:

Dans la boucle qui crée les champs, on force les champs de type Texte à accepter les chaines vides. Cela donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    For Each fdSrce In rsSrce.Fields
        Set fdDest = New DAO.Field
        fdDest.Name = fdSrce.Name
        fdDest.Type = fdSrce.Type
        Select Case fdDest.Type
            Case dbBinary, dbLongBinary, dbText 'Champs de taille réglable fdDest.Size = fdSrce.Size
        Case Else
            'On ne fait rien car la taille est implicite
        End Select
        If fdDest.Type = dbText Then fdDest.AllowZeroLength = True
        Td.Fields.Append fdDest 'Ajout du champ à la table
    Next

A n'utiliser qu'en dernier recours car après il est difficile de savoir si le champ est Null (non initialisé par une valeur) ou si on y a mis une chaine vide. A toi de voir...

[NoViceDel]

C'est bon !
On l'a défoncé ! Access pleure parce qu'on a réussi !
Merci beaucoup !

Mais comme je vois que t'es calé ! je ferai appel à toi à l'avenir si sa ne te déranges pas ....

Merci MGD !