Discussion :

[djibysadji]

Salut le forum!
Nous avons conçu le code suivant pour enregistrer des données dans une tables. Le problème est que l'enregistrement ne se fait pas à la dernière ligne vide de la table mais plutôt à la ligne suivante. Nous sollicitons votre lanterne.

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 CmdValider1_Click()
Dim rq As String
If IsNull(Me.Entete_id.Value) Or IsNull(Me.Prenom_el.Value) Or IsNull(Me.Nom_el.Value) Or IsNull(Me.Sexe_id.Value) Or IsNull(Me.Datenaiss.Value) Or IsNull(Me.Lieunaiss.Value) Or IsNull(Me.Classe_id.Value) Or IsNull(Me.Niveau_id.Value) Then
MsgBox "Veuillez remplir les champs vides!", vbInformation, "GESCOLLY"
 
Else
If MsgBox("Voulez-vous vraiment enregistrer ces données?", vbYesNo + vbQuestion, "GESCOLLY") = vbNo Then
        Cancel = True
        Exit Sub
Else
rq = "INSERT INTO T_ELEVES(Entete_id, Prenom_el, Nom_el, Sexe_id, Datenaiss, Lieunaiss, Classe_id, Niveau_id) VALUES (" & Me.Entete_id.Value & ", '" & Me.Prenom_el.Value & "', '" & Me.Nom_el.Value & "', " & Me.Sexe_id.Value & ", '" & Me.Datenaiss.Value & "', '" & Me.Lieunaiss.Value & "', " & Me.Classe_id.Value & ", " & Me.Niveau_id.Value & ")"
CurrentDb.Execute rq
MsgBox "Données insérées avec succès!", vbInformation, "GESCOLLY"
Me.Entete_id.Value = ""
Me.Prenom_el.Value = ""
Me.Nom_el.Value = ""
Me.Sexe_id.Value = ""
Me.Datenaiss.Value = ""
Me.Lieunaiss.Value = ""
Me.Classe_id.Value = ""
Me.Niveau_id.Value = ""
 
End If
End If
End Sub

[tee_grandbois]

bonsoir,
la saisie se fait directement dans la table donc inutile de lancer une requête (qui insère, de ce fait, un nouvel enregistrement! dans la ligne 2) et de vider les champs (ce qui explique que la première ligne soit vide)
il ne faut pas utiliser un bouton pour valider mais plutôt l'évènement BeforeUpdate du formulaire, sur un bouton ,l'action Cancel ou Undo ne fonctionnera jamais
Si tu veux utiliser un bouton Valider, il ne faut pas mettre de source à ton formulaire (pas de table ou requête) et les contrôles (les champs de saisie) doivent être indépendants (pas de Source contrôle)

[djibysadji]

bonsoir,
la saisie se fait directement dans la table donc inutile de lancer une requête (qui insère, de ce fait, un nouvel enregistrement! dans la ligne 2) et de vider les champs (ce qui explique que la première ligne soit vide)
il ne faut pas utiliser un bouton pour valider mais plutôt l'évènement BeforeUpdate du formulaire, sur un bouton ,l'action Cancel ou Undo ne fonctionnera jamais
Si tu veux utiliser un bouton Valider, il ne faut pas mettre de source à ton formulaire (pas de table ou requête) et les contrôles (les champs de saisie) doivent être indépendants (pas de Source contrôle)

Bien vu! Merci