Discussion :

[Nemophas]

Bonjour à tous,

J’ai un formulaire (basé sur une table « tblTaxa ») dont 9 champs (Ordo, Subordo, Superfamilia, Familia, Subfamilia, Tribus, Subtribus, Genus & Subgenus) sont en liste déroulante en cascade.
Le contenu de chaque liste déroulante (sauf la première) est basé sur le choix qui est fait dans la liste précédente.
J’ai donc 9 tables annexes (une pour chaque champ) avec :
- une clé primaire (ex : idGenus)
- un champ texte (ex : Genus)
- un champ numérique en liste déroulante basée sur la table précédente (ex : ici tblSubtribus) pour « lier » le nom encodé au nom dont il dépend dans la table précédente.

Sur chacun des champs du formulaire (sauf le premier) j’utilise ce code pour arriver au résultat voulu:

(ici sur le champ Genus)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Genus_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String
 
  If Not IsNumeric(Me!Genus) Then Exit Sub
  lngIDCat = Me!Genus
  SQL = "SELECT idSubgenus, Subgenus, idGenus FROM tblSubgenus WHERE idGenus =" & lngIDCat & " ORDER BY Subgenus"
  Subgenus.RowSource = SQL
  Subgenus = True
  Subgenus.SetFocus
  Subgenus.Dropdown
 
End Sub

Jusque là tout fonctionne à merveille…
Pour tester, j’ai déjà encodé une centaine d’enregistrements et je les ai liés dans chacune des tables concernées mais, à terme, la bdd devrait comprendre plusieurs milliers d’enregistrements et je me vois mal faire les liens manuellement pour chaque nouvel enregistrement.
J’ai donc ajouté une procédure événementielle « Sur absence dans liste »:

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
Private Sub Genus_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
 
  If MsgBox("The Genus [" & _
    NewData & "] is not currently in the list. Do you want to add it?", _
    vbQuestion + vbYesNo) = vbYes Then
      Set rst = CurrentDb.OpenRecordset("tblGenus")
      rst.AddNew
        rst!Genus = NewData
      rst.Update
      rst.Close
      Set rst = Nothing
End If
 
Response = acDataErrAdded
End Sub

Cela fonctionne, le nom encodé s’ajoute bien à la liste mais (logique) le lien avec le choix précédent ne se fait pas automatiquement et je dois le faire manuellement (ce qui revient donc au même que sans le NotInList).

Serait-il donc possible (et si oui comment), une fois que le nouveau nom est ajouté à la liste, de copier automatiquement le contenu du champ précédent (qui s’affiche correctement dans la table de base dans la table source) dans le champ numérique que j’utilise pour faire le lien ?

Exemple:
Si j’encode un nouveau nom dans le champ « Genus » de mon formulaire, il s’ajoute automatiquement à la liste (dans ma table « tblGenus ») avec la procédure sur NotInList.
Ensuite, il copie le contenu du champ « Subtribus » (de la table de base « tblTaxa ») dans le champ numérique « idSubtribus » de la table « tblGenus ».

Un grand merci d’avance pour votre aide!

[Jeannot45]

Tu peux ajouter dans procéduer NotInList, une séquence SQL INSERT INTO ... qui procède à l'ajout de l'information souhaitée dans la table cible
Suivi d'une commande RunSQL

[madefemere]

Bonjour,

Essaie ce code :

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 Genus_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
 
  If MsgBox("The Genus [" & _
        NewData & "] is not currently in the list. Do you want to add it?", _
        vbQuestion + vbYesNo) = vbYes Then
        Set rst = CurrentDb.OpenRecordset("tblGenus")
        rst.AddNew
        rst!Genus = NewData
        rst.Update
        rst.Close
        Set rst = Nothing
        Response = acDataErrAdded
 Else
        Response = acDataErrContinue
        Genus.Undo
 End If
 
End Sub

Cordialement.

[Nemophas]

Bonjour et merci à vous deux pour vos réponses !

J’ai trouvé assez rapidement comment faire une requête d’ajout et j’espère ne pas me tromper avec celle-ci:
Je dois donc copier le champ « Subtribus » de la table « tblTAXA » dans le champ « idSubtribus » de la table « tblGenus »

INSERT INTO tblGenus ( idSubtribus )
SELECT tblTAXA.Subtribus
FROM tblTAXA

Par contre, cela fait plusieurs heures que je cherche sans succès comment le mettre en SQL.
J’ai lu et relu pas mal de discussions et d’aides sur divers forums ou sites mais je trouve tellement de choses différentes que je suis complètement perdu. Aucune des solutions que j’ai testées ne fonctionnaient pour moi ou alors (probablement même, vu mon niveau de connaissance d’Access…) je fais une ou plusieurs erreurs.

Merci Mandresy pour le code mais cela ne fonctionne pas. En fait je ne trouve nulle part dans ce code quelque chose qui permette de copier le contenu d’un champ vers un autre.

[Zekraoui_Jakani]

Pour les instructions SQL, voici un exemple:

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
Sub test_Insertion()
    Dim sSql As String
 
    'Insertion sans contrainte
    sSql = "INSERT INTO TableTest1 ( ID, Description ) " & _
        "SELECT InputTable.ID, InputTable.Personne " & _
        "FROM InputTable;"
 
    'Insertion avec contrainte
    sSql = "INSERT INTO TableTest1 ( ID, Description ) " & _
        "SELECT InputTable.ID, InputTable.Personne " & _
        "FROM InputTable WHERE InputTable.ID>10;"
 
    DoCmd.RunSQL sSql
 
End Sub

[Nemophas]

Bonjour et merci beaucoup pour ce code! Mais j’ai toujours un souci…

En fait (mea culpa) lors des tentatives d’hier, à chaque fois que j’avais une erreur->Débogage je ne regardais pas le message d’erreur et je me concentrais sur la ligne surlignée en jaune dans le débogage et c’était toujours la dernière ligne (ici : DoCmd.RunSQL sSql).

J’imagine que d’autres problèmes que j’ai rencontrés hier étaient également dus à une question de compatibilité du type de données dans les champs à « copier/coller ». Mes 2 champs étaient bien en numérique mais, pour plus de commodité, j’avais utilisé la méthode expliquée ici : (2-2-1. 2ème point) pour avoir le nom qui apparaisse plutôt que le n° d’identification.
https://argyronet.developpez.com/off...ectitemlistAB/

Pour le moment, j’ai réglé ce problème (momentanément) en ne prenant que le n° d’identification en compte.

Donc (maintenant que je pense enfin à regarder le message d’erreur avant de cliquer sur débogage...) j’ai ce message :

Erreur d'exécution 3075
Erreur de syntaxe (opérateur absent) dans l'expression « tblTAXA.SubtribusFROM tblTAXA »

Est-ce possible que ce soit dû au fait que je vais chercher le champ à copier dans une table (tblTaxa ), et que ce champ est lui-même une liste déroulante basée sur une autre table (dans ce cas ci tblSubtribus)?
Si c’est le cas, j’imagine qu’il faudrait actualiser ma tblTaxa avant d’y copier le champ?

Bonne journée et encore merci à ceux qui prennent de leur temps pour m’aider!

[Zekraoui_Jakani]

Il manque juste un espace entre "tblTAXA.Subtribus" et "FROM tblTAXA" dans l'expression "tblTAXA.SubtribusFROM tblTAXA"

[Nemophas]

Merci beaucoup!
J’avais vu qu’il n’y avait pas d’espace dans l’expression indiquée dans le message d’erreur, mais je ne pensais pas que c’était dû à un espace manquant dans les 3 lignes du code (espace pourtant bien présent dans l’exemple que tu m’avais donné).

Mais, maintenant que ce problème est réglé, j’ai un autre problème, j’ai le message :

Volus allez ajouter 142 lignes

(le nombre total de mes enregistrements actuels) et, si je clique sur « oui » (je voulais tester), j’ai un message me disant

Access ne peut pas ajouter tous les enregistrements de la requête ajout…à la suite de violations des règles de validation

Je suppose que c’est parce que ma requête n’est pas ciblée sur l’enregistrement en cours?

[Zekraoui_Jakani]

C'est que l'un des enregistrements est mis à jour alors que la clef primaire n'en est pas incrémentée; Access n'accepte pas la valeur "Null" ou une valeur double dans une clef primaire.

[Nemophas]

Merci! Ne trouvant pas d'où vient le problème, je vais abandonner mon idée de départ et abandonner le "Insert Into" pour ce champ.
Encore merci à ceux qui m'ont apporté leur aide