Discussion :

[Kyndred40]

Bonjour,

Je viens vers vous car je ne comprend pas car quand je clique sur le bouton annuler du ComboBox qui s'ouvre cela me génère une erreur.
Voici le code de l'événement sur double clique de mon champ date car je l'utilise pour fixer la date.

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
Private Sub DateCmdLot_DblClick(Cancel As Integer)
 
    Dim dt As Date
    Dim rst As DAO.Recordset
 
 
    dt = InputBox("Choisir une date !", "Date de commande", Date) ' ouverture de la boîte de saisie pour le choix de la date
 
 
 
    ' ouverture du jeu d'enregistrements basé sur la table T_DetailCommandes filtrée par rapport au lot
    Set rst = CurrentDb.OpenRecordset("select * from EnAttPlanification where IdLot=" & Nz(Me.IdLot, 0), dbOpenDynaset)
 
    Do Until rst.EOF ' parcourt les enregistrements du lot
        rst.Edit
        rst!DateCmd = dt ' met à jour le champ DateCmd avec la date saisie dans l'inputbox
        rst.Update
 
        rst.MoveNext
    Loop
 
    Me.Requery ' on rafraîchit le sous-formulaire
 
    rst.Close
    Set rst = Nothing
 
    DoCmd.SetWarnings False
 
End Sub

Voici le message d'erreur


Merci d'avance !

[hyperion13]

Salut
A tester, mais sans garantie.

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
Private Sub DateCmdLot_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset
Dim dt As String
 
Set rst = CurrentDb.OpenRecordset("select * from EnAttPlanification where IdLot=" & Nz(Me.IdLot, 0), dbOpenDynaset)
 
dt = Eval("InputBox(""Saisir une date au format jj/mm/aaaa !"",""Date de commande"",date())")
    If StrPtr(dt) Then ' clic Annuler
        Exit Sub
    Else
        If Len(dt) = 0 Then ' clic OK pas de date saisie
            Exit Sub
        Else
            If Not IsDate(dt) Then ' valeur saisie n'est pas date
                MsgBox "La date saisie est incorrecte", vbCritical
            Else
                dt = Format(dt, "mm/dd/yyyy") ' valeur saisie est date
                    Do Until rst.EOF ' parcourt les enregistrements du lot
                        rst.Edit
                        rst!DateCmd = dt ' met à jour le champ DateCmd avec la date saisie dans l'inputbox
                        rst.Update
                        rst.MoveNext
                    Loop
                Me.Requery ' on rafraîchit le sous-formulaire
                rst.Close
                Set rst = Nothing
            End If
        End If
    End If
End Sub

[Kyndred40]

Bonjour,
J'ai modifié un petit peu pour que celui-ci soit fonctionnel mais pas grand chose :
Merci beaucoup de m'avoir aidé à trouver la solution

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
Dim rst As DAO.Recordset
Dim dt As String
 
dt = InputBox("Choisir une date !", "Date de commande", Date) ' ouverture de la boîte de saisie pour le choix de la date
 
 
Set rst = CurrentDb.OpenRecordset("select * from EnAttPlanification where IdLot=" & Nz(Me.IdLot, 0), dbOpenDynaset)
 
    If StrPtr(dt) = 0 Then ' clic Annuler
        Exit Sub
    Else
    If (dt = "") Then
    MsgBox ("Veuillez rentrer une date de ce type Jour/Mois/Annee")
        Exit Sub
    Else
 
 
                dt = Format(dt, "mm/dd/yyyy") ' valeur saisie est date
                    Do Until rst.EOF ' parcourt les enregistrements du lot
                        rst.Edit
                        rst!DateCmd = dt ' met à jour le champ DateCmd avec la date saisie dans l'inputbox
                        rst.Update
                        rst.MoveNext
                    Loop
                Me.Requery ' on rafraîchit le sous-formulaire
                rst.Close
                Set rst = Nothing
            End If
 
            End If