probleme de Recordset

**clao260** · 25/01/2008, 14h19

Bonjour à tous,

Voila je vous expose mon petit soucis. Je viens de créer un recordset pour tester une table et verifier que j'ai bien saisi certain elements dans cette table avant d'executer une requete.

Le probleme qui se pose est que lorsque j'appuie sur le bouton pour executer mon code j'aime une msgbox qui me dit "Objet Requis"

mon code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
 
Private Sub Commande56_Click()
On Error GoTo Err_Commande56_Click
 
Dim bd As DAO.Database
Dim Depa As DAO.Recordset
Dim PDC_IDC, TContrat, BaieT, cle As Integer
 
Set bd = CurrentDb()
Set Depa = bd.OpenRecordset("Depannage", dbOpenTable)
 
Depa.MoveFirst
Do While Not Depa.EOF
 
        If (Depa("N° PDC") Or Depa("IDC")) Is Null Then
        PDC_IDC = 1
        End If
 
        If (Depa("Type de contrat")) Is Null Then
        TContrat = 1
        End If
 
        If (Depa("Baie")) Is Null Then
        BaieT = 1
        End If
 
        If (Depa("Cle Maitre / Admin") Or Depa("Cle Esclave / Exploit") Or Depa("Cle Cryptage / Client")) Is Null Then
        cle = 1
        End If
 
        If (Depa("DTR")) Is Null Then
        BaieT = 1
        End If
 
        Loop
 
Depa.Close
bd.Close
 
If (PDC_IDC = 1) Then
MsgBox ("Attention ! Au moins une ligne n'a ni PDC, ni IDC. Merci de corriger")
Exit Sub
End If
 
If (TContrat = 1) Then
MsgBox "Attention, Au moins une ligne n'a pas de Type Contrat renseigné. Merci de corriger"
Exit Sub
End If
 
If (cle = 1) Then
MsgBox ("Au moins une clé d'identification n'est pas renseignée. Merci de corriger")
Exit Sub
End If
 
    DoCmd.RunMacro "DepannageAno"
    DoCmd.OpenQuery "Ajout_Cocc_Depannage_Ano_213"
 
Exit_Commande56_Click:
    Exit Sub
 
Err_Commande56_Click:
    MsgBox Err.Description
    Resume Exit_Commande56_Click
 
End Sub

Quelqu'un a t il une idée, je seche...

Merci à tous

**Jean-Philippe André** · 25/01/2008, 14h23

salut,
par faignantise, j'aurais fait plus simple :
en remplacant :

Code :

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

Set Depa = bd.OpenRecordset("Depannage", dbOpenTable)

par

Code :

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

Set Depa = bd.OpenRecordset("SELECT * FROM Depannage")

**ttfme** · 25/01/2008, 14h45

Bonjour, étant débutant et sur le même type de code que toi, tu sais préciser la ligne qui pose problème quand tu debug. Peut-être que j'ai eu ça aussi

merci d'avance

**clao260** · 28/01/2008, 11h30

le probleme c'est qu'aucune des lignes de ce code ne poses problème.

ensuite j'ai modifier ce que tu m'a proposé comme solution jpcheck et ce n'est pas mieux. J'ai toujours le "Objet Requis" lorsque j'appuie sur le bouton qui est censé déclencher le processus.

**Jean-Philippe André** · 28/01/2008, 11h55

bonjour, regarde en parcourant le code en mode pas à pas (F8) pour voir jusqu'où le code tourne sans poser de pb...

**clao260** · 29/01/2008, 09h48

Hum excuse moi, je suis peut etre tres bête mais en faisant F8 dans mon code ca ne fait absolument rien a par un petit "bip" sonore.

J'ai toujours été obligé d'avoir un code irreprochable ou presque dès le depart.

**Jean-Philippe André** · 29/01/2008, 09h59

ce n'est pas une question d'être très bête ou pas, c'est juste qu'il nous faut savoir à quel niveau de ton code ca te plante. donc il faut que tu puisses nous dir la ligne du code stp

**vodiem** · 29/01/2008, 13h51

clao260,
ne prends pas mal les conseils qu'ils te donnent.
on est là pour t'aider, pas pour te juger.

si tu désactivais la gestion d'erreur:

Code :

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

'On Error GoTo Err_Commande56_Click

tu pourrais leur répondre.

au lieu de 'Is Null' il faut 'IsNull':

Code :

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

If (Depa("N° PDC") Or Depa("IDC")) Is Null Then

met:

Code :

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

If IsNull(Depa("N° PDC") Or Depa("IDC")) Then

à faire pour l'ensemble du code.

**Alexandre Sahli** · 29/01/2008, 14h08

bonjour,

Ces questions me semblent intéressantes, mais j'aimerais peut être poser une question de fond avant de programmer.
Il me semble en effet qu'il serait plus intéressant de tester la présence ou non de donnnée lors de l'introduction de ces dernières et non pas lorsque tout est rentrer.
D'autant plus si tu es débutant c'est nécessaire de commencer par le bon chemin.
bon courrage dans tous les cas.

**vodiem** · 29/01/2008, 14h16

Code :

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

Do While Not Depa.EOF

et il n'a pas dit qu'il est débutant.

**clao260** · 29/01/2008, 18h31

bonsoir a tous,

hum excusez moi je pense que nous nous sommes mal compris

ne prends pas mal les conseils qu'ils te donnent.
on est là pour t'aider, pas pour te juger.

Je ne prends vraiment pas mal, bien au contraire, ca serai idiot de ma part. Internet fais tres mal passer le ton que l'on veut donner à une phrase.

Néanmoins je n'ai vraiment jamais pu fais tourner mon code en pas à pas (F8) j'ai toujours eu un bip sonore lorsque je voulais le faire dans access. C'est pour ça que je disais " je suis peut être tres bête", et je me doute que ca n'aide pas pour la resolution de mon probleme.

Il me semble en effet qu'il serait plus intéressant de tester la présence ou non de donnnée lors de l'introduction de ces dernières et non pas lorsque tout est rentrer.

Ce code devrait justement me permettre d'eviter l'envoi de données dans une table d'autre autre base de données si celles ci ne sont pas totalement complétée. J'ai donc une msgbox pour chaque type de donnée "obligatoire" oubliée. J'essais donc de faire tourner mon code avec une de ces données en moins.

et il n'a pas dit qu'il est débutant.

Effectivement j'ai tout de même quelques notions de programmation ( C, java ) mais peu de VBA à mon actif.

En tout cas merci à tous pour votre aide

**=JBO=** · 29/01/2008, 20h09

Bonjour le forum,

J'ai vu un truc qui ne me semble pas du tout "orthodoxe"...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande56_Click()
On Error GoTo Err_Commande56_Click

Dim bd As DAO.Database
Dim Depa As DAO.Recordset
Dim PDC_IDC, TContrat, BaieT, cle As Integer

Set bd = CurrentDb()
    ...
bd.Close
    ...
End Sub

Une tentative de vermeture de la CurrentDB, ce n'est pas du tout indiqué !!!
Bill va en être tout retourné...

Veux-tu bien vite supprimer cette ligne !
_

**=JBO=** · 29/01/2008, 20h13

Envoyé par vodiem

Code :

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

Do While Not Depa.EOF

et il n'a pas dit qu'il est débutant.

Peut être qu'un débutant aurait écrit ceci:

Code :

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

Do Until Depa.EOF

____

________

____________

**vodiem** · 29/01/2008, 21h07

=JBO= >

Une tentative de vermeture de la CurrentDB, ce n'est pas du tout indiqué !!!
Bill va en être tout retourné...

je me permet de te contredire: il ferme l'instance

Code :

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

1
2
3
4
CurrentDb.Close                                         'tentative mais echoue
bd.Close                                                'ferme l'instance
rs = CurrentDb.OpenRecordset("select * from matable")   '> fonctionne encore
rs = bd.OpenRecordset("select * from matable")          '> échoue: objet non défini

Peut être qu'un débutant aurait écrit ceci:

Code :

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

Do Until Depa.EOF

les deux syntaxes sont corrects: il n'y a pas de raison de faire du favoritisme.

il n'a pas dit qu'il est débutant, mais il n'a pas dit qu'il est un pro.

=JBO= tu es si brillant d'habitude.

**clao260** · 30/01/2008, 10h12

Bonjour à tous,

Alors voila où j'en suis...

Sur tes conseils vodiem j'ai desactivé la gestion d'erreur sur ce code, et remis les "isnull" en debut des "If" car il y avait effectivement un probleme la dessus.

Par contre, excellente nouvelle, j'ai fais tourner mon code en pas à pas et je sais qu'il reste "coincé" en boucle dans le

Code :

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

Do while not ... loop

Et j'ai essayé avec le

Code :

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

Do Until ... Loop

mais ca n'a rien de plus concluant.
Pour info la table qui contient les données testées contient trois lignes remplies.

**vodiem** · 30/01/2008, 10h22

tu boucle sur le même enregistrement.

**clao260** · 30/01/2008, 16h59

hum ouais mais la je ne sais vraiment pas comment le forcer a sortir de son enregistrement.

**vodiem** · 30/01/2008, 17h01

désolé, je pensais évident:

Code :

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

Depa.MoveNext

**ttfme** · 30/01/2008, 22h33

bonjour à tous,
j'ai commencer la programmation vba il y a une semaine alors, j'ai pas encore la même vision que vous.
On va peut-être trouver ma réflexion ridicule vu le peu d'expérience mais je me lance.
Dans la boucle, c'est normal que tu ne fasses pas une relecture de ton recordset?
du style
lecture recordset
do while
traitement
lecture recordset....
loop

sinon, je sais pas faut voir les autres avis mais avec opentable on peut modifier les données du recordset?? moi, j'ai fait +/- le même avec opendynaset.

voilà vous pouvez rayer cette intervention du forum si je suis complètement à côté.

bonne programmation à tous

**Heureux-oli** · 30/01/2008, 23h08

Perso, ce n'est pas la voie que j'utilise.

Code :

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

1
2
3
4
While not RS.EOF
   Mon traitement
RS.MoveNext
Wend

Ce qui donnerait ceci

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub Commande56_Click()
On Error GoTo Err_Commande56_Click
 
Dim bd As DAO.Database
Dim Depa As DAO.Recordset
Dim PDC_IDC, TContrat, BaieT, cle As Integer
Dim SQLDepa as String
 
SQLDepa = "Select * from Depannage"
 
Set bd = CurrentDb()
Set Depa = bd.OpenRecordset(SQLDepa)
 
Depa.MoveFirst
While Not Depa.EOF
 
        If (Depa("N° PDC") Or Depa("IDC")) Is Null Then
        PDC_IDC = 1
        End If
 
        If (Depa("Type de contrat")) Is Null Then
        TContrat = 1
        End If
 
        If (Depa("Baie")) Is Null Then
        BaieT = 1
        End If
 
        If (Depa("Cle Maitre / Admin") Or Depa("Cle Esclave / Exploit") Or Depa("Cle Cryptage / Client")) Is Null Then
        cle = 1
        End If
 
        If (Depa("DTR")) Is Null Then
        BaieT = 1
        End If
 
  Depa.MoveNext
Wend
 
Depa.Close
bd.Close
 
If (PDC_IDC = 1) Then
MsgBox ("Attention ! Au moins une ligne n'a ni PDC, ni IDC. Merci de corriger")
Exit Sub
End If
 
If (TContrat = 1) Then
MsgBox "Attention, Au moins une ligne n'a pas de Type Contrat renseigné. Merci de corriger"
Exit Sub
End If
 
If (cle = 1) Then
MsgBox ("Au moins une clé d'identification n'est pas renseignée. Merci de corriger")
Exit Sub
End If
 
    DoCmd.RunMacro "DepannageAno"
    DoCmd.OpenQuery "Ajout_Cocc_Depannage_Ano_213"
 
Exit_Commande56_Click:
    Exit Sub
 
Err_Commande56_Click:
    MsgBox Err.Description
    Resume Exit_Commande56_Click
 
End Sub

probleme de Recordset

VBA Access

Discussions similaires

Partager

Partager