Discussion :

[Jean.Alexis]

Salut, je suis en stage en angleterre, et je dois monter un base de donnee access pour un companies (lvl basic mdr)

J ai deux problemes sur l un de mes formulaires, je vous explique tout :

Tout d abord, voici le code :

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
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
Private Sub Form_Load()
    Dim req As String
    Dim temp As String
    Dim rst As Recordset
    temp = InputBox("Please type the Account Type", "Acount Type")
    req = "SELECT Customers.ID, Customers.[Company Name], Customers.[Industry Type], Customers.[Acount Type], Customers.[Address L1], Customers.[Address L2], Customers.[Address L3], Customers.[Address L4], Customers.PostCode, Customers.City, Customers.Country, Customers.Website, Customers.[E-Mail], Customers.Fax, Customers.[Phone 1], Customers.[Phone 2], Customers.Source, Customers.Description, Customers.Currency, Customers.[Account Manager], Customers.[Product interest], Customers.Actions " & _
    "FROM Customers " & _
    "WHERE (((Customers.[Acount Type]) LIKE '*" & temp & "*'));"
 
    Set rst = Application.CurrentDb.OpenRecordset(req)
    If Not rst.EOF Then
        rst.MoveFirst
        Do
            If Not IsNull(rst![Company Name]) Then
                temp = rst![Company Name]
            Else
                temp = "[vide]"
            End If
 
            If Not IsNull(rst![Acount Type]) Then
                temp = temp & "  " & rst![Acount Type]
            Else
                temp = temp & "  [vide]"
            End If
 
            If Not IsNull(rst![Industry Type]) Then
                temp = temp & "  " & rst![Industry Type]
            Else
                temp = temp & "  [vide]"
            End If
 
            If Not IsNull(rst![Phone 1]) Then
                temp = temp & "  " & rst![Phone 1]
            Else
                temp = temp & "  [vide]"
            End If
 
            If Not IsNull(rst![City]) Then
                temp = temp & "  " & rst![City]
            Else
                temp = temp & "  [vide]"
            End If
 
            If Not IsNull(rst![Country]) Then
                temp = temp & "  " & rst![Country]
            Else
                temp = temp & "  [vide]"
            End If
            List4.AddItem temp, List4.ListCount
            rst.MoveNext
        Loop Until rst.EOF
    End If
    Set rst = Nothing
 
End Sub

1-Je n arrive pas a repartir le resultat du filtre en colonnes dans cette List Box en mode "Liste de Valeurs". Elle arrivent en vraque a la suite et c est illisible...

2-Lorsque je lance le formulaire, une boxe s affiche (normal), le probleme etant que si je clique sur annule, un erreur d execution 2176 s affiche, et me surligne cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            List4.AddItem temp, List4.ListCount

Merci d avance

[Jean-Philippe André]

Bonjour,
d'autres solutions plus simples à mettre en place sont disponibles dans la
http://access.developpez.com/faq/?page=zdl#ReqSrceLst
ainsi que les suivantes

[Jean.Alexis]

Bonjour,
d'autres solutions plus simples à mettre en place sont disponibles dans la
http://access.developpez.com/faq/?page=zdl#ReqSrceLst
ainsi que les suivantes

Euh je suis desole mais j ai dis que je suis en Liste de valeur, et non en table/query, c est justement ca mon probleme et que mon code est justement parametre pour ca (J ai cherche dans la faq et cela n y figure pas..)

Mais merci quand meme!

[Jean-Philippe André]

Ah, ok,
parce que la requête globale suivante me paraissait intéressante à appliquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    req = "SELECT Nz(Customers.[Company Name],'[vide]') & ' ' & Nz(Customers.[Acount Type],'[vide]') & ' ' & Nz(Customers.[Industry Type],'[vide]') & ' ' & Nz(Customers.[Phone 1],'[vide]') & ' ' & Nz(Customers.City,'[vide]') & ' ' & Nz(Customers.Country,'[vide]')" & _
    "FROM Customers " & _
    "WHERE (((Customers.[Acount Type]) LIKE '*" & temp & "*'));"

[Jean.Alexis]

Du coup ca ne marche pu dutout ^^
Cela me marque une erreur d execution 3075 apres la box, alors qu avant cela marchait, mais juste en annulant, cela me mettait l erreur d execution