Bonjour,
Dans le cadre d'un projet, je rencontre des difficultés dans mon code.
En voulant tester le tout avec le reste du code ( qui marche bien sans cette partie) j'obtient une " erreur d'execution 3265 " ... HELP !
Code sql : 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62 Private Sub UserForm_Initialize() Dim strConnection As String strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Gestion_stocks.accdb" & ";" Dim conn As Object Set conn = CreateObject("ADODB.Connection") conn.Open strConnection Article3.AddItem "Acheté" Article3.AddItem "Fabriqué" Dim rs As Object Dim ligne As Integer Set rs = conn.Execute("SELECT * FROM Article") If rs.EOF = False Then ligne = 2 Article3.Clear While Not rs.EOF Article3.AddItem rs.Fields(2) Feuil1.Cells(ligne, 3) = rs.Fields(2) rs.MoveNext ligne = ligne + 1 Wend Else MsgBox ("erreur") End If Set rs = conn.Execute("SELECT * FROM Categorie") If rs.EOF = False Then ligne = 2 Article4.Clear While Not rs.EOF Article4.AddItem rs.Fields(3) Feuil1.Cells(ligne, 4) = rs.Fields(3) rs.MoveNext ligne = ligne + 1 Wend Else MsgBox ("erreur") End If Set rs = conn.Execute("SELECT * FROM Unités") If rs.EOF = False Then ligne = 2 Article5.Clear While Not rs.EOF Article5.AddItem rs.Fields(4) Feuil1.Cells(ligne, 5) = rs.Fields(4) rs.MoveNext ligne = ligne + 1 Wend Else MsgBox ("erreur") End If End Sub
Partager