Discussion :

[Mr T 94]

Salut, je rencontre un soucis avec une procédure que m'avait donnée LedZeppII et qui fonctionne très bien dans ma base.
Je l'ai donc repris dans une autre, et là, Erreur : "Type défini par l'utilisateur non défini" Pourtant, la situation est la même.
Il s'agit de passer à l'enregistrement suivant sans tomber sur un nouveau (par bouton perso).
J'ai repris le même code (juste changé le nom de mon bouton) et : Erreur.
Voici 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
Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click
 
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
If Not (rs.BOF And rs.EOF) Then
   rs.MoveLast
   If Me.CurrentRecord < rs.RecordCount Then DoCmd.RunCommand acCmdRecordsGoToNext
End If
 
Exit_Commande15_Click:
    Exit Sub
 
Err_Commande15_Click:
    MsgBox Err.Description
    Resume Exit_Commande15_Click
 
End Sub

Il me surligne "Private Sub Commande15_Click()"
Commande15 est bien le nom de mon bouton.

[Invité]

Bonjour

Cela arrive souvent lorsque l'on a fait du copier-coller et que l'on change manuellement le nom d'un contrôle comme c'est ton cas.

Fais un copier de ton code sans les procédures

Code :

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

Private Sub Commande15_Click()

et

Code :

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

End Sub

Supprimes l'ensemble.
Va sur ton formulaire en mode création, clique droit sur ton bouton, et sélectionnes procédure évènementielle, et ensuite Colle ton code à l'intérieur de la nouvelle procédure.

Et un conseil, donne un nom correct à tes contrôles, ne jamais laissé le nom donné par Access, car tu reviendras sur ton code plus tard, tu ne seras plus à quoi cela correspond.

Philippe

[Mr T 94]

Fais un copier de ton code sans les procédures

En fait, c'est bien comme ça que j'ai procédé, j'avais déjà mon bouton avec le code associé (conçu avec l'assistant automatique) et j'ai remplacé l'intérieure de la procédure par copier - collé.
J'avais fait pareil la première fois (sur l'autre base) et ça avais bien marché mais pas là. D'où mon étonnement.

[Mr T 94]

Alors, personne qui ait une idée ?

[LedZeppII]

Bonsoir,

ça vient peut-être de la déclaration

Code :

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

Dim rs As DAO.Recordset

Vérifie si tu as bien une référence à "Microsoft DAO x.x Object Library".
Elle est peut-être décochée.

A+

[Jacques-Henri]

Bonsoir,
J'ai déjà rencontré ce problème en utilisant la fonction copier - coller .Ce que j'ai fait : j'ai ajouté un nouveau bouton et j'ai tout simplement recopié le même code et tout est rentré dans l'ordre. Donc je rejoins l'avis de Philippe JOCHMANS, je rejoins également celui de LedZeppII où (pas dans le même cas) une référence était décochée. Je suis sûr que la solution n'est pas bien loin.Bonne chance

[Mr T 94]

Vérifie si tu as bien une référence à "Microsoft DAO x.x Object Library".
Elle est peut-être décochée.
A+

Bien vu LedZeppII, du 1er coup, pas de DAO cochée, Voici un problème résolu de belle manière (et pour pas un rond). Merci encore et merci à tous les autres.