probleme de Recordset

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

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

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

Code:

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

par

Code:

Set Depa = bd.OpenRecordset("SELECT * FROM Depannage")
25/01/2008, 14h45
ttfme

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
28/01/2008, 11h30
clao260

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.
28/01/2008, 11h55
Jean-Philippe André

bonjour, regarde en parcourant le code en mode pas à pas (F8) pour voir jusqu'où le code tourne sans poser de pb...
29/01/2008, 09h48
clao260

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.
29/01/2008, 09h59
Jean-Philippe André

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 :aie:
29/01/2008, 13h51
vodiem

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:

'On Error GoTo Err_Commande56_Click

tu pourrais leur répondre.;)

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

Code:

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

met:

Code:

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

à faire pour l'ensemble du code.
;)
29/01/2008, 14h08
Alexandre Sahli

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.
29/01/2008, 14h16
vodiem

Code:

Do While Not Depa.EOF

;)
et il n'a pas dit qu'il est débutant.;)
29/01/2008, 18h31
clao260

bonsoir a tous,

hum excusez moi je pense que nous nous sommes mal compris

Citation:

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.

Citation:

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.

Citation:

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

Bonjour le forum,

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

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 !
_

29/01/2008, 20h13
=JBO=

Citation:

Envoyé par vodiem

Code:

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:

Do Until Depa.EOF

:mouarf:
____;)
________:oops:
____________:aie:

=JBO= >

Citation:

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:

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
Citation:

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

Code:

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. ;)

30/01/2008, 10h12
clao260

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:

Do while not ... loop

Et j'ai essayé avec le

Code:

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.
30/01/2008, 10h22
vodiem

tu boucle sur le même enregistrement. ;)
30/01/2008, 16h59
clao260

hum ouais mais la je ne sais vraiment pas comment le forcer a sortir de son enregistrement.
30/01/2008, 17h01
vodiem

désolé, je pensais évident:

Code:

Depa.MoveNext

;)
30/01/2008, 22h33
ttfme

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

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

Code:

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

Ce qui donnerait ceci

Code:

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

Voir 40 message(s) de cette discussion en une page