Argument manquant, evolution de code

**Dano60** · 15/09/2017, 16h05

Bonjour,

Je dois ajouter un argument à un code existant. Je m'y connais un peu mais pas trop expert en code.

frm_DetailProduit_Scolaire_E.jpg.zip

J'ai un formulaire(voir au dessus) désolé le formulaire est en anglais seulement. Dans ce formulaire frm_DetailProduit_scolaire_E est pour placer une commande pour des agendas scolaire. À l'intérieur de ce formulaire dans la section Binding il y a un endroit pour sélectionner à partir d'une liste la couleur de la spirale, inclus dans la liste de choix il y a l'option "À déterminer". Cette option est comprise pour permettre au vendeur d'envoyer un bon de commande pour autorisation par le client même si la couleur de la spirale n'est pas encore déterminer. Au bas de ce même formulaire ce trouve un bouton qui s'appelle "View Production Sheet", lorsque celui-ci est actionné un code est activé pour générer une date de terminaison pour indiquer quand la production dois être termine, de plus il ouvre la Fiche de Production (Voir au dessous) qui va sur le plancher de production pour la production de la commande.

rpt_FicheProductionAupel.jpg.zip

Ce que je veux, c'est d'ajouter au code que lorsque le bouton de "View Production Sheet est activé et que l'option couleur de la spirale est "À déterminer" un message indiquant que la couleur est "À déterminer et arrête l'ouverture du rpt_FicheProductionAupel.

Voici si dessous le code.

Private Sub cmd_FicheProd.jpg.zip

Prendre bien note que je m'y connais que très peu.

Merci infiniment

**Dano60** · 22/09/2017, 19h57

Envoyé par Dano60

Bonjour,

Je dois ajouter un argument à un code existant. Je m'y connais un peu mais pas trop expert en code.

frm_DetailProduit_Scolaire_E.jpg.zip

J'ai un formulaire(voir au dessus) désolé le formulaire est en anglais seulement. Dans ce formulaire frm_DetailProduit_scolaire_E est pour placer une commande pour des agendas scolaire. À l'intérieur de ce formulaire dans la section Binding il y a un endroit pour sélectionner à partir d'une liste la couleur de la spirale, inclus dans la liste de choix il y a l'option "À déterminer". Cette option est comprise pour permettre au vendeur d'envoyer un bon de commande pour autorisation par le client même si la couleur de la spirale n'est pas encore déterminer. Au bas de ce même formulaire ce trouve un bouton qui s'appelle "View Production Sheet", lorsque celui-ci est actionné un code est activé pour générer une date de terminaison pour indiquer quand la production dois être termine, de plus il ouvre la Fiche de Production (Voir au dessous) qui va sur le plancher de production pour la production de la commande.

rpt_FicheProductionAupel.jpg.zip

Ce que je veux, c'est d'ajouter au code que lorsque le bouton de "View Production Sheet est activé et que l'option couleur de la spirale est "À déterminer" un message indiquant que la couleur est "À déterminer et arrête l'ouverture du rpt_FicheProductionAupel.

Voici si dessous le code.

Private Sub cmd_FicheProd.jpg.zip

Prendre bien note que je m'y connais que très peu.

Merci infiniment

Est ce correct en word!!!

**Dano60** · 22/09/2017, 20h32

Envoyé par Dano60

Bonjour,

Je dois ajouter un argument à un code existant. Je m'y connais un peu mais pas trop expert en code.

frm_DetailProduit_Scolaire_E.jpg.zip

J'ai un formulaire(voir au dessus) désolé le formulaire est en anglais seulement. Dans ce formulaire frm_DetailProduit_scolaire_E est pour placer une commande pour des agendas scolaire. À l'intérieur de ce formulaire dans la section Binding il y a un endroit pour sélectionner à partir d'une liste la couleur de la spirale, inclus dans la liste de choix il y a l'option "À déterminer". Cette option est comprise pour permettre au vendeur d'envoyer un bon de commande pour autorisation par le client même si la couleur de la spirale n'est pas encore déterminer. Au bas de ce même formulaire ce trouve un bouton qui s'appelle "View Production Sheet", lorsque celui-ci est actionné un code est activé pour générer une date de terminaison pour indiquer quand la production dois être termine, de plus il ouvre la Fiche de Production (Voir au dessous) qui va sur le plancher de production pour la production de la commande.

rpt_FicheProductionAupel.jpg.zip

Ce que je veux, c'est d'ajouter au code que lorsque le bouton de "View Production Sheet est activé et que l'option couleur de la spirale est "À déterminer" un message indiquant que la couleur est "À déterminer et arrête l'ouverture du rpt_FicheProductionAupel.

Voici si dessous le code.

Private Sub cmd_FicheProd.jpg.zip

Prendre bien note que je m'y connais que très peu.

Merci infiniment

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
Private Sub cmd_FicheProd_Click()
 
Dim sqlString, DateTerminaisonCalc As String
Dim rs, rs2, rs3 As Recordset
 
sqlString = "SELECT tbl_Commande.DateSignature, tbl_Tache.DateFinReel, tbl_Commande_Produit.ProduitID, tbl_Tache.TypeTacheID, tbl_Tache.MachineID, tbl_Commande.ID_Commande " & _
                "FROM (tbl_Commande_Produit INNER JOIN tbl_Tache ON tbl_Commande_Produit.ID_CommandeProduit = tbl_Tache.ID_CommandeProduit) INNER JOIN tbl_Commande ON tbl_Commande_Produit.CommandeID = tbl_Commande.ID_Commande " & _
                "WHERE (((tbl_Commande.DateSignature) Is Null) AND ((tbl_Commande_Produit.ProduitID)=" & NoProduit & ") AND ((tbl_Tache.TypeTacheID)=19) AND ((tbl_Tache.MachineID)=34)) OR (((tbl_Tache.DateFinReel) Is Null) AND ((tbl_Commande_Produit.ProduitID)=" & NoProduit & ") AND ((tbl_Tache.TypeTacheID)=19) AND ((tbl_Tache.MachineID)=34));"
Set rs = CurrentDb.OpenRecordset(sqlString, dbOpenDynaset, dbSeeChanges)
 
If rs.RecordCount = 0 Then
    sqlString = "SELECT tbl_Commande.DateExpedition, tbl_Commande_Produit.ProduitID, tbl_Commande.DateTerminaison " & _
                    "FROM tbl_Commande_Produit INNER JOIN tbl_Commande ON tbl_Commande_Produit.CommandeID = tbl_Commande.ID_Commande " & _
                    "WHERE (((tbl_Commande_Produit.ProduitID)=" & NoProduit & "));"
    Set rs2 = CurrentDb.OpenRecordset(sqlString, dbOpenDynaset, dbSeeChanges)
 
    If rs2.RecordCount > 0 Then
        If Nz(rs2.Fields("[DateExpedition]"), 0) <> 0 Then
            If Nz(rs2.Fields("[DateTerminaison]"), 0) = 0 Then
                tempDate1 = CalcDateTerminaison(NoProduit)
                If tempDate1 = 0 Then
                    tempDate2 = "0"
                Else
                    tempDate2 = "#" & Month(tempDate1) & "-" & Day(tempDate1) & "-" & Year(tempDate1) & "#"
                End If
                sqlString = "UPDATE tbl_Commande_Produit INNER JOIN tbl_Commande ON tbl_Commande_Produit.CommandeID = tbl_Commande.ID_Commande SET tbl_Commande.DateTerminaison = " & tempDate2 & " " & _
                                "WHERE (((tbl_Commande_Produit.ProduitID)=" & NoProduit & "));"
                CurrentDb.Execute sqlString, dbFailOnError
            End If
            sqlString = "UPDATE tbl_Produit SET tbl_Produit.ImpressionFicheProd = 1 " & _
                            "WHERE (((tbl_Produit.ID_Produit)=" & NoProduit & "));"
            CurrentDb.Execute sqlString, dbFailOnError
 
            DoCmd.OpenReport "rpt_FicheProductionAupel", acViewPreview, , "[tbl_Produit].[ID_Produit]=" & NoProduit, , "Produit"
            DoCmd.RunCommand (acCmdZoom100)
        Else
            MsgBox "Il n'y a pas de date d'expédition!", vbCritical, "Date d'expédition"
        End If
        Else
            MsgBox "Couleur spirale manquante", vbCritical, "Couleur spirale"
        End If
        End If
    rs2.Close
Else
    MsgBox "Certaine(s) date(s) nécessaire à la création de la fiche de production sont manquantes!", vbCritical, "Date manquante"
End If
 
rs.Close
 
 
End Sub

**marot_r** · 22/09/2017, 20h56

Ok, alors c'est assez simple et cela doit ressembler à cela :

À mettre juste après cmd_FicheProd_Click()

Code :

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

1
2
3
4
if me.colour.text = "À déterminer"  then
   msgbox "Couleur à déterminer, impression impossible.", vbexclamation
   exit sub
end if

Vérifie le nom du champ "Colour", j'ai fait une supposition mais il porte peut-être un autre nom du genre lstColour ou cmbColour.
Idéalement il faudrait tester un code invariant plutôt que le texte "À déteminer" qui pourrait changer.
Pour savoir ce de Access voit vraiment tu peux mettre :

Code :

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

msgbox me.colour

juste après le cmd_FicheProd_Click, Access va t'afficher la valeur du contrôle et c'est cette valeur qu'il faudra tester.

A+

**Dano60** · 22/09/2017, 21h43

Envoyé par marot_r

Ok, alors c'est assez simple et cela doit ressembler à cela :

À mettre juste après cmd_FicheProd_Click()

Code :

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

1
2
3
4
if me.colour.text = "À déterminer"  then
   msgbox "Couleur à déterminer, impression impossible.", vbexclamation
   exit sub
end if

Vérifie le nom du champ "Colour", j'ai fait une supposition mais il porte peut-être un autre nom du genre lstColour ou cmbColour.
Idéalement il faudrait tester un code invariant plutôt que le texte "À déteminer" qui pourrait changer.
Pour savoir ce de Access voit vraiment tu peux mettre :

Code :

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

msgbox me.colour

juste après le cmd_FicheProd_Click, Access va t'afficher la valeur du contrôle et c'est cette valeur qu'il faudra tester.

A+

Ça a pas fonctionné voir le code que j'ai mis

Code :

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

1
2
3
4
Private Sub cmd_FicheProd_Click()
   If Me.lst_CouleurReliure.Text = "À confirmer" Then
      MsgBox "Couleur à déterminer, impression impossible.", vbExclamation
Exit Sub

**marot_r** · 25/09/2017, 15h49

OK, désolé, je pensais que cela marcherai.

Essaye :

Code :

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

1
2
3
4
5
Private Sub cmd_FicheProd_Click()
   If Me.lst_CouleurReliure = "À confirmer" Then
      MsgBox "Couleur à déterminer, impression impossible.", vbExclamation
      Exit Sub
  end if

A+

**Dano60** · 25/09/2017, 16h02

Envoyé par marot_r

OK, désolé, je pensais que cela marcherai.

Essaye :

Code :

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

1
2
3
4
5
Private Sub cmd_FicheProd_Click()
   If Me.lst_CouleurReliure = "À confirmer" Then
      MsgBox "Couleur à déterminer, impression impossible.", vbExclamation
      Exit Sub
  end if

A+

Salut,

J'ai mis le code comme ceci ce qui conrespont à ce que tu m'as dis de mettre.

Private Sub cmd_FicheProd_Click()
If Me.lst_CouleurReliure = "À confirmer" Then
MsgBox "Couleur À confirmer, impression impossible.", vbExclamation
Exit Sub
End If

La feuille de production c'est ouverte même si la couleur était "À confirmer"

Est ce que le vbExclamation devrais être vbCritical?

**tee_grandbois** · 25/09/2017, 17h39

Bonjour,

La feuille de production c'est ouverte même si la couleur était "À confirmer"

il est possible que ne soit pas la bonne colonne de la liste qui est comparée. Peux-tu poster le contenu des propriétés Contenu et Colonne liée de lst_CouleurReliure ?

Est ce que le vbExclamation devrais être vbCritical?

En général, vbCritical est l'icône indiquant une erreur critique lors de l'affichage d'une boîte message, cela n'a pas réellement d'importance pour le fonctionnement, c'est juste du visuel.

**Dano60** · 25/09/2017, 19h32

Envoyé par tee_grandbois

Bonjour,

il est possible que ne soit pas la bonne colonne de la liste qui est comparée. Peux-tu poster le contenu des propriétés Contenu et Colonne liée de lst_CouleurReliure ?

En général, vbCritical est l'icône indiquant une erreur critique lors de l'affichage d'une boîte message, cela n'a pas réellement d'importance pour le fonctionnement, c'est juste du visuel.

Voilà

**tee_grandbois** · 25/09/2017, 19h55

bonsoir,
plutôt qu'une impression d'écran, un copier/coller du texte du contenu serait plus lisible ...
Merci.

**Dano60** · 25/09/2017, 20h04

Envoyé par tee_grandbois

bonsoir,
plutôt qu'une impression d'écran, un copier/coller du texte du contenu serait plus lisible ...
Merci.

Excuse moi, je suis nouveau rappel toi!!! Qu'est ce que tu aimerais avoir?

**tee_grandbois** · 25/09/2017, 20h13

Envoyé par Dano60

Excuse moi, je suis nouveau rappel toi!!! Qu'est ce que tu aimerais avoir?

je veux le texte complet de ce qu'il y a dans la propriété Contenu de lst_CouleurReliure : cela commence par Select ... tu va dedans tu sélectionnes tout, tu fait copier et ensuite tu le colles dans ta réponse.

**Dano60** · 25/09/2017, 20h30

Envoyé par tee_grandbois

je veux le texte complet de ce qu'il y a dans la propriété Contenu de lst_CouleurReliure : cela commence par Select ... tu va dedans tu sélectionnes tout, tu fait copier et ensuite tu le colles dans ta réponse.

Voilà

Code sql :

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

SELECT tbl_Couleur.ID_Couleur, tbl_Couleur.Couleur FROM tbl_Couleur WHERE (((tbl_Couleur.Couleur_Filament)=1)) ORDER BY tbl_Couleur.Couleur;

**tee_grandbois** · 25/09/2017, 20h59

Merci.
cela confirme ce que je pensais, la première colonne est l'identifiant, il faut donc faire la comparaison avec la colonne 2 de la liste (index 1) :

Code :

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

1
2
3
4
5
Private Sub cmd_FicheProd_Click()
   If Me.lst_CouleurReliure.column(1) = "À confirmer" Then
      MsgBox "Couleur à déterminer, impression impossible.", vbExclamation
      Exit Sub
  end if

**marot_r** · 25/09/2017, 21h08

Merci tee_Grandbois.

Personnellement je testerai plutôt la valeur de tbl_Couleur.ID_Couleur associée à "À déterminer".
Le ID a moins de chance de changer que le texte.

A+

**Dano60** · 25/09/2017, 21h13

Envoyé par marot_r

Merci tee_Grandbois.

Personnellement je testerai plutôt la valeur de tbl_Couleur.ID_Couleur associée à "À déterminer".
Le ID a moins de chance de changer que le texte.

A+

Merci monsieur le génie!!!

Ça fonctionne très bien. Je viens de m'appercevoir que j'ai éffacer quelques chose quelque part et le formulaire anglais ne s'ouvre mais sans les données qui devrais être la.

Je vais marker ce poste comme grandement résolu

Merci tee_Granbois!!!!!!

**tee_grandbois** · 25/09/2017, 22h18

Envoyé par marot_r

Merci tee_Grandbois.

Personnellement je testerai plutôt la valeur de tbl_Couleur.ID_Couleur associée à "À déterminer".
Le ID a moins de chance de changer que le texte.

A+

Entièrement d'accord avec toi ...

Argument manquant, evolution de code [AC-2007]

Requêtes et SQL.

Discussions similaires

Partager

Partager