|
|
|
| Inserer le contenu d'une requete dans 1 table par gaudian |
vendredi 20 juillet 2007 à 10:45:53 |
Private Function Exclusion_NIP()
Set DB1 = DBEngine(0)(0)
Set RS1 = DB1.OpenRecordset("essaiRequete")
Set RS2 = DB1.OpenRecordset("essaiRequete")
RS1.MoveFirst
RS2.MoveFirst
Do Until RS1.EOF
Do Until RS2.EOF
'Si les 2 NIP ne sont pas identiques Alors
If Trim(RS1.Fields("NIP")) <> Trim(RS2.Fields("NIP")) Then
SQL = "INSERT INTO tb_Resultat_1 ( nip, ngs ) " & _
"VALUES (.........)"
DoCmd.RunSQL SQL
'Ensuite on passe à l'enregistrement suivant
RS2.MoveNext
'Sinon Si les 2 NIP sont identiques Alors
ElseIf Trim(RS2.Fields("NIP")) = Trim(RS1.Fields("NIP")) Then
SQL = "INSERT INTO tb_SauvegardeTemporaire ( [NumOperationTransfert] ) " & _
"VALUES ('test')"
DoCmd.RunSQL SQL
'Ensuite on passe à l'enregistrement suivant
RS2.MoveNext
End If
Loop
RS2.MoveFirst
RS1.MoveNext
Loop
RS1.Close
RS2.Close
End Function
Configuration: Windows XP Internet Explorer 6.0
J'ai trouvé la solution, je la donne si quelqu'un à le même problème
Private Function Exclusion_NIP()
Set DB1 = DBEngine(0)(0)
Set RS1 = DB1.OpenRecordset("essaiRequete")
Set RS2 = DB1.OpenRecordset("essaiRequete")
RS1.MoveFirst
RS2.MoveFirst
Do Until RS1.EOF
Do Until RS2.EOF
If Trim(RS1.Fields("NIP")) <> Trim(RS2.Fields("NIP")) Then
SQL = "INSERT INTO tb_Resultat_1 (nip,ngs) " & _
"VALUES (' " & RS2.Fields("NIP") & " , 'ESSAI' )"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
RS2.MoveNext
ElseIf Trim(RS2.Fields("NIP")) = Trim(RS1.Fields("NIP")) Then
SQL = "INSERT INTO tb_SauvegardeTemporaire ( [NumOperationTransfert] ) " & _
"VALUES ('test')"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
RS2.MoveNext
End If
Loop
RS2.MoveFirst
RS1.MoveNext
Loop
RS1.Close
RS2.Close
End Function
|
| 09/02 16h40 | VBA insertion ligne dans tableau | Bureautique | 26/03 16h19 | 19 |
| 09/07 10h04 | [php] Inserer contenu d'un select | Programmation | 10/07 09h17 | 5 |
| 04/12 15h20 | VBA: Pb d'insertion dans un tableau | Programmation | 04/12 16h40 | 5 |
| 30/10 16h06 | Insérer contenu différent avec des frames | Webmastering | 30/10 19h27 | 1 |
| 29/10 09h13 | Problème d'insertion sur plusieurs tables | Programmation | 29/10 14h26 | 2 |