Bonjour à tous,
Je suis en stage informatique et mon rôle dans l'entreprise et de créer une BDD sous Access 2010.
Il m'a été demandé la création d'un mailing automatique en fonction de la date de fin d'une commande.
Étant donné que je viens commencer le VBA il y a à peine 2h, j'ai quelque souci avec mon code.

Voila 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
Private Sub Label0_Click()
    Dim i As Long
    Dim r_test As DAO.Recordset
    Dim sSQL_beg As String
    Dim sSQL_inc As String
    Dim sSQL_end As String
 
    Dim v As Variant
    Dim v_beg As Variant
    Dim v_end As Variant
 
    sSQL_beg = "Select * From t_Inputs ORDER BY ID_Inputs ASC"
    Set r_test = CurrentDb.OpenRecordset(sSQL_beg, dbOpenForwardOnly, dbReadOnly)
    v_beg = r_test![ID_Inputs]
 
    sSQL_end = "Select * From t_Inputs ORDER BY ID_Inputs DESC"
    Set r_test = CurrentDb.OpenRecordset(sSQL_end, dbOpenForwardOnly, dbReadOnly)
    v_end = r_test![ID_Inputs]
 
    For i = v_beg To v_end
        sSQL_inc = "Select * From t_Inputs Where ID_Inputs=i"
        Set r_test = CurrentDb.OpenRecordset(sSQL_inc, dbOpenForwardOnly, dbReadOnly)
        v = r_test![End date]
 
        If v = Date Then
        MsgBox v
        End If
    Next i
End Sub
VB me dit qu'il y a un souci au niveau de la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set r_test = CurrentDb.OpenRecordset(sSQL_inc, dbOpenForwardOnly, dbReadOnly)
Cependant quand j’enlève le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
"Where ID_Inputs = i"
de la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
sSQL_inc = "Select * From t_Inputs Where ID_Inputs=i"
cela fonctionne. Mais du coup ca ne s'incrémente pas dans mes enregistrements de ma table.

Si quelqu'un peut m'aider à résoudre mon problème à serait vraiment sympa.
Merci d'avance.