[AC-2007] Debutant access sql vba

[snakum2]

Bonjour

En faite je debute dans access donc voila ce que je veux faire j aimerais que lorsque je tape une reference il m affiche le resultat dans la liste deroulante en bas via des requette sql si par exemple il y as 2 ou plusieurs articles avec la meme reference il indique les 2. Si je tape un code barre il cherche l article avec ce code barre. si je tape une description qu il recherche tous les articles avec cette description, si je tape un fournisseur il recherche tous les articles de ce fournisseurs. Je comprend pas comment le faire j ai pas assez de notion si qqn pouvais me guider ce serais super. merci d'avance bien a vous Snakum .

[jpcheck]

salut,

la solution la plus efficace est de suivre l'approche propose par Cafeine dans son excellent tutoriel
http://cafeine.developpez.com/access...echerchemulti/

[snakum2]

en faite j ai suivi le tuto a la lettre en modifiant par raport a ma base de donnee mais il me donne pas de resultat cad losrque je tappe une reecherche j ai rien qui s affiche en bas

Code :

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
 
Private Sub chkcodebarre_Click()
   Me.txtRechcodebarre.Visible = Not Me.txtRechcodebarre.Visible
   RefreshQuery
End Sub
 
Private Sub Chkdescription_Click()
   Me.txtRechdescription.Visible = Not Me.txtRechdescription.Visible
   RefreshQuery
End Sub

Code :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Private Sub Chkfournisseur_Click()
   Me.CmbRechfournisseur.Visible = Not Me.CmbRechfournisseur.Visible
   RefreshQuery
End Sub
 
Private Sub Chkref_Click()
   Me.txtRechref.Visible = Not Me.txtRechref.Visible
   RefreshQuery
End Sub
 
Private Sub ChkType_Click()
   Me.CmbRechType.Visible = Not Me.CmbRechType.Visible
   RefreshQuery
End Sub
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT T_ARTICLES.ID, T_ARTICLES.codebarre, T_ARTICLES.Fournisseur, T_ARTICLES.REF, T_ARTICLES.DESCRIPTION, T_ARTICLES.TVA, T_ARTICLES.MONTANT, T_ARTICLES.QUANTITE, T_ARTICLES.PU, T_ARTICLES.ACHAT FROM T_ARTICLES Where T_ARTICLES.ID <> 0 "
 If Me.Chkref Then
    SQL = SQL & "And T_ARTICLES!ref like '*" & Me.txtRechref & "*' "
 End If
 If Me.Chkfournisseur Then
    SQL = SQL & "And T_ARTICLES!fournisseur = '" & Me.CmbRechfournisseur & "' "
 End If
 If Me.Chkcodebarre Then
    SQL = SQL & "And T_ARTICLES!codebarre like '*" & Me.txtRechcodebarre & "*' "
 End If
 If Me.Chkdescription Then
    SQL = SQL & "And T_ARTICLES!Description like '*" & Me.txtRechdescription & "*' "
 End If
 If Me.ChkType Then
    SQL = SQL & "And T_ARTICLES!Type = '" & Me.CmbRechType & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 Me.lblstats.Caption = DCount("*", "T_ARTICLES", SQLWhere) & " / " & DCount("*", "T_ARTICLES")
 Me.lstResults__lstResults.RowSource = SQL
 Me.lstResults__lstResults.Requery
 
End Sub
 
Private Sub CmbRechfournisseur_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub CmbRechType_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub Form_Load()
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
        Case "lbl"
            ctl.Caption = "- * - * -"
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
        Case "cmb"
            ctl.Visible = False
    End Select
Next ctl
 
Me.lstResults__lstResults.RowSource = "SELECT T_ARTICLES.ID, T_ARTICLES.codebarre, T_ARTICLES.Fournisseur, T_ARTICLES.REF, T_ARTICLES.DESCRIPTION, T_ARTICLES.TVA, T_ARTICLES.MONTANT, T_ARTICLES.QUANTITE, T_ARTICLES.PU, T_ARTICLES.ACHAT, T_ARTICLES.VENTE, T_ARTICLES.Recupel, T_ARTICLES.Type FROM T_ARTICLES;"
Me.lstResults__lstResults.Requery
End Sub
 
 
 
 
 
Private Sub txtRechcodebarre_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub txtRechdescription_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub txtRechref_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

[snakum2]

je vous met les references en printscreen je sais pas si ça peux venir de la aidez moi svp j' aimerais vraimen avancer

[cluster26]

Bonjour snakum2,

J'avais réalisé ce type d'application à recherches multicritères et elle fonctionnait très bien.

Toutefois, je l'avais réalisée sous Access 2003 !..

Je suis disposé à te la faire parvenir si tu le souhaites !. Il te suffira de l'adapter à ton contexte de développement et de la convertir sous Access 2007.

Toutefois, je ne pourrais y travailler que demain !.. Absent cette après midi !..

Cordialement.

[snakum2]

Tout d abord merci a toi de me repondre car je desesperais

Je veux bien voir ton travail et l'adapter mais ce que j'aimerais sur tout c'est que tu puisse m accorder un peu de temps et que je puise t envoyer mon travail car mon but c'est vraiment de comprendre et de ne plus faire les memes erreurs car a lavenir j aimerais aussi metre des insert table, delete row ... et l amerliorer le plus possible j aimerais vraiment progresser merci d avance.

[cluster26]

Ok en ce qui concerne ton travail à adapter sachant qu'il faudra m'expédier les fichiers tables par Excel car je travaille toujours avec Access 2003 ...

Toutefois, en ce qui concerne ton apprentissage et ton perfectionnement sur Access, il faut absolument que tu t'impliques dans la recherche au niveau de l'excellent catalogue des nombreux conseils et tutoriels figurant sur ce site.

Aide toi, et le ciel t'aidera !...

Cordialement