ajout dans bdd

Question

Bonjour, Je souhaite ajouter de nouveaux éléments dans ma base de données. Mon problème est le suivant. Je clic sur 'ajouter' pour commencer àà entrer mes nouveaux éléments puis encore une fois sur 'ajouter' por valider et lancer l'enregistrement pour ce faire, je fais ceci :  

Private Sub ajouter_Click()

   Me!combo.Clear
   Data3.Recordset.MoveFirst
   Do While Not Data3.Recordset.EOF
      Me!combo.AddItem Data3.Recordset("nom_champ")
      Data3.Recordset.MoveNext
    Loop
    Data3.Recordset.AddNew
   Me!combo = ""
   Me!text1.SetFocus
   Me!sup.Enabled = False
   lbl_date_inscription = Date
   End If
End Sub

le problème est que le deuxième click enjendre la création d'un nouvel élément vide. que dois-je ajouter à ma commande pour éviter l'apparition de cet élément?
D'avance merci.
Xeresakrom

xeresakrom · Answer

j'avais pensé à un 
if text1 = " " then 
exit sub
mais cela ne fonctionne pas.
Pas d'idée?

xeresakrom · Answer

Je viens de m'appercevoir que le problème doit venir d'ailleurs étant donné que les lignes précedentes marchent avec une autre form.
Le problème est que je n'ai aucune idée de la raison pour laquelle il créé une nouvelle entrée dans ce cas alors que sur une autre form, il ne créé rien!!!
Please help!!

cs_Pat35 · Answer

A mon avis, ton PB viens du fonctionnement de ton formulaire.

Tu ne devrais pas utiliser le même boutton pour commencer la saisie et pour la valider, ou alors il faudrait mettre un flag pour savoir si tu doit ajouter une nouvelle ligne ou valider celle que tu est en train de créer.

Static l_Flag_Creation as boolean

if l_flag_Creation then
  ' Tu valide ce qui est saisi
  l_flag_Creation = false
else
  ' Tu prépare le création
  l_flag_Creation = true
End If

Ajout dans bdd

3 réponses

Discussions similaires