While Not rssql.EOF Dim updte As String updte "UPDATE TableFacturation SET export true WHERE N°Facturation = " & rssql("N°Facturation") 'db.Execute (updte) DoCmd.RunSQL updte rssql.MoveNext Wend
sql "SELECT * FROM TableDevis, TableFacturation WHERE TableDevis.N°deDevis TableFacturation.N°deDevis AND TableFacturation.Date>= " & Me.Texte0 & " AND TableFacturation.Date<= " & Me.Texte2 & " AND TableFacturation.rglmt=True AND TableDevis.Modele=False OR TableDevis.Modele Is Null AND TableFacturation.export=False"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question