Discussion :

[djibysadji]

Bonsoir,
Le code ci-dessous à pour but d'ajouter de nouveaux enregistrements dans la table T_classe, à partir du formulaire F_AjoutClasse. Pour l'essentiel, il fonctionne mais je ne comprends pas pourquoi le premier enregistrement se fait toujours à la deuxième ligne de la table, la première étant sautée.
Une capture de la table pour y voir plus clair.

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
Private Sub CmdAjout_Click()
Dim base As Database: Dim enr As Recordset
 
If txtlevel <> "" And txtclassname.Value <> "" Then
Set base = CurrentDb()
Set enr = base.OpenRecordset("T_classe")
With enr
.AddNew
.Fields("level").Value = txtlevel.Value
.Fields("classename").Value = txtclassname.Value
.Update
End With
 
base.Close
Set enr = Nothing
Set base = Nothing
 
MsgBox "La nouvelle classe a été créé avec succès.", vbInformation
 
Else
MsgBox "Tous les champs doivent être remplis." & Chr(13) & Chr(10) & "Insertion non effectuée.", vbCritical
End If
 
 
End Su

Merci par avance

[tee_grandbois]

bonsoir,
si le formulaire a comme source de données la table T_Classe (propriété Source renseigné avec le nom de la table) et que les contrôles ne sont pas indépendants (propriété Source contrôle renseigné avec les noms des champs) c'est possible que cela en soit la cause.
Dans ce cas, en plus de la saisie directe, le code de CmdAjout_Click() va ajouter un autre enregistrement, alors qu'il faudrait passer simplement à l'enregistrement suivant pour enregistrer la saisie (ou remplacer le code actuel par Me.Requery si on veut rester sur l'enregistrement actuel)

[djibysadji]

Bonsoir
Bien vu. Mes contrôles n'étaient pas indépendant. Après correction, le problème est réglé.
Un grand merci