agnes
-
14 juin 2001 à 18:04
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 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
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 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.