Salut,
Mon combobox contient des enregistrements provenant d'une table. Malgré cela l'utilisateur pourra ajouter un autre tout en saisissant directement sur le combobox, les données ajoutés seront automatiquement enregistrées et ajoutée au combobox. Je n'arrive pas à atteindre cet objectif, car même si l'enregistrement existe, mon message sort. Voici mon code :
If fournisseur.Text = "" Then
MsgBox("Impossible de continuer la saisie. Veuillez choisir un FOURNISSEUR.", MsgBoxStyle.Critical)
Else
conn = New Connection
With conn
.Provider = "Microsoft.Jet.oledb.4.0"
.Open("data source=" & Application.StartupPath & "\BASE\BASE.mdb")
End With
rs = New Recordset
With rs
.ActiveConnection = conn
.Open("SELECT * FROM Fournisseurs", , CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockPessimistic)
End With
If rs.RecordCount = 0 Then
k = MsgBox("Les informations saisies dans le champ FOURNISSEUR, n'existent pas. Voulez-vous les ajouter ?", MsgBoxStyle.YesNo)
If k = vbYes Then
FrmFournisseurs.Show()
Else
Exit Sub
fournisseur.Text = ""
fournisseur.Focus()
End If
End If
End If
Normalement il doit vérifier si l'information se trouvant dans le combobox existe ou pas, si ce n'est pas le cas, alors le message devra sortir et un formulaire devra s'ouvrir. Mais cela ne marche pas pour moi, savez-vous pourquoi ? Et où est l'erreure sur mon code ?
Je sais que je poste plusieurs messages, mais dsl je suis débutant

. Merci.