bonjour, j'ai rentré le code suivant dans un module qui est executé par une
macro autoexec mais ca ne marche pas .
quand j'execute la macro une fenetre s'ouvre et me dit qu'il ya une erreur
de compilation : type defini par l'utilisateur non defini
les mots Function DesactiveShift() apparaissent sur un fond jaune et les
mots
Dim DB As Database apparaissent sous un fond bleu.
Merci de votre aide
Function DesactiveShift()
On Error GoTo errdesactiveshift
Dim DB As Database
Dim prop As Property
Const conPropPasTrouve = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPassKey") = False
Exit Function
errdesactiveshift:
If Err.Number = conPropPasTrouve Then
Set prop = DB.CreateProperty("AllowbypassKey", dbBoolean, False)
DB.Properties.Append prop
Resume Next
Else
MsgBox "Erreur: " & Err.Description
Exit Function
End If
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Walsh
Salut,
Il manque probablement une référence à DAO (Tools|References ... et y cocher la référence à "Microsoft DAO 3.6 Object Library". Le code actuel ne trouve probablement pas ce que c'est qu'un objet "Database". Il faudra, en plus, faire
Dim prop As DAO.Property
pour lever l'indétermination ( car il y a DAO.Property et ADODB.Property, entre autres, maintenant que DAO fait parti des références).
Espérant être utile, Vanderghast, Access MVP
"erm1" wrote in message news:40829c0d$0$19498$
bonjour, j'ai rentré le code suivant dans un module qui est executé par une
macro autoexec mais ca ne marche pas .
quand j'execute la macro une fenetre s'ouvre et me dit qu'il ya une erreur de compilation : type defini par l'utilisateur non defini
les mots Function DesactiveShift() apparaissent sur un fond jaune et les mots Dim DB As Database apparaissent sous un fond bleu.
Merci de votre aide
Function DesactiveShift() On Error GoTo errdesactiveshift Dim DB As Database Dim prop As Property Const conPropPasTrouve = 3270 Set DB = CurrentDb() DB.Properties("AllowByPassKey") = False Exit Function errdesactiveshift: If Err.Number = conPropPasTrouve Then Set prop = DB.CreateProperty("AllowbypassKey", dbBoolean, False) DB.Properties.Append prop Resume Next Else MsgBox "Erreur: " & Err.Description Exit Function End If End Function
Salut,
Il manque probablement une référence à DAO (Tools|References ... et
y cocher la référence à "Microsoft DAO 3.6 Object Library". Le code actuel
ne trouve probablement pas ce que c'est qu'un objet "Database". Il faudra,
en plus, faire
Dim prop As DAO.Property
pour lever l'indétermination ( car il y a DAO.Property et ADODB.Property,
entre autres, maintenant que DAO fait parti des références).
Espérant être utile,
Vanderghast, Access MVP
"erm1" <lesremonteesmecaniques@fr.st> wrote in message
news:40829c0d$0$19498$636a15ce@news.free.fr...
bonjour, j'ai rentré le code suivant dans un module qui est executé par
une
macro autoexec mais ca ne marche pas .
quand j'execute la macro une fenetre s'ouvre et me dit qu'il ya une erreur
de compilation : type defini par l'utilisateur non defini
les mots Function DesactiveShift() apparaissent sur un fond jaune et les
mots
Dim DB As Database apparaissent sous un fond bleu.
Merci de votre aide
Function DesactiveShift()
On Error GoTo errdesactiveshift
Dim DB As Database
Dim prop As Property
Const conPropPasTrouve = 3270
Set DB = CurrentDb()
DB.Properties("AllowByPassKey") = False
Exit Function
errdesactiveshift:
If Err.Number = conPropPasTrouve Then
Set prop = DB.CreateProperty("AllowbypassKey", dbBoolean, False)
DB.Properties.Append prop
Resume Next
Else
MsgBox "Erreur: " & Err.Description
Exit Function
End If
End Function
Il manque probablement une référence à DAO (Tools|References ... et y cocher la référence à "Microsoft DAO 3.6 Object Library". Le code actuel ne trouve probablement pas ce que c'est qu'un objet "Database". Il faudra, en plus, faire
Dim prop As DAO.Property
pour lever l'indétermination ( car il y a DAO.Property et ADODB.Property, entre autres, maintenant que DAO fait parti des références).
Espérant être utile, Vanderghast, Access MVP
"erm1" wrote in message news:40829c0d$0$19498$
bonjour, j'ai rentré le code suivant dans un module qui est executé par une
macro autoexec mais ca ne marche pas .
quand j'execute la macro une fenetre s'ouvre et me dit qu'il ya une erreur de compilation : type defini par l'utilisateur non defini
les mots Function DesactiveShift() apparaissent sur un fond jaune et les mots Dim DB As Database apparaissent sous un fond bleu.
Merci de votre aide
Function DesactiveShift() On Error GoTo errdesactiveshift Dim DB As Database Dim prop As Property Const conPropPasTrouve = 3270 Set DB = CurrentDb() DB.Properties("AllowByPassKey") = False Exit Function errdesactiveshift: If Err.Number = conPropPasTrouve Then Set prop = DB.CreateProperty("AllowbypassKey", dbBoolean, False) DB.Properties.Append prop Resume Next Else MsgBox "Erreur: " & Err.Description Exit Function End If End Function
