les Pros du VB HELP!!!

Question

Bon c'est encore moi je sais dsl de polluer le forum avec des kestion a la con mais ca fé ke depui 1 semaine ke je commence le VB alors vp soyez indulgent :D
Alors voila j'ai une form sur cette form j'ai une listeview(Listeview1) et je charge une table client.
Kan je clik sur une ligne ca saffiche dans des textbox et kan je rempli manuellement les champs et ke je clik sur valider, je voudrais ca enregistre malheuresement c'est ici ke g un prob si vous pouviez me trouver la faute svp ...j'ai mi une fleche (=>) ou ya la faute Merci 

4L!@$

Private Sub btnValider_Click()If Trim(txtNom.Text) "" Or Trim(txtAdresse.Text) "" Or Trim(txtCp.Text) = "" Or Trim(txtVille.Text) = "" Or Trim(txtTel.Text) = "" Then
        MsgBox "Veuillez remplir tous les champs (Nom,Adresse,CP,Ville,Tel)", vbExclamation, "Avertissement"
        Else
        Dim IdTag As Long
        If Not ListeView1.SelectedItem Is Nothing Then
                IdTag = ListeView1.SelectedItem.Tag
                Set Rst = Db.OpenRecordset("select * from Clients where [N°Client]=" & IdTag, dbOpenSnapshot)
                Rst.Edit
                Else
                   'Ajout du client dans la liste'
                   Set Rst = Db.OpenRecordset("select * from Clients", dbOpenDynaset)
                   Rst.AddNew
                End If
           'Remplissage des champs dans la base'
    =>   Rst!txtNom = Trim(txtNom.Text)
           Rst!txtAdresse = Trim(txtAdresse.Text)
           Rst!txtVille = Trim(txtVille.Text)
           Rst!txtCp = Trim(txtCp.Text)
           Rst!txtTel = Trim(txtTel.Text)
           Rst!txtFax = Trim(txtFax.Text)
           Rst.Update
           Rst.Close
           ChargeListeViews ListeView1
           txtNom.Text = ""
           txtAdresse.Text = ""
           txtCp.Text = ""
           txtVille.Text = ""
           txtTel.Text = ""
           txtFax.Text = ""
           'Mise en place du curseur'
           txtNom.SetFocus
           MsgBox "Modification effectuée", vbInformation, "Information"
        End If
End Sub

philoo91 · Answer

Salut,
C'est quoi la faute? Si c'est à l'execution donne le code erreur

alias666 · Answer

Erreur d'execution '3265'

Element non trouvé dans cette collection

> Rst!txtNom  Trim(txtNom.Text)

la faute est a cette ligne la

nhervagault · Answer

regarde les champs de ton recordset

txtNom ne doit pas etre dedans 

regardes si avec
select txtNom from Clients

dans access si ta requete fonctionne

bonne prog

Les Pros du VB HELP!!!

3 réponses

Discussions similaires