Discussion :

[ip203]

Bonjour,

J'ai un formulaire dans lequel pour la fonction current() je rentre le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
    Dim Ctrl As Control


    If (Me.NewRecord) Then
       
        For Each Ctrl In Me.Controls

J'ai une erreur de compilation (sur ce qui est en gras):

Type défini par l'utilisateur non défini

Ce que je ne comprend pas c'est que dans d'autre base cela fonctionne mais pas là !!!

Merci pour votre aide !

[Demco]

Pensez a preciser la ligne ou se situe l'erreur.

[Ericka]

Bonjour,

Si tu as ouvert une autre base, peut-être n'as tu pas coché la référence dont tu as besoin pour que ton code fonctionne?!

Code :

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

outils --> Références --> Microsoft DAO 3.6 Object Library

[ip203]

Merci pour ta réponse mais c'est déjà coché...

[ip203]

Bon ça y est j'ai trouvé:
J'ai une ancienne version de MouseWhell (celle qui faisait qu'on n'avait jamais la main dans les sous formulaire). Je l'ai supprimé et tout fonctionne.

Merci

[oscardayallo]

Bonjour tout le monde,

Je vois que la date du message n'est pas récente mais je pense que c'est le meilleur endroit pour poster ce message :

J'ai un module ou je cherche à ouvrir un fichier excel ( ce module est associé à un bouton dans un dformulaires access ), et moi aussi j'ai le message suivant : type defini par l'utilisateur non défini.
J'ai essayé de trouver outils => références sous access et excel et je n'ai pas trouver.
Merci de votre aide éventuel :

Pour info voici Mon code ( deja piquer sur le forum )
Function export_excel()
exportation
End Function
Sub exportation()

Dim xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet

Set xl = New Excel.Application
xl.Visible = True
Set Classeur = xl.Workbooks.Open("E:\Dir DIS\........\travail provisoire test\accueil_allocation_ressource")
Set Feuille = Classeur.Worksheets("Feuil1")

End Sub

Bonjour,

Si tu as ouvert une autre base, peut-être n'as tu pas coché la référence dont tu as besoin pour que ton code fonctionne?!

Code :

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

outils --> Références --> Microsoft DAO 3.6 Object Library