Discussion :

[yoann7]

Bonjour à tous,

mon problème est très simple, la ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myrecordset As New ADODB.Recordset
Dim madate As Date
 
myrecordset.ActiveConnection = cnn1
myrecordset.Open "select nNCR from tabNCR where nNCR='" & txtNCR.Value & "'"
 
Do While myrecordset.EOF = False
    If myrecordset.Fields(0) = txtNCR.Value Then
.
.
.

Et la ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myrecordset As New ADODB.Recordset
 
'ouverture du recordset pour tester si l'utilisateur qui ouvre l'application est déjà connu
myrecordset.ActiveConnection = cnn1
myrecordset.Open "select login from approv where login='" & Environ("USERNAME") & "'"
 
If IsNull(myrecordset.Fields(0)) Then
.
.
.

Il n'y a pas d'erreur à l'exécution mais en pas à pas quand on survole myrecordset c'est marqué

Code :

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

myrecordset = <variable objet ou variable de bloc with non définie>

Franchement je vois pas pourquoi ça ne marche pas, le code s'éxécute sur form_open, la référence ADO est bien coché...
Une idée ?

[binouzzz19]

Salut,

Perso, il n'y a rien qui me choque.
As-tu mis "Option Explicit" au début de ton module de code ?

Cordialement.

[EDIT] Sinon essaye de mettre

Code :

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

Dim cnn1 As New ADODB.Connection

à la place de

Code :

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

Dim cnn1 As ADODB.Connection

[yoann7]

Alors j'ai option compare database, j'ai essayé avec option explicit mais ça ne change rien...
en mettant

Code :

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

Dim cnn1 As New ADODB.Connection

Je me retrouve avec la même "erreur" que pour le recordset...
J'ai donc essayé d'enlever le new au recordset mais ça ne change rien, la le code génère une erreur d'éxécution 91 avec le même message que quand on survole.
Je comprend vraiment pas pourquoi ça ne marche pas, surtout que c'est un copié collé du code qui marche...

[binouzzz19]

Essaye de le faire en 2 lignes :

Code :

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

1
2
Dim myrecordset As ADODB.Recordset
Set myrecordset = New ADODB.Recordset

On ne sait jamais ... car là, je coince désolé ...

[yoann7]

Alors c'est bon ça marche ! Merci beaucoup
j'ai modifié aussi après ma façon de tester, peut être que ça venais de la aussi.