Bonjour,

J'ai ce message Type incompatible dans le critère - Erreur d'execution 3464 ....J'ai beau changer String par Integer...ça ne fonctionne pas....
Voici le code VBA..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
 
Dim Num As String
 
 Num = Me.num_cmd.Value
 
                Set oRst = oDb.OpenRecordset("SELECT * FROM Tble_demande WHERE Num_demande='" & Num & "'")
 
               While Not oRst.EOF
 
                oRst.Delete
 
               oRst.MoveNext
 
                Wend
 
oRst.Close
oDb.Close
Set oRst = Nothing
Que dois-je changer....?
Merci de votre aide..