Filtrer une requete à partir de vba

agnes - 14 juin 2001 à 18:04
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 17 août 2007 à 12:13
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

1 réponse

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
17 août 2007 à 12:13
Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "base de données" ou "tutoriaux". Ou depuis le moteur de recherche avec les mots clef "sql, tutoriaux, base de données". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.

Bonne pr@g
0
Rejoignez-nous