Discussion :

[hyperion13]

condition WHERE de cette macro

Code :

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

1
2
3
4
5
"[num_ligne]=" & "" & [Formulaires]![Cad_semi]![Modifiable30] & "" 'si num
ou
"[num_ligne]=" & "'" & [Formulaires]![Cad_semi]![Modifiable30] & "'" 'si string
ou
[num_ligne]=[Formulaires].[Cad_semi].[Modifiable30]

[Parigoo]

Salut les gars,

Malheureusement aucune de ces conditions ne fonctionne...

Enfaite la macro se déclenche bien et s’exécute mais aucun filtre du coup, à mon avis il y a un élément ou une caractéristique que j'aurais du mettre ou indiquer que j'ai pas fait.

Vous pourriez jeter un œil au fichier que j'ai mis dans le liens ci-dessous ?

https://drive.google.com/file/d/1ReV...9fozCDcyk/view

Merci les gars.

[tee_grandbois]

bonjour,
cela aurait pu durer longtemps, on te fait modifier le code VBA de la fonction "imprim_cb()" alors que c'est la macro "imprim_cb" qui est lancé:



Voici la modification à effectuer dans la macro "imprim_cb" pour que cela fonctionne:
remplacer :

Code :

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

"Table1_CB![num_ligne]=" & [Formulaires]![cad_semi]![Modifiable30]

par:

Code :

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

="Table_CB![num_ligne]=" & [Formulaires]![cad_semi]![Modifiable30]

attention à ne pas oublier le signe = au début et enlever le 1 de Table1_CB (le mieux serait de copier/coller le code fourni).
Le mieux aurait été de ne pas ajouter une seconde fois le champ num_ligne dans la requête, cela aurait évité d'avoir le champ préfixé avec le nom de la table.

Pour éviter les messages d'avertissement lors de l'exécution des requêtes il faut mettre: DoCmd.SetWarnings False avant les requêtes et remettre à True après:

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
Private Sub Modifiable30_AfterUpdate()
DoCmd.SetWarnings False
    If CheckBox_semi = True Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "alim2"
    DoCmd.OpenQuery "MAJ MFG_CB"
    DoCmd.RunMacro "imprim_cb", Nmbre
    DoCmd.RunMacro "imprim_mfg"
Else
    DoCmd.OpenQuery "alim2"
    DoCmd.OpenQuery "MAJ MFG_CB"
    DoCmd.RunMacro "imprim_cb", Nmbre
End If
DoCmd.SetWarnings True
 
End Sub

On pourrait aussi écrire le code comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Modifiable30_AfterUpdate()
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "alim2"
DoCmd.OpenQuery "MAJ MFG_CB"
DoCmd.RunMacro "imprim_cb", Nmbre
If CheckBox_semi = True Then DoCmd.RunMacro "imprim_mfg"
DoCmd.SetWarnings True
 
End Sub

[hyperion13]

Salut les gars, Malheureusement aucune de ces conditions ne fonctionne...

Désolé, mais les syntaxes fonctionnes (img1), puisque j'ai bien la création de 2 pdf avec la même réf (7) de la combobox (img2)

bonjour,
cela aurait pu durer longtemps, ...

Le plus simple, voir img3

[Parigoo]

Les gars je crois je pense qu'on es pas du tout sur la mème longueur d'onde, ou alors le résultat que vous constaté n'est pas du tout celui que j’attends.

tee_grandbois : Peut tu me montrer une seule syntaxe qui fonctionne parmi toutes celle que tu ma envoyé ? Hormis la ligne VBA et la mettre en application et me montré sont exécution ?

Pour ce qui es du code VBA convertie, tu ne ma pas demander de le remplacer par le Docmd.runmacro et j'ai précisé que ça me convenait pas vu que je tiens à la liaison au champ [Nmbre]
N'y voit aucun mépris de ma part car je suis plus que reconnaissant sur tous les sujet auquel tu ma aidée et mème ou tu à débloqué la situation.


ensuite tu dis :

"bonjour,
cela aurait pu durer longtemps, on te fait modifier le code VBA de la fonction "imprim_cb()" alors que c'est la macro "imprim_cb" qui est lancé:"

A ce que je sache j'attendais le where conditions de la macro et non une ligne VBA... et j'ai remis le code comme il était avant d'envoyer l'archive.


J'ai conscience d’être un boulet, mais faut vous mettre à ma place et envisager qu'un débutant comme moi ne comprendrais peut être pas automatiquement certaine chose...

Pour finir je serait plus curieux que tu m'envoie le fichier "qui fonctionne" et que je puissent constater cela car chez moi j'ai toujours un souci avec toutes les syntaxe possible.

J'ai tout essayer même les syntaxe à Hyperion et soit j'ai des feuilles blanche soit une erreur détecté par Access.

Cordialement,

[tee_grandbois]

il me semble pourtant que la solution donnée était claire : modification de ta macro imprim_cb:

Voici la modification à effectuer dans la macro "imprim_cb" pour que cela fonctionne:
remplacer :

Code :

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

"Table1_CB![num_ligne]=" & [Formulaires]![cad_semi]![Modifiable30]

par:

Code :

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

="Table_CB![num_ligne]=" & [Formulaires]![cad_semi]![Modifiable30]

ta base étant trop grosse pour être "uploadée", je te montre la seule modification que tu as à faire pour que ça fonctionne:

[Parigoo]

Salut,

Voici pourquoi j'aurais était très curieux de voir la syntaxe qui "fonctionne."

Tu pourrais l'upload sur un hébergeur stp ?

[tee_grandbois]

Tu pourrais l'upload sur un hébergeur stp ?

inutile de passer par un hébergeur et à dire vrai, je n'ai jamais tenté ce genre de manipulation.
Voici une copie de la base qui prend beaucoup moins de place sans les 2 grosses tables dbo_... dont la présence n'était pas nécessaire pour tester la liste déroulante du formulaire:
V8 Build.rar

[Parigoo]

Re,

Excuse moi mais à quel moment le where condition fonctionne ? j'ai bien les deux ligne de ma table_CB qui s'imprime.... donc non filtré en fonction de la sélection via le modifiable30

Je sait bien que comparé à vous je suis débutant mais pas encore fou lool

[tee_grandbois]

Excuse moi mais à quel moment le where condition fonctionne ?

sur clic de la liste déroulante Modifiable30 les 2 requêtes sont lancées puis la liste est enregistrée 2 fois au format pdf en ouvrant explorer.



Or, quand on voit ta vidéo, cela ouvre directement ton application pdf 24 sans afficher les messages d'ajout de données et l'enregistrement des 2 fichiers pdf ... est-ce normal ?
et dans ma base de tet, mise à part que j'ai une page blanche au début, je n'ai que l'enregistrement sélectionné en résultat:
Table1.pdf

[hyperion13]

Salut,
J'ai téléchargé le chef d’œuvre de Parigoo
Même constat que toi. Il demande d'enregistrer autant de fois qu'il y a de nombre d'étiquette à imprimer.

sur clic de la liste déroulante Modifiable30 les 2 requêtes sont lancées puis la liste est enregistrée 2 fois au format pdf en ouvrant explorer.

Sauf à avoir inséré DoCmd.SetWarnings False dans les proc. ou avoir utilisé au préalable la méthode DoCmd.OutputTo, AcFormatPdf, ... !

Or, quand on voit ta vidéo, cela ouvre directement ton application pdf 24 sans afficher les messages d'ajout de données et l'enregistrement des 2 fichiers pdf ... est-ce normal ?

Pour ma part, j'ai appliqué la proc. que j'avais déjà donné en juil.2019 qui permet de faire une boucle et de me générer qu'un seul pdf, mais avec la 1ère page toujours vierge.

et dans ma base de tet, mise à part que j'ai une page blanche au début, je n'ai que l'enregistrement sélectionné en résultat

[Parigoo]

Cette histoire es enfin résolu, sincèrement un grand merci et bravo pour votre patience, moi meme j'ai failli lâcher l'affaire pourtant c'est mon projet, mais c'est devenu " c'est notre projet" comme dit vous savez qui hahaha.

Un membre du site me la fait royale avec que du VBA.
Je vous attend sur mes prochain sujet
Cordialement,

[hyperion13]

Cette histoire es enfin résolu, sincèrement un grand merci et bravo pour votre patience, moi meme j'ai failli lâcher l'affaire pourtant c'est mon projet, mais c'est devenu " c'est notre projet" comme dit vous savez qui hahaha.

Un membre du site me la fait royale avec que du VBA.
Je vous attend sur mes prochain sujet
Cordialement,

DEV est une communauté d'entre-aide et de partage.
J'aimerai bien, et je pense que tee_grandbois également, voir la contribution de ce membre de DEV.

[Parigoo]

DEV est une communauté d'entre-aide et de partage.
J'aimerai bien, et je pense que tee_grandbois également, voir la contribution de ce membre de DEV.

Salut,

Bien-sur,

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
Private Sub Modifiable30_AfterUpdate()
Dim I   As Long
 
    ' Remplissage de la rubrique "Votre choix"
    Me.tmpRef = Me.Modifiable30.Column(1)
    Me.tmpLot = Me.Modifiable30.Column(2)
    Me.tmpEmplacement = Me.Modifiable30.Column(3)
    Me.tmpQte = Me.Modifiable30.Column(4)
 
    ' Routine pour imprimer le nombre voulut d'étiquettes
    For I = 1 To Me.Nmbre
        DoCmd.OpenReport "Table1_CB", acViewNormal
        DoCmd.Close acReport, "Table1_CB"
    Next I
 
    ' Impression de Etik MFG si checkbox cochée
    If CheckBox_semi = True Then
        DoCmd.OpenReport "Etik MFG", acViewNormal
    End If
    Me.Nmbre.SetFocus
End Sub
 
'   Mise en mémoire de l'ancien code
Private Sub Modifiable30_Old_AfterUpdate()
If CheckBox_semi = True Then
DoCmd.OpenQuery "alim2"
DoCmd.OpenQuery "MAJ MFG_CB"
DoCmd.RunMacro "imprim_cb", Nmbre
DoCmd.RunMacro "imprim_mfg"
 
Else
 
DoCmd.OpenQuery "alim2"
DoCmd.OpenQuery "MAJ MFG_CB"
DoCmd.RunMacro "imprim_cb", Nmbre
End If
End Sub
 
 
Private Sub Image114_Click()
DoCmd.Close
End Sub
 
Private Sub Modifiable30_GotFocus()
'   Remise à zéro de la zone "Votre choix"
    Me.tmpRef = ""
    Me.tmpLot = ""
    Me.tmpEmplacement = ""
    Me.tmpQte = ""
End Sub

Cordialement,