Discussion :

[lakhdar16]

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.

[getule]

essayes ça, en enlevant "me"
If NS_Fin =0 , puisque c'est un double

[lakhdar16]

effectivement, ca marche merci beaucoup.

[getule]

de rien lakhdar,

mets le sujet "resolu" alors