Résultats de 1 à 4 sur 4

Sujet : ajouter un enregistrement

  1. #1
    Visiteur MP
    Visiteur MP

    ajouter un enregistrement

    bonsoir
    s\'il vous plait
    je voudrais ajouter un enregistrement avec addnew et ca me donne un mesage d\'erreur:


    Variable objet ou variable bloc With non définie (erreur 91)

    voici mon code visual basic6

    Private Sub b_valider_decharge_Click()
    Adodc_decharge.Recordset.MoveFirst
    Adodc_decharge.Recordset.Find \"NDecharge\" = (Adodc_decharge.Recordset.Fields(0)) + \"\"
    If Adodc_decharge.Recordset.EOF Then
    Adodc_decharge.Recordset.AddNew
    remplir
    Adodc_decharge.Recordset.Update
    End If


    End Sub



    Public Sub remplir()
    Adodc_decharge.Recordset.Fields(0) = Val(Adodc_decharge.Recordset.Fields(NDecharge)) + 1
    Adodc_decharge.Recordset.Fields(1) = Txt_date_sortie
    Adodc_decharge.Recordset.Fields(3) = Combo_inv.Text
    Adodc_decharge.Recordset.Fields(4) = Text_code_prof
    Adodc_decharge.Recordset.Fields(5) = Txt_observation
    Adodc_decharge.Recordset.Fields(6) = DataCombo_section


    End Sub


    j\'ai ecrit une procedure qui s\'appelle remplir.

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    1 169
    Un forum est dédié a Visual Basic.. Je laisse la parole aux expert pour répondre à ton probleme.

    Message à Admin : Une gestion de transfert des sujets serait utile dans des cas comme celui-ci :wink:
    A tous les membres, dite non à la (drogue...) sms-mania !

    Avant de poster, vérifiez si la réponse n'est pas dans la FAQ ou un tutorial.

    Je suis actuellement http://www.bencastricum.nl/msn/statu...83aaf40bdb.png sur MSN

  3. #3
    Membre MP
    Inscrit
    août 2013
    Messages
    2 538
    T\'inquiete pas lain, c\'est l\'avantage d\'être administrateur ou modérateur !! je l\'es mis en Visual Basic
    Admin retraité du site MoteurProg.Com" la meilleur façon de remercier est de pouvoir aider les autres à son tour !! "http://www.moteurprog.com

  4. #4
    Pour ajouter un enregistrementen VB, laissez que le code soit simple car si vous compliqué vous n\'allez pas vous en sortir, plus simplement possible:
    placer un Adodc et un bouton sur la feuille, double cliquer dessus et faite ce qui suit

    private sub bt_ajouter_click()
    dim rep
    rep=msgbox(\" voulez vous ajouter un enregistrement?\",vbinformation+vbyesno,\&quo t;Ajout\&quot
    if rep=vbno then
    exit sub
    else
    Adodc1.recordset.addnew
    end if
    end sub

    Ce code te permet plus facilement d\'enregistrer un nouvel enregistrement.

    Vous vous avez toujours des problemes écrivez moi sur japhsamba@yahoo.fr

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!