Empêchement d'impression du rapport si deux champs identique

**Dano60** · 12/10/2017, 19h40

Bonjour,
À partir d'un formulaire, j'ai un bouton qui execute la Private Sub cmd_FicheProd (voir code dessous). J'aimerais que la Sub commande fasse toutes ces tâches sauf dans le cas où dans ce même formulaire, le champ Date de terminaison et le champ Date d'expédition sont identique. À ce moment, j'aimerais empêcher l'ouverture du rpt_FicheProductionAupel et d'un boite de message affiche un message.

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 cmd_FicheProd_Click()
If Me.lst_TypeBordure.Column(0) = "9" Then
      MsgBox "Motif de bordure invalide!", vbCritical, "Bordure"
      Exit Sub
  End If
If Me.lst_CouleurReliure.Column(0) = "35" Then
      MsgBox "Couleur de la spirale invalide!", vbCritical, "Spirale"
      Exit Sub
  End If
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
        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** · 12/10/2017, 21h14

Bonjour.

Ça devrait être quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
 
       if not isnull(rs2![DateExpedition]) and not isnull(rs2![DateTerminaison]) Then 
 
           if rs2![DateExpedition]<>rs2![DateTerminaison] then
              DoCmd.OpenReport "rpt_FicheProductionAupel", acViewPreview, , "[tbl_Produit].[ID_Produit]=" & NoProduit, , "Produit"
              DoCmd.RunCommand (acCmdZoom100)
            end if
 
        End If

isnull() est l'équivalent de Nz(TonChamp, 0)=0.
rs![TonChamp] est équivalent à rs.fields("TonChamp").

A+

A+

**Dano60** · 12/10/2017, 21h42

Merci pour ce code. J'aimerais être averti pourquoi le rapport ouvre pas avec un msg box genre vbCritical

**marot_r** · 12/10/2017, 21h52

Bonjour.

Code :

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

1
2
3
4
5
6
           if rs2![DateExpedition]<>rs2![DateTerminaison] then
                 DoCmd.OpenReport "rpt_FicheProductionAupel", acViewPreview, , "[tbl_Produit].[ID_Produit]=" & NoProduit, , "Produit"
                 DoCmd.RunCommand (acCmdZoom100)
              else
                 msgbox "Pas de rapport !",vbcritical
            end if

A+

**Dano60** · 12/10/2017, 22h01

Envoyé par Dano60

Merci pour ce code. J'aimerais être averti pourquoi le rapport ouvre pas avec un msg box genre vbCritical

Est ce que tu m'expliquer la raison de l'ajout à la ligne 2 en terme débutant.

Merci de ton aide!!!!

**marot_r** · 12/10/2017, 22h13

Bonjour.

Ligne 2 ? C'est ton instruction pour l'ouverture du rapport, pas un de mes ajouts.

Je vais répondre à ce qui me semble être ta question.

Après m'être assuré que les valeurs ne sont pas nules (isnull(rs2![DateExpedition]) and not isnull(rs2![DateTerminaison])).
Quand on compare n'importe quoi et null on obtient null ce qui est interprété comme faux.
Mais les nulls ont des comportements inattendus parfois donc il est bon de vérifier et de traiter explicitement les valeurs nulls.
Ça évite les mauvaises surprises.
Je teste si les dates sont différentes (rs2![DateExpedition]<>rs2![DateTerminaison])
Si oui (then), j'appelle le code d'ouverture de rapport.
Si non (else), j'affiche un message en spécifiant qu'il doit être agrémenté du symbole critique.