ajout dans bdd

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

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

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!!

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