Sans catégorie

Bonjour,

Je ne parlerai pas de la solution qui est d'utiliser

• Recordset.fields(i)
• Recordset!NomChamp

Très bien documentée dans les différents forums et aides en tout genre!

Mon billet porte sur la solution avec CopyFromRecordset.

Merci à tee_grandbois.

Mieux qu'une explication de texte, le code

Code :

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

1
2
 Dim oRecSetSource As Recordset, oRecSetClone As Recordset
    Dim varBookmark As Variant

...

Appel d’un formulaire en mode ajout depuis un autre formulaire, voici comment le pré-remplir

Le formulaire appelant est frmSource dans lequel est ajouté un sous-formulaire frmSsForm et appelé frmCible

Considérant que l'appel de frmCible se fait en cliquant sur un bouton cmdOuvreCible et récupère l'id de la ligne active de frmSsForm on a le code suivant:

Code vba :

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

1
2
3
Private Sub cmdOuvreCible_Click()
 
    DoCmd.OpenForm "frmCible",

...

Les différentes raisons de troncation sont expliquées ici memo field truncation by allen browne

Il faut donc :

1. Positionner en premier le champ memo
2. Supprimé DISTINCT de la requête et par conséquent modifié la requête initiale en ajoutant une sous requête avec WHERE champX IN (SELECT DISTINCT champX....)

La coexistence de 2 champs memo est donc impossible

une solution est

• Créer dans MS-Access un paramétrage d'import texte en y identifiant le champ à déclarer en memo (pour Access 2010: Données externes -> fichier texte -> Sélectionner la source et la destination des données-> ... avant de terminer cliquer sur Avancer et enregistrer les paramètres d'import exemple paramImport
• transformer l'onglet Excel à charger en csv
• Utiliser DoCmd.TransferText

Code :

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

DoCmd.TransferText acImportDelim, "paramImport",  "myTable",

...

Soit la structure des données suivante


NUMERO (num: integer pk)
XRF (code: string; intervDeb: integer; intervFin: integer) -> table d’intervalle
MNX (code: string; intervDeb: integer; intervFin: integer; code2:string) -> Enregistrements dont on doit définir à quel intervalle ils appartiennent

Voici une solution

• Création d'une table NUMERO avec un seul champ clé primaire = Numérique incrémenté de 1 => Autant

...

Fichiers attachés

• Database1.zip (23,7 Ko, 181 affichages)