informer

Objectif

J'ai un formulaire avec X boutons qui tous appellent la même fonction sous l’événement

• OnClick -> la fonction appelée a comme paramètre le nom du bouton

Je veux éviter la déclaration de l'événements Click pour chaque bouton

Contexte

Table
TableInfos

Formulaire

• 2 formulaires
  
  • frmXA

...

Pour résoudre le problème du format de la date et du séparateur de la partie décimale, une solution est:

• L'importation par requête SQL dans Access
• La création d'un fichier Schema.ini qu'il faut sauvegarder dans le même répertoire que celui du fichier à importer

Voir aussi post : CSV import via SQL et Schema.ini
Voir post : schema.ini (Microsoft OLE DB Provider for Microsoft Access database engine)



Il faut dans le Schema.ini

...

Fichiers attachés

• test.zip (252 octets, 190 affichages)

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