Discussion :

[aninay]

bonjour à tous

j'ai crée une base de donnée sous ACCESS 2003

mon problème est le suivant :
ma base de donnée est composée de 2 tables ( table OPERATION qui a comme champs NumOpe,Date_Ope,NbreDocker,NumDeclaration,NumEnt et la table ENTREPRISE qui a comme champs NumEnt,Libelle)

j'ai conçu un formulaire de saisie qui enregistre les données saisie dans la table OPERATION vous allez voir ci-joint ce formulaire appelé saisie DOCKERS et en bas de ce formulaire vous avez un bouton appelé « enregistrer »
le code derrière ce bouton et le suivant :

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
30
31
32
33
34
35
36
37
38
Private Sub btnSave_Click()
Dim sql As String
Dim i As Integer
 
On Error GoTo err:
sql = "select last(NumOpe) from operation"
Set db = CurrentDb
Set rst = db.OpenRecordset(sql)
If Not IsNull(rst.Fields(0)) Then
NumEnt = rst.Fields(0) + 1
Else
NumEnt = 1
End If
i = 0
If txtDateOpe <> "" And Not IsNull(txtDateOpe) Then
sql = "delete from operation where NumEnt = " & cmbEnt.Value & " and Date_Ope = #" & Format(txtDateOpe, "MM/dd/yyyy") & "#"
db.Execute (sql)
End If
For i = 1 To lstTest.ListCount - 1
sql = "INSERT INTO operation ( NumOpe,Date_Ope,NbreDocker,NumDeclaration,NumEnt ) values(" & NumEnt & ",'" & lstTest.Column(0, i) & "','" & lstTest.Column(1, i) & "'," & lstTest.Column(2, i) & ",'" & cmbEnt.Value & "')"
db.Execute (sql)
NumEnt = NumEnt + 1
Next
If db.RecordsAffected = 0 Then
MsgBox "Erreur lors de l'enregistrement", vbCritical + vbOKOnly, "Erreur"
Exit Sub
Else
MsgBox ("Enregistrement effectué")
lstTest.RowSource = ""
Call enteteListbox
Call clearbox
txtTotal = 0
End If
  Exit Sub
err:
MsgBox ("Erreur lors de l'enregistrement")
 
End Sub

De que j’appuis sur le bouton « enregistrer » il m’affiche comme message « erreur lors de l’enregistrement »

mais lorsque je supprime un enregistrement et que je saisie un autre enregistrement ca prend un et pas plus

Est-ce que quelqu'un pourrai m’aider svp ?

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumEnt = rst.Fields(0) + 1

Je pense que c'est de là que vient ton problème.
Tu prends le premier enregistrement, et tu lui ajoute 1.

Je ne sais pas très bien ce que tu veux faire, mais tu dois récupérer la valeur Max ou count de tes recordsets.