Messages des blogs récents

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)

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

...