Discussion :

[clao260]

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é]

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]

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]

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é]

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

[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.

[=JBO=]

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