salut à tous
voici mon pb
depuis a peu pres un mois je complete une base de données qui a tété crée par qq1 d'autres
donc je dois faire un filtre dans une requete "sel" à partir du champs "Texte1" se trouvant sur le formulaire "Formulaire1"
donc j'ai reussis a déclarer ma requete et tout ce dont j'ai besoin mais le filtre ne s'applique pas et je me retrouve a chaque fois avec tous les enregiqtrements
voici le debut code :
Option Compare Database
Sub declar()
Dim essai As Database
Dim rst As Recordset
Dim sel As Recordset
Dim Formulaire1 As Recordset
Dim N°OF As String
Dim Texte1 As String
Dim OFpourPROA As Recordset
Dim Ordenes As Recordset
Dim Rutas As Recordset
Dim ArticlesPourPROA As Recordset
Dim TranfertPROAXXI As Recordset
Set essai = CurrentDb()
Set TranfertPROAXXI = essai.OpenRecordset("TranfertPROAXXI", DB_OPEN_DYNASET)
Set OFpourPROA = essai.OpenRecordset("OFpourPROA", DB_OPEN_DYNASET)
Set Ordenes = essai.OpenRecordset("Ordenes", DB_OPEN_DYNASET)
Set Rutas = essai.OpenRecordset("Rutas", DB_OPEN_DYNASET)
Set ArticlesPourPROA = essai.OpenRecordset("ArticlesPourPROA", DB_OPEN_DYNASET)
essai.QueryDefs("sel").Parameters("N°OF") = Forms!Formulaire1.Texte1
Set rst = essai.QueryDefs("sel").OpenRecordset
'code manipulant le Recordset
If Not TranfertPROAXXI.EOF Then
TranfertPROAXXI.MoveFirst
End If
Do Until TranfertPROAXXI.EOF
TranfertPROAXXI.Delete
TranfertPROAXXI.MoveNext
Loop
Do Until rst.EOF
TranfertPROAXXI.AddNew
TranfertPROAXXI![N°OF] = rst![N°OF]
TranfertPROAXXI![N°Phase] = rst![N° Phase]
TranfertPROAXXI.Update
rst.MoveNext
Loop