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..
Que dois-je changer....?
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
Merci de votre aide..
Partager