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

...

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

...

La fonction SWITCH est plus modulaire qu’IIF

Switch ( expression1, value1, expression2, value2, ... expression_n, value_n, True, default value)

EXEMPLE

Code sql :

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

1
2
 
SELECT Switch(num=0,'ZERO',num=1,'UN' ,num=2,'DEUX',True,'Autre' ) AS test FROM table

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, 176 affichages)