Discussion :

[stefchar]

Bonjour,

Je suis occupé à passer une base tournant sous W3.11 avec access 97 en version 2003.

Dans le code VBA, j'ai une erreur dans la ligne "Dim enreg As Dynaset"
Le message d'erreur est "Erreur de compilation: Type défini par l'utilisateur non défini"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function CapteurChercher()
    Dim bd As Database
    Dim enreg As Dynaset
    Dim Sql As String
    Dim Nu As Integer
    Dim Ta As Integer
    Dim Ty As Integer
    Dim Pr As Integer
    Dim Ec As Integer
    Dim essai As String
    Dim MaRequête As QueryDef

    Nu = 1
    Ta = 1
    Ty = 1
    Pr = 1
    Ec = 1

    Set bd = CurrentDb()
    If ((IsNull(Forms![CapteurChercher]![NumeroISO])) Or (Forms![CapteurChercher]![NumeroISO] = "")) Then
      Nu = 0
    End If
    If ((IsNull(Forms![CapteurChercher]![Tag])) Or (Forms![CapteurChercher]![Tag] = "")) Then
      Ta = 0

Qu'est ce que je dois faire ???

Merci

STEF

[FreeAccess]

Bonjour,

Qu'est ce que je dois faire ???

Lire ou relire le tuto...
Définition et manipulation de données avec DAO

....et particulièrement le paragraphe 1.2. Introduction

...cela devrait résoudre ton problème....

[stefchar]

Bonjour !

Merci pour votre réponse, mais j'avais déjà installé cette référence DAO 3.6 object library

Mais ca n'a rien changé à mon soucis...

Merci

[keita]

bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim enreg As Dynaset

Le type Dynaset n"existe pas.si c'est pour les jeux d'enregistrement;alors:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim enreg As Dao.Recordset

@+

[stefchar]

J'ai un arrêt sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set enregdonnées = bd.CreateDynaset(Sql)

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bd.CreateDynaset(Sql)

en surligné

[loufab]

Bonjour,

Il me semble que tu devrais REELLEMENT suivre le JUDICIEUX conseil de FREEACCESS.

Cordialement,

[stefchar]

Je n'ai fais que suivre ce que keita m'a dis...

[loufab]

A ta guise...

La solution de facilité n'est pas toujours la plus rapide.

[keita]

bonjour

Je n'ai fais que suivre ce que keita m'a dis...

Mais non stefchar, l'interet du forum est que tu as plusieurs personnes qui se penchent sur ton probleme. et donc toutes les voies sont à explorer;tu apprendras beaucoup plus rapidement comme ça.

@+

[stefchar]

Bonjour !

Je sais que c'est compliqué mais je n'utilise pour ainsi dire jamais de module quand je fais des petites BDD. J'utilise plus des macros et du VBA sous Access 2003.

Le soucis est que cette base viens d'une version 97 et je ne sais pas du tout à quoi correspondent les différentes instructions qui posent problème.

Merci pour votre aide

STEF

[stefchar]

J'ai des soucis avec les instructions suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
- bd.CreateDynaset
- bd.CreateQueryDef
- bd.DeleteQueryDef

Merci

[stefchar]

Bonjour,

J'ai trouvé une partie des instructions que je cherchais

Pourriez-vous me dire ce qui cloche dans la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NouvelleDate = DateAdd("m", enregdonnées.Periode, enregdonnées.Echeance)

Quand je veux compiler le code, il génère une erreur sur .Periode en disant "Erreur de compilation Membre de méthode ou de donnée introuvable"

Merci pour votre aide

STEF

[loufab]

Bonjour,

Comme le message le spécifie :

Periode n'existe pas dans enregdonnées

Cordialement,