Arkham - 30/04/2007 - Defi Access N°1

**Arkham46** · 09/05/2007, 10h02

Envoyé par DMboup

J'ai maintenant une solution fonctionnelle basée sur le formulaire dont l'image est présentée ci-dessous.
Il ne me reste qu'à remplacer ma table temporaire par un tableau (ou une liste) et à faire le complément.

ça a une bonne tête

Concernant l'ouverture de la fenêtre VBA :
chez moi c'est l'instruction CreateEventProc qui ouvre cette fenêtre; même problème vu sur divers forums; la seule solution efficace semble être de créer soit-même la procédure événementielle avec InsertLines ...

Une remarque toutefois : tu ne sembles pas prendre en compte la modification de listes existantes, je me trompe?
Si mes listes existent déjà et que je veux simplement les lier, est-ce tu gères ce cas?
(le sujet mentionnait "en création ou en modification"

)

Sinon prend ton temps quand même, faudrait pas aller plus vite que moi

**DMboup** · 09/05/2007, 11h45

Envoyé par Arkham46

... CreateEventProc qui ouvre cette fenêtre; même problème vu sur divers forums; la seule solution efficace semble être de créer soit-même la procédure événementielle avec InsertLines ...

Chez moi c'est les deux que je combines. CreateEventProc pour créer la procédure événementielle et InsertLines pour écrire le code dans la procédure créer.

J'ai finalement mis mon formulaire en modal et du coup la fenetre VBA est en arrière plan. C'est toujours pas élégant.

Envoyé par Arkham46

Si mes listes existent déjà et que je veux simplement les lier, est-ce tu gères ce cas?
(le sujet mentionnait "en création ou en modification"

)

Non tu as vu juste. J'avais complétement oublié la modification. mais il me semble que c'est moins compliqué.

Envoyé par Arkham46

Sinon prend ton temps quand même, faudrait pas aller plus vite que moi

T'inquiéte pas. je ne fais pas la course. C'est juste que je fais pleins de liaison et que cet assistant me raccourci beaucoups de temps.

A part ca j'ai deux autres soucis.

1 - Dans les listes que je crées, je considères la première colonne comme l'identifiant numérique de la liste et je le cache automatiquement (largeur colonne = 0). Je ne sais pas si c'est vouloir aller plus loin en mettant en place une possibilité de choix des colonnes à afficher et de l'identifiant de la liste.

2 - Contrôle de cohérence des types pour la liaison

(On ne peut pas non plus tout faire pour un programmeur).

**DMboup** · 10/05/2007, 12h48

Envoyé par DMboup

... oublié la modification. mais il me semble que c'est moins compliqué.

Erreur !!! Peut être que je suis engagé dans une voie sans issue mais la modification semble extrémement compliquée. Il y a énormément de cas en prendre en compte.

1. Les listes existent avec les requêtes et code VBA = > liaison simple à faire
2. Les listes existent avec les requêtes sans code= > liaison et code VBA à faire
3. Les listes existent sans aucune informations = > requêtes, liaison et code VBA à faire

4. Une des listes doit être complétée : élèment inexistant
4.1 Requête
4.2 Code VBA
4.3 Liaision à faire

5. Un des éléments est à modifier
5.1 Requête
5.2 Code VBA
5.3 Liaision

..........................................................

A part ca j'ai maintenant un complément de menu mais fonctionnel bizarement que si le fichier est en mde. Avec un mda, j'ai un message d'erreur qui dit que le code n'est pas compilé ou qu'il y a des erreurs (ce qui n'est pas le cas).

**Arkham46** · 14/05/2007, 22h28

Envoyé par DMboup

Chez moi c'est les deux que je combines. CreateEventProc pour créer la procédure événementielle et InsertLines pour écrire le code dans la procédure créer.

Pour ne pas voir du tout la fenêtre VBA, le seul moyen que j'ai trouvé c'est d'utiliser InsertLines pour insérer les lignes à la place de la fonction CreateEventProc...

Envoyé par DMboup

1 - Dans les listes que je crées, je considères la première colonne comme l'identifiant numérique de la liste et je le cache automatiquement (largeur colonne = 0). Je ne sais pas si c'est vouloir aller plus loin en mettant en place une possibilité de choix des colonnes à afficher et de l'identifiant de la liste.
.

Vu comme ça c'est sûr que refaire l'assistant de création de zone de liste c'est pas cool.
As-tu envisagé d'appeler l'assistant de création standard à partir de ton programme?
cf : http://arkham46.developpez.com/artic...mplements/#LVI
Dans mon cas ça donne :

Code :

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

Application.Run "acwzmain.lst_Entry", "NomDeLaZoneDeListe", "NomDeLEtiquetteAssociée"

ou

Code :

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

1
2
 
Application.Run "acwzmain.cmb_Entry", "NomDeLaZoneDeListeModifiable", "NomDeLEtiquetteAssociée"

A voir si ça peut s'insérer dans ton cas...

Envoyé par DMboup

Erreur !!! Peut être que je suis engagé dans une voie sans issue mais la modification semble extrémement compliquée. Il y a énormément de cas en prendre en compte.

Exact! Enfin je veux dire : exact pour ce qui est de la difficulté.
Peut-on traiter tous les cas? J'en doute.
Par contre on peut peut-être poser des alertes pour dire "ça je ne sais pas faire".
Par exemple, si la requête est trop complexe et qu'on ne sait pas la modifier de manière fiable pour insérer la clause where, alors on affiche un message d'erreur et on bloque le déroulement de l'assistant.
Ou alors autre option : on affiche juste un avertissement, et on crée une ébauche du code qui devra être modifiée manuellement.
On ne peut effectivement pas tout faire, mais si on ne sait pas faire, alors je pense qu'il faut au moins le faire savoir à l'utilisateur (=le développeur).

Envoyé par DMboup

A part ca j'ai maintenant un complément de menu mais fonctionnel bizarement que si le fichier est en mde. Avec un mda, j'ai un message d'erreur qui dit que le code n'est pas compilé ou qu'il y a des erreurs (ce qui n'est pas le cas).

Alors ça je n'ai pas vu ce problème.
A quel moment le message d'erreur? A l'exécution, à l'installation??

**DMboup** · 15/05/2007, 12h56

Envoyé par Arkham46

Alors ça je n'ai pas vu ce problème.
A quel moment le message d'erreur? A l'exécution, à l'installation??

A l'exécution. Et ca ne l'empêche pas de fonctionner après fermeture de la fenêtre qui affiche le message

**Arkham46** · 18/05/2007, 22h32

Envoyé par DMboup

A l'exécution. Et ca ne l'empêche pas de fonctionner après fermeture de la fenêtre qui affiche le message

Je n'ai pas réussi à reproduire ce message d'erreur...

Peut-être une décompilation du code pourrait aider (cf ici pour la commande)

**DMboup** · 19/05/2007, 19h30

J'ai finalement créer une nouvelle base et tous importer. La après compilation ca marche aussi bien avec le mda qu'avec le mde.

Maintenant pour la suite est ce que je dois envoyer la solution déjà fonctionnelle pour teste ou faut-il attendre que la modification soit intégrée pour le faire?

**Arkham46** · 21/05/2007, 18h26

Envoyé par DMboup

Maintenant pour la suite est ce que je dois envoyer la solution déjà fonctionnelle pour teste ou faut-il attendre que la modification soit intégrée pour le faire?

Note que la date de fin a été mise à fin juin.
Si quelqu'un d'autre veut se lancer, ça laisse encore un bon mois.
Mais tu peux soumettre ton complément avant si tu veux.

**DMboup** · 01/06/2007, 15h28

En attendant de finaliser la partie concernant la modification, je soumets mon complément pour d'éventuelles remarques et suggestions.

C'est un mda version Access 2003

**Arkham46** · 12/06/2007, 22h22

Envoyé par DMboup

En attendant de finaliser la partie concernant la modification, je soumets mon complément pour d'éventuelles remarques et suggestions.

C'est un mda version Access 2003

J'ai bien vu ton message mais j'étais en congés et le retour est dur.
Je vais regarder j'espère avant le WE.

**micniv** · 12/06/2007, 22h30

Envoyé par DMboup

En attendant de finaliser la partie concernant la modification, je soumets mon complément pour d'éventuelles remarques et suggestions.

C'est un mda version Access 2003

Si ça ne te demande pas trop de travail, pourrais-tu nous poser un MDA version 2000 ?
Merci beaucoup

**DMboup** · 13/06/2007, 15h20

Le mda version 2000 est joint.

Attendons toujours remarques.

**micniv** · 13/06/2007, 16h03

Merci
Je parie qu'en distribuant en Acc2000, tu toucheras une plus grande population et donc des remarques.
Je vais tester sous qqs jours.

**micniv** · 13/06/2007, 19h38

Malgré l'orage, je suis mis à tester, sous Acc2000 donc :

Pour info, dans un nouveau form, je vais lié 3 listes :
noPaysLst
noDeptLst
codeCP

Le pb : lorsque je selectionne par double clic le premier champ de la table qui correspond à la première liste, j'ai une erreur sur la ligne en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ListeChamps_DblClick(Cancel As Integer)

'MAJ DU CONTROL ChampALister (Liste des colonnes de la requête à construire)
    
    If IsNull(Me.ChampALister.RowSource) Or Me.ChampALister.RowSource = "" Then
        Me.ChampALister.RowSource = Me.ListeChamps.Value
    Else
        Me.ChampALister.RowSource = Me.ChampALister.RowSource & ";" & Me.ListeChamps.Value
    End If
    Me.ChampALister.Requery
    
    Me.ListeChamps.RemoveItem (Me.ListeChamps.Value)
    Me.ListeChamps.Requery
    Me.ChampALister.Enabled = True
    If Eval(Me.ListeEnCour.Value) > 1 Then
        Me.ChampLiaison.Enabled = True
    End If
End Sub

**SamLeChiseuji** · 14/06/2007, 16h16

Je viens de tester sur Access 2002, et ça marche

!
Bon, il y a encore plein d'erreurs si on ne clique pas où il faut quand il faut, mais c'est normal, tout est loin d'être finalisé !
Mais si on remplit tout comme il faut, ça fonctionne

**DMboup** · 14/06/2007, 17h07

Envoyé par micniv

Malgré l'orage, je suis mis à tester, sous Acc2000 donc :
Pour info, dans un nouveau form, je vais lié 3 listes :
noPaysLst
noDeptLst
codeCP
Le pb : lorsque je selectionne par double clic le premier champ de la table qui correspond à la première liste, j'ai une erreur sur la ligne en rouge :

Vérifies tes références notamment le Microsoft DAO 3.6 Object Library.

**micniv** · 14/06/2007, 18h00

J'ai bien cette lib DAO 3.6

Mais la méthode .RemoveItem appliquée à une liste de valeurs ne semble pas être reconnue en ACC 2000.

**DMboup** · 14/06/2007, 18h33

Envoyé par micniv

...Mais la méthode .RemoveItem appliquée à une liste de valeurs ne semble pas être reconnue en ACC 2000.

Peut être bien. J'ai enregistré le fichier de Acc 2003 vers 2000 avant de de faire le complément. Je vais vérifier sur 2000.

Invité · 15/06/2007, 07h45

Bonjour

La méthode RemoveItem n'existe qu'à partir d'Access 2002, de même que pour Additem.

DMboup Si tu utilises ces méthodes, ton Addin ne sera pas compatible avec Access 2000.

Starec

**DMboup** · 17/06/2007, 20h09

Envoyé par Starec

Bonjour
La méthode RemoveItem n'existe qu'à partir d'Access 2002, de même que pour Additem.

DMboup Si tu utilises ces méthodes, ton Addin ne sera pas compatible avec Access 2000.

Starec

D'accord. Je verrais la compatibilité avec Access 2000.

Mais en attendant, as tu testé et qu'as tu comme résultat?

Arkham - 30/04/2007 - Defi Access N°1

Défis

Discussions similaires

Partager

Partager