Discussion :

[portecd]

Bonjour,

j'ai deux commandes qui insérent des valeurs dans deux tables différentes.
La table [Relance] permet d'enregistrer Le n° de facture, la date, le type et un commentaire
La table [ContactSelected] permet d'enregistrer Le n° de facture, et le numéro automatique du contact qui se trouve dans la table [Contact].

Mon problème est que je voudrais lié mon contact à mon numéro de relance:

comment enregistrer dans la table [ContactSelected] le numéro automatique de la ligne correspondante de la table [Relance].

Code :

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

1
2
3
4
5
6
7
8
    For Each varI In Me!lstrelance.ItemsSelected
        NrFacture = Me!lstrelance.ItemData(varI)
 
        DoCmd.RunSQL "insert into Relance(NrFacture, DateRelance, TypeRelance, Commentaire) select '" & NrFacture & "' , #" & Format$(dater, "mm/dd/yyyy") & "#,  '" & typer & "', '" & comment & "';"
 
        DoCmd.RunSQL "insert into ContactSelected(NrFacture, idContact) select '" & NrFacture & "' , '" & contact & "';"
 
    Next varI

si y a un tuto, je ne l'ai pas trouvé ! Désolé.

Merci d'avance,

[portecd]

J'ai trouvé qq chose mais j'ai un message d'erreur

J'ai tout d'abord créé une fonction dans un module

Code :

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

1
2
3
Public Function sql_idRelance() As String
 sql_idRelance = "SELECT max(id_Relance) FROM Relance"
End Function

puis je récupére la fonction dans mon projet

Code :

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

1
2
3
4
5
6
7
8
9
10
    For Each varI In Me!lstrelance.ItemsSelected
        NrFacture = Me!lstrelance.ItemData(varI)
 
        DoCmd.RunSQL "insert into Relance(NrFacture, DateRelance, TypeRelance, Commentaire) select '" & NrFacture & "' , #" & Format$(dater, "mm/dd/yyyy") & "#,  '" & typer & "', '" & comment & "';"
 
        idRelance = sql_idRelance
 
        DoCmd.RunSQL "insert into ContactSelected(NrFacture, idContact, idRelance) select '" & NrFacture & "' , '" & contact & "' , " & idRelance & ";"
 
    Next varI

Mais access me dite que j'ai une erreur de syntaxe dans l'expression

SELECT max(id_Relance), NrFacture FROM Relance

Please help me ! I'm lost.


Merci d'avance

[portecd]

j'y suis arrivé en mettant en place une liste déroulant qui récupère la requête SQL

sql_idRelance = "SELECT Max(id_Relance)FROM Relance"

de mon module.

Puis je fais un rowsource. Je ne sais si c'est très joli, mais ça marche !!!!

Enfin !!!

pour ceux qui ont suivi voici le 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
For Each varI In Me!lstrelance.ItemsSelected
        NrFacture = Me!lstrelance.ItemData(varI)
 
        DoCmd.RunSQL "insert into Relance(NrFacture, DateRelance, TypeRelance, Commentaire) select '" & NrFacture & "' , #" & Format$(dater, "mm/dd/yyyy") & "#,  '" & typer & "', '" & comment & "';"
 
    For Each varII In Me!lstContact.ItemsSelected
        idcontact = Me!lstContact.ItemData(varII)
                Me.lstidRelance.RowSource = sql_idRelance
                Me.lstidRelance.Selected(0) = True
                idRelance = Me!lstidRelance.Column(0)
 
        DoCmd.RunSQL "insert into ContactSelected(NrFacture, idContact, idRelance) select '" & NrFacture & "' , '" & idcontact & "' , " & idRelance & ";"
     Next varII
 
      Next varI

merci et à bientôt.