Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Ajout à travers un combobox [ Divers / Débutants ] (spamito)

vendredi 3 octobre 2008 à 17:06:52 | Ajout à travers un combobox

spamito

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.

dimanche 5 octobre 2008 à 23:15:14 | Re : Ajout à travers un combobox

rvblog

Membre Club
Salut spamito,

tu as peut-être multiposté, et c'est pas bien, mais tu as mis du code, et tu as l'air d'avoir du mal, 2 bonnes raisons pour t'aider.

à 1ère lecture, on dirait bien qu'il manque une clause WHERE dans ta requête, qui te permetrrait d'être sûr que le fournisseur saisi n'est vraimment pas présent dans la base, et qu'il faut donc le rajouter.

Si j'ai raison (si j'ai raison, ça a dû marcher au 1er fournisseur de la base, puis plus rien), merci de tenir compte des 2 conseils suivants (je me limite à 2, mais bien plus te seraient nécessaires) :
- écris ce que tu veux faire avant de le coder (les bêtises te sauteront aux yeux, et il ne restera plus que des problèmes techniques)
- respecte le réglement de CSSS.

à+

rvblogn
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!




Cette discussion est classé dans : combobox, end, fournisseur, with, if


Répondre à ce message

Sujets en rapport avec ce message

envoi mail - joindre fichier excel [ par liouliou ] Bonjour à tous,voila je me lance dans le VB pour le boulot, j'ai réussi jusqu'à présent à me débrouiller sur quelques fonctions simples, mais là ça se variable public [ par damdam2801 ] Bonjour a tous voilà j' ai parcourus le forum, les tutos et le site de long en marge et en travers sans réussir a résoudre mon problème...je voudrais Restreindre caractère textbox [ par alihome ] Bonjour à tous,J'aimerais savoir comment je pourrais restreindre une textbox à seulement 2 caractere ET aux chiffres.J'ai trouver ce code pour restrei ca bug [ par alejandro20 ] bonjour, voila j'essaye de creer une interface pour calculer le zero par dichotomie d'une fonction ln ou exp le probleme c que je cherche a verifier Fonction VBA pour excel : problème de formule qui s'applique mal [ par SpEeDy_Fire ] Bonjour,j'ai créé une fonction permettant d'aller chercher des informations dans d'autres feuilles du fichier excel pour traiter différent cas, voici Consolidation multi fichiers Excel [ par xRay13 ] Bonjour,j'utilise une macro qui me permet de consolider des valeur de cellules  presentes dans différentes feuilles d'un meme classeur avec pour denom créer un lien entre menu déroulant et plusieurs feuilles excel [ par mounirt82 ] Sujet : Associer un menu déroulant à plusieurs feuillesMessage :Je voudrai savoir comment à partir d'une liste déroulante placée sur le feuille 1 d'un mail + pièce jointe [ par podolis ] Voila, je sais qu'il existe bcp de source pour mon problème mais j'y arrive pas que voulai vousVoila j'ai créé un appli me permettant de faire des tes Copie de fichier [ par fabricioliking ] J'ai un petit soucie avec mon code, en effet je l'ai battis grâce à des sources et des cours sur vbfrance et developpez.com et j'ai surement mal compr


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,686 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.