Discussion :

[brak__]

Nouveau petit problème du même style, mais je ne comprend pas pourquoi mon code ne marche pas... :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Exécution de la requête3 (Sauvegarde gdo <> permut_typ)
rst3.Open "SELECT NouveauALLgdo.gdo AS Expr3, AncienALLgdo.permut_typ AS Expr4, NouveauALLgdo.permut_typ AS Expr5 FROM NouveauALLgdo, AncienALLgdo WHERE NouveauALLgdo.gdo=AncienALLgdo.gdo And NouveauALLgdo.permut_typ<>AncienALLgdo.permut_typ;", cnx
  Set rst4 = CurrentDb.OpenRecordset("Permut_Typ")
  Do Until rst3.EOF
  rst4.AddNew
  rst4("date") = Now()
  rst4("gdo") = rst3("Expr3")
  rst4("Permut_typOLD") = rst3("Expr4")
  rst4("Permut_typNEW") = rst3("Expr5")
  rst4.Update
  rst3.MoveNext
Loop

Aucune erreur n'est reporté, mais mes tables ne sont pas nourri.

[ESVBA]

A chaque modification d'un enregistrement, la date est sauvegardée dans son champ spécifique :

Code :

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

1
2
3
4
 
Sub Form_BeforeUpdate()
   MonChamps = Now()
End Sub

A la création d'un enregistrement, la date est sauvegardée dans son champ spécifique :

Code :

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

1
2
3
4
 
Sub Form_****()
   MonChamps2 = Now()
End Sub

A toi de faire les requête sur ce champ.

****, je n'est plus de tête

[Lou Pitchoun]

**** => BeforeInsert

[brak__]

j'ai rien compris, merci quand meme, mais j'essaye de comprendre pourquoi dans le CAS No 1, ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Exécution de la requête2 (Sauvegarde gdo permut HS)
rst.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
  Set rst2 = CurrentDb.OpenRecordset("Permut_HS")
    Do Until rst.EOF
     rst2.AddNew
     rst2("date") = Now()
     rst2("gdo") = rst("Expr2")
     rst2.Update
rst.MoveNext
    Loop

et pourquoi dans le cas No 2, cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Exécution de la requête3 (Sauvegarde gdo <> permut_typ)
rst3.Open "SELECT NouveauALLgdo.gdo AS Expr3, AncienALLgdo.permut_typ AS Expr4, NouveauALLgdo.permut_typ AS Expr5 FROM NouveauALLgdo, AncienALLgdo WHERE NouveauALLgdo.gdo=AncienALLgdo.gdo And NouveauALLgdo.permut_typ<>AncienALLgdo.permut_typ;", cnx
  Set rst4 = CurrentDb.OpenRecordset("Permut_Typ")
    Do Until rst3.EOF
     rst4.AddNew
     rst4("date") = Now()
     rst4("gdo") = rst3("Expr3")
     rst4("Permut_typOLD") = rst3("Expr4")
     rst4("Permut_typNEW") = rst3("Expr5")
     rst4.Update
rst3.MoveNext
    Loop

[brak__]

Personne ne voit ?

[brak__]

est-il impossible de travailler sur plusieurs table dans une meme requete, tout en utilisant plusieurs "Expr" ????