Bonjour,
J'ai créé un formulaire avec trois listes déroulantes. La première contient l'identifiant Relevé terrain (LST_id_RELEVE), la seconde les observateurs disponibles (LST_search_OBS) de la T_OBSERVATEUR et la troisième les observateurs sélectionnés (LSTselectOBS) à partir de la liste des observateurs disponibles qui sont eux stockés dans la table Observateurs_Selectionnes.
Sur click d'un bouton de commande je voudrais insérer l'ensemble les identifiants observateurs sélectionner CONobs avec pour chacun l'identifiant relevé dans une table Constater qui est une table de relation entre relevé et observateur.
CONobs CONrel
1 REL-001
4 REL-001
7 REL-001
Je pense qu'il convient d'utiliser une boucle.
Voici une ébauche de mon code qui ne donne aucun enregistrement dans ma table Constater. J'ai copié une partie du code et je ne maitrise pas les ItemsSelected et les itemData.
Dim strSql As String
Dim X As Variant
Dim f As Form
Set f = Forms!F_SAISIE_Observation_Terrain
With LSTselectOBS
For Each X In .ItemsSelected
strSql = "INSERT INTO Constater(CONobs, CONrel) VALUES('" & (.ItemData(X)) & "', '" & f!LST_ID_RELEVE & "');"
Next
.Requery
End With
DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True
Précision, je ne souhaite pas devoir appuyer un à un les observateurs sélectionnés pour que l'insertion se face. C'est bien l'intérêt de la boucle? Sinon, n'est -t-il pas préférable d'utiliser le contenant de la table Observateurs_selectionnés plutôt que les values de la liste LSTselectOBS dans mon Insert into?
Bref, toutes vos suggestions sont bonnes!
Merci