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 Valider_Commande_Click()
Dim i, vd, vf As Double
Dim NS_Début, NS_Fin As Double
If NS_Début = null And NS_Fin = null Then
MsgBox " Entrez un numéro de série valide"
Else
If NS_Début = null Then
CurrentDb.Execute "INSERT INTO [commandes]([dd],[N_série],[date_prélèvement],[commercial]) VALUES(" & Me.N_decharge & "," & Me.NS_Fin & ",'" & Me.date_de_prélèvement & "','" & Me.commercial & "')"
Else
If NS_Fin = 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
If NS_Début < NS_Fin Then
vd = NS_Début
vf = NS_Fin
Else
vd = NS_Fin
vf = NS_Début
End If
For i = vd To vf
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
End If
End If
MsgBox " commande validée "
End Sub |
Partager