Tous les billets

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",

...

Voici une routine qui fonctionne avec comme précision majeure => Doubler les parenthèses pour Namespace Source ICI

oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items

Avec simple parenthèse => Génération d'un message d'erreur

Code vba :

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

1
2
3
4
5
6
7
Function test()
 
    Dim oShell As Object
    Dim pathFile As String
 
    'Récuperation de la liste des fichiers
    pathFile = "C:\folder\"

...

Suite à un post, j'ai proposé cette solution pour alimenter des listes déroulantes.

Pour illustrer l’explication, un exemple est téléchargeable.

Il faut créer des requêtes stockées paramétrées qui seront affectées dynamiquement à la liste sur l’événement CHANGE de la liste déroulante précédente.

Prenons le cas de Pays dont le recordSource est

Code :

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

SELECT THE_MOD.MOD_COD, StrConv([MOD_LIB],3) AS PAY FROM (TBL_ETU INNER JOIN TBL_PRO ON TBL_ETU.ETU_CLE

...

Fichiers attachés

• ListBox.zip (120,1 Ko, 166 affichages)