Résultats de 1 à 4 sur 4

Sujet : Type définie par l'utilisateur non défin

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    10

    Type définie par l'utilisateur non défin

    Bonjour tout le monde,

    J\'ai avec l\'aide d\'un Ami créer un code qui me permet d\'insérer des champs d\'une requête access vers un doc Excel. Le problème est que quand je l\'ouvre (appuiez sur play) il me met \"Type définie par l\'utilisateur non définie\" et il me met en jaune ceci : bds As DAO.Database

    Je me demande si je ne dois pas ajouter la bibliothèque d\'objets qui me permettrait d\'utililser DAO ? si oui quel est cette bibliothèque ?

    Merci d\'avance pour votre aide
    David

    Code:
    Sub ADOOpenRecordset()
        Dim ValSQL As String
    Dim Numéro
    Dim bds As DAO.Database, rst As DAO.Recordset
    Dim appexcel As Excel.Application
    Dim wbexcel As Excel.Workbook
    \'La déclaration Numéro va nous servir pour connaître le numéro de matricule.
    
    
    Set appexcel = CreateObject(\"Excel.Application\")
        appexcel.Visible = True
        Set wbexcel = appexcel.Workbooks.Open(\"Z:\\ACCESS/Pharmacie.mdb\")
        
        \'Voici la programmation de la boite servant à demander le numéro de matricule:
        
        Numéro = InputBox(\"Quel est le numéro de l\'étudiant?\")
        
        
        \'Maintenant on attaque la programmation de ta requête:
    
        ValSQL = \"SELECT *\" _
    & \"FROM [rqt Pharma 1 1998] LEFT JOIN [rqt Cursus] ON [rqt Pharma 1 1998].Matricule = [rqt Cursus].Matricule\" _
    & \"WHERE ([rqt Pharma 1 1998].Matricule = \' \" & Numéro & \" \');\"
    
    \'Donc en décrypter la requêt sélectionne dans ta requête pharma 1 1998, l\'enregistrement qui as
    \'le numéro de matricule correspondant au numéro taper.
    
    \'Voici le code qui permet de lancer ta requête
    Set bds = CurrentDb
    Set rst = bds.OpenRecordset(ValSQL)
    
    \'Ensuite nous allons se placer sur le premier enregistrement sélectionner par ta requête:
    
    rst.MoveFirst
    
    \'On appelle la fauille du fichier ouvert:
    
    appexcel.Sheets(\"Feuil1\").Select
    
    \'Et il ne rest plus qu\'a remplir le fichier Excel:
    appexcel.Cells(1, 1) = rst2![nomduchamp]
            appexcel.Cells(1, 2) = rst2![nomduchamp]
           appexcel.Cells(1, 3) = rst2![nomduchamp]
           
           \'Attention la cellule (1,2) correpond à la cellule (B,1); enfin je crois...
    
    
    End Sub

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    245
    Bonjour,
    Vous avez oublier de référencer votre projet. Il faut aller au menu projet-->Référence-->Microsoft Dao 3.51 si votre base de données est du format Access 97 et Microsoft Dao 3.6 pour Access 2000.
    :
    La réussite est au bout de l'effort

  3. #3
    Membre MP
    Inscrit
    août 2013
    Messages
    18
    Salut !

    Juste un petit truc, évite les accents comme \"numéro\" dans ton code...

    @ +
    bonne prog :wink:

  4. #4
    Visiteur MP
    Visiteur MP
    Un grand merci à vous deux !!!

    Ca fonctionne super bien maintenant

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é