Comment écrire le contenu d'un comboBox dans une table AccessRésolu

Question

Bonjour &#224; tous,

Comme le titre l'indique je tente ceci:

Sub VersTblCat()
    Dim rstCat As Recordset, maBD As Database, I As Integer
    Set maBD = OpenDatabase("c:\BaseAccess\CatalogueCD-vb\EncodageCD.mdb")
    Set rstCat = maBD.OpenRecordset("SELECT* FROM tblCat")
    With rstCat
        For I = 0 To Combo1.ListCount - 1
            .AddNew
            !nomcat = Combo1.List(I)
        Next I
        .Update
    End With
End Sub

Le probl&#232;me est que j'ai des r&#233;sultats bizarres.
Lorsque je relis la table, alors que seuls un, deux, trois sont &#233;crits au d&#233;part, je remis, 4 ou 5 fois le mot un, 6 fois le mot deux etc.
Comment pourai-je r&#233;gler ce probl&#232;me.
D'avance merci

Guy FALESSE

GuyFALESSE · Accepted Answer

Salut Cboulas,

Merci pour ta r&#233;ponse mais, j'ai maintenant:
un 
deux
trois
un
deux 
trois
ainsi de suite

Guy FALESSE

cboulas · Answer

Salut, oui en fait je pense que tu devrais faire l'update apr&#232;s chaque Addnew :

With rstCat
        For I = 0 To Combo1.ListCount - 1
            .AddNew
            !nomcat = Combo1.List(I)
           .Update
        Next I
End With


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

Bh&#224; mince, je viens de tester ce code chez moi, et j'ai bien qu'une seule fois les enregistrement, si tu veux je t'envoi le tout sur un e-mail (ne pas l'&#233;crire sur le forum, en message priv&#233;), et tu regardera. j'utilise MS DAO 3.6


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

GuyFALESSE · Answer

Salut Cboulas,

Bien, d'accord bien s&#251;r.
On fait comment pour que tu re&#231;oives mon Email?

Guy FALESSE

cboulas · Answer

Salut, il te suffit de regarder dans tes messages persos : dans le menu de gauche &#224; "Mon Compte", ou sinon tu m'envoi juste un mail &#224; l'adresse support ci-dessous


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

GuyFALESSE · Answer

Salut Cboulas,

Merci, c'est fait :-)
Guy FALESSE

cboulas · Answer

Le mail viens tout juste de partir, tu n devrais pas tarder &#224; l'avoir


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

GuyFALESSE · Answer

Cboulas, ok, en mettant le Update comme tu avis dit avant le Next, &#231;a fonctionne. Encore merci<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />


 


Private Sub Command2_Click()


    Dim rstCat As Recordset, maBD As Database, I As Integer


    Set maBD = OpenDatabase("c:\bd1.mdb")


    Set rstCat = maBD.OpenRecordset("SELECT * FROM Table1")


    With rstCat


        For I = 0 To Combo1.ListCount - 1


            .AddNew


            !cat = Combo1.List(I)


            .Update


        Next I


        '.Update


    End With


End Sub

Guy FALESSE

Comment écrire le contenu d'un comboBox dans une table Access

8 réponses

Discussions similaires