VBA et Macro

Version imprimable

VBA et Macro

Bonjour à tous,
J'ai encore une fois besoin de vos lumière:

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
Private Sub btn_Impression_Click()
Dim TypeMat As String

Select Case Me.lst_Type
    Case "Serveur"
        TypeMat = "Serveur"
    Case "Imprimante"
        TypeMat = "Imprimante"
    Case "Desktop"
        TypeMat = "Desktop"
    Case "Laptop"
        TypeMat = "Laptop"
    Case "Ecran"
        TypeMat = "Ecran"
    Case "PDA"
        TypeMat = "PDA"
    Case "Periferiques"
        TypeMat = "Periferiques"
    Case "Autres"
        TypeMat = "Autres"
    Case Else
        TypeMat = ""
End Select
    If Me.chk_Tous.Enabled = True Then
        DoCmd.RunMacro "TotalPc"
    
    ElseIf Me.chk_HS.Enabled = True Then
        DoCmd.RunMacro "PcHs"
    
    ElseIf Me.chk_Production.Enabled = True Then
        DoCmd.RunMacro "PcOk"
    
    ElseIf Me.chk_Stock.Enabled = True Then
        DoCmd.RunMacro "PcStock"
    
    ElseIf TypeMat <> "" Then
    'DoCmd.RunMacro "PcTypeListe"
    DoCmd.OpenReport "etat_Pc", acViewPreview, "", [tbl_Pc].[Etat]='[TypeMat]'", acNormal

    End If
End Sub

J'ai réussit les Macro en passant par Access maintenant je veut inclure une condition particulière donc je me met au VBA le problème étant qu'il m'affiche un état vide comme si il ne comprennais pas la clause condition.

Mercipour vos lumière

05/10/2007, 13h59
GCUSSE
re...

Bon avant toute chose on va simplifier un peu ton instruction select.....

T'es un fou de codage toi... quand tu as plusieurs select qui vont te donner la même chose, tu peux les grouper.... voici ce que donne ton select avec moins de variable et moins de ligne
Code:

1 2 3 4 5 6 7 Select Case Me.lst_Type Case "Serveur","Imprimante","Desktop","Laptop","Ecran","Periferiques","PDA","Autres" TypeMat = me.lst_type Case Else TypeMat = "" End Select
Donc cela donne en raisonnant, si me.lst_Type correspond à certains cas.... TypeMat = me.lst_type.... sinon TypeMat ="".

Tu as ainsi économisé pas mal de ligne et pas mal de risque de problème de canal carpien :lol:

POur le reste je regarde un petit peu
05/10/2007, 14h02
GCUSSE

essaye ceci

Code:

DoCmd.OpenReport "etat_Pc", acViewPreview, "", "[tbl_Pc].[Etat]='" & TypeMat &" '", acNormal

il y avait me semble t il un probleme de double quote fermée mais non ouverte et ton parametre TypeMat est une variable de VBA donc il ne faut pas l'encapsuler dans des quotes dans ton code
05/10/2007, 14h03
random

et ca donnerait quoi avec périphérique ?
05/10/2007, 14h08
GCUSSE

:mouarf: j'avais pas vu.... j'ai bêtement recopié :mouarf:

Mais si c'est encodé périférique.... le case doit donner périférique.... syntaxiquement parlant bien sûr.

Judicieuse remarque random
05/10/2007, 14h55
javaboy

Rrrrrr,
Il sont moqueur moi je code :aie::aie::aie:
hi désoler un user en pannique je vais analyser vos commentaires

OOOOO La boullette : Periferiques
05/10/2007, 15h01
javaboy
Euuu cela ne fonctionne pas
Code:

1 2 MsgBox ([TypeMat]) DoCmd.OpenReport "etat_Pc", acViewPreview, "", "[tbl_Pc].[Etat]='" & TypeMat & " '", acNormal
Pourtant la message box me retourne bien la valeur de TypeMat (genre Periferiques)
05/10/2007, 15h07
GCUSSE

hihihi :mouarf: faut pas t'en faire

mais dis nous, [tbl_Pc].[Etat] il contient quoi???? c'est ton champs qui contient le type de matériel???
05/10/2007, 17h23
javaboy

Re,
Oups comme je suis mauvais .....
C'est pas [tbl_Pc].[Etat] qui fait la condition mais [Type], comme je suis tête en l'air :aie::aie:,vivement le Week end Merci pour votre aide....