Bonjour,

bon voila, j'ai écris ce code mais je reçois l'erreur 424 " Objet requis " et le débogage s'arrête sur If Me.NS_Fin Is Null Then
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Valider_Commande_Click()
Dim i As Double
Dim NS_Début As Double
Dim NS_Fin As Double
If Me.NS_Fin Is Null Then
CurrentDb.Execute "INSERT INTO [commandes]([dd],[N_série],[date_prélèvement],[commercial]) VALUES(" & Me.N_decharge & "," & Me.NS_Début & ",'" & Me.date_de_prélèvement & "','" & Me.commercial & "')"
  Else
   For i = Me.NS_Début To Me.NS_Fin
CurrentDb.Execute "INSERT INTO [commandes]([dd],[N_série],[date_prélèvement],[commercial]) VALUES(" & Me.N_decharge & "," & i & ",'" & Me.date_de_prélèvement & "','" & Me.commercial & "')"
    Next i
    End If
MsgBox "Commande Valider"
End Sub
prière de m'aider svp.

merci.