j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002).
Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String)
As Integer
Dim grp As Group
Dim W As Integer
On Error GoTo IsUsrInGrp_Err
IsUsrInGrp = False
sUser = Trim(sUser): sGroup = Trim(sGroup)
If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err
Set grp = DBEngine.Workspaces(0).Groups(sGroup)
For W = 0 To grp.Users.count - 1
If grp.Users(W).Name = sUser Then
IsUsrInGrp = True
Exit For
End If
Next W
IsUsrInGrp_Exit:
Exit Function
IsUsrInGrp_Err:
IsUsrInGrp = False
Resume IsUsrInGrp_Exit
End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP
Vous pouvez corriger pour version Xp
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
Gafish
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqbo4$7gi$1@s1.news.oleane.net...
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version
Access
97 ensuite faire le conversiteur vers version XP (2002).
Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String)
As Integer
Dim grp As Group
Dim W As Integer
On Error GoTo IsUsrInGrp_Err
IsUsrInGrp = False
sUser = Trim(sUser): sGroup = Trim(sGroup)
If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err
Set grp = DBEngine.Workspaces(0).Groups(sGroup)
For W = 0 To grp.Users.count - 1
If grp.Users(W).Name = sUser Then
IsUsrInGrp = True
Exit For
End If
Next W
IsUsrInGrp_Exit:
Exit Function
IsUsrInGrp_Err:
IsUsrInGrp = False
Resume IsUsrInGrp_Exit
End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP
Vous pouvez corriger pour version Xp
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
fujitsuchaos
C'est Message suivante :
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
C'est Message suivante :
Erreur de compilation:
Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String)
As Integer
Dim grp As Group
........
Marco
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
eEbZ%23eSCFHA.936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqbo4$7gi$1@s1.news.oleane.net...
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version
Access
97 ensuite faire le conversiteur vers version XP (2002).
Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As
String) As Integer
Dim grp As Group
Dim W As Integer
On Error GoTo IsUsrInGrp_Err
IsUsrInGrp = False
sUser = Trim(sUser): sGroup = Trim(sGroup)
If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err
Set grp = DBEngine.Workspaces(0).Groups(sGroup)
For W = 0 To grp.Users.count - 1
If grp.Users(W).Name = sUser Then
IsUsrInGrp = True
Exit For
End If
Next W
IsUsrInGrp_Exit:
Exit Function
IsUsrInGrp_Err:
IsUsrInGrp = False
Resume IsUsrInGrp_Exit
End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP
Vous pouvez corriger pour version Xp
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
Gafish
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui renvoit l'erreur ? Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde si certaines sont marquées manquantes. Sinon regarde sur un poste ou ca fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqks1$f28$
C'est Message suivante :
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui
renvoit l'erreur ?
Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde si
certaines sont marquées manquantes. Sinon regarde sur un poste ou ca
fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqks1$f28$1@s1.news.oleane.net...
C'est Message suivante :
Erreur de compilation:
Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String)
As Integer
Dim grp As Group
........
Marco
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
eEbZ%23eSCFHA.936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqbo4$7gi$1@s1.news.oleane.net...
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version
Access
97 ensuite faire le conversiteur vers version XP (2002).
Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As
String) As Integer
Dim grp As Group
Dim W As Integer
On Error GoTo IsUsrInGrp_Err
IsUsrInGrp = False
sUser = Trim(sUser): sGroup = Trim(sGroup)
If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err
Set grp = DBEngine.Workspaces(0).Groups(sGroup)
For W = 0 To grp.Users.count - 1
If grp.Users(W).Name = sUser Then
IsUsrInGrp = True
Exit For
End If
Next W
IsUsrInGrp_Exit:
Exit Function
IsUsrInGrp_Err:
IsUsrInGrp = False
Resume IsUsrInGrp_Exit
End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP
Vous pouvez corriger pour version Xp
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui renvoit l'erreur ? Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde si certaines sont marquées manquantes. Sinon regarde sur un poste ou ca fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqks1$f28$
C'est Message suivante :
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
fujitsuchaos
Je regarde un autre poste version Access 97, il y a manque "Microsoft DAO 3.51 Object Library" Alors sur post Access Xp, je dois cochées "Microsoft DAO 3.6 Object Library" Après, ça marche Merci à Arnaud
Marco
"Gafish" a écrit dans le message de news:
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui renvoit l'erreur ? Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde si certaines sont marquées manquantes. Sinon regarde sur un poste ou ca fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqks1$f28$
C'est Message suivante :
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
Merci par avance pour votre aide
Marco
Je regarde un autre poste version Access 97, il y a manque "Microsoft DAO
3.51 Object Library"
Alors sur post Access Xp, je dois cochées "Microsoft DAO 3.6 Object Library"
Après, ça marche
Merci à Arnaud
Marco
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
ubCkPySCFHA.3840@tk2msftngp13.phx.gbl...
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui
renvoit l'erreur ?
Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde
si
certaines sont marquées manquantes. Sinon regarde sur un poste ou ca
fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqks1$f28$1@s1.news.oleane.net...
C'est Message suivante :
Erreur de compilation:
Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As
String)
As Integer
Dim grp As Group
........
Marco
"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
eEbZ%23eSCFHA.936@TK2MSFTNGP12.phx.gbl...
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" <fujitsuchaos@msn.com> a écrit dans le message news:
ctqbo4$7gi$1@s1.news.oleane.net...
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version
Access
97 ensuite faire le conversiteur vers version XP (2002).
Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As
String) As Integer
Dim grp As Group
Dim W As Integer
On Error GoTo IsUsrInGrp_Err
IsUsrInGrp = False
sUser = Trim(sUser): sGroup = Trim(sGroup)
If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err
Set grp = DBEngine.Workspaces(0).Groups(sGroup)
For W = 0 To grp.Users.count - 1
If grp.Users(W).Name = sUser Then
IsUsrInGrp = True
Exit For
End If
Next W
IsUsrInGrp_Exit:
Exit Function
IsUsrInGrp_Err:
IsUsrInGrp = False
Resume IsUsrInGrp_Exit
End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP
Vous pouvez corriger pour version Xp
Je regarde un autre poste version Access 97, il y a manque "Microsoft DAO 3.51 Object Library" Alors sur post Access Xp, je dois cochées "Microsoft DAO 3.6 Object Library" Après, ça marche Merci à Arnaud
Marco
"Gafish" a écrit dans le message de news:
Ok, il doit te manquer une référence, c'est la ligne dim grp as group qui renvoit l'erreur ? Quand tu es dans l'éditeur de code, vas dans outils...reference, regarde si certaines sont marquées manquantes. Sinon regarde sur un poste ou ca fonctionne la liste des références cochées.
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqks1$f28$
C'est Message suivante :
Erreur de compilation: Type défini par l'utilisateur non defini.
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer
Dim grp As Group ........
Marco
"Gafish" a écrit dans le message de news: eEbZ%
Bonjour,
Et quel est le message d'erreur ?
Arnaud
"fujitsuchaos" a écrit dans le message news: ctqbo4$7gi$
Bonjour
j'ai télécharge un fichier de mot de passe sous formulaire en version Access
97 ensuite faire le conversiteur vers version XP (2002). Je lance....mais il y a un message erreur suivante (celui version 97):
Private Function IsUsrInGrp(ByVal sUser As String, ByVal sGroup As String) As Integer Dim grp As Group Dim W As Integer On Error GoTo IsUsrInGrp_Err IsUsrInGrp = False sUser = Trim(sUser): sGroup = Trim(sGroup) If sUser = "" Or sGroup = "" Then GoTo IsUsrInGrp_Err Set grp = DBEngine.Workspaces(0).Groups(sGroup) For W = 0 To grp.Users.count - 1 If grp.Users(W).Name = sUser Then IsUsrInGrp = True Exit For End If Next W IsUsrInGrp_Exit: Exit Function IsUsrInGrp_Err: IsUsrInGrp = False Resume IsUsrInGrp_Exit End Function
Je pense que ce n'est pas la même programme de version entre 97 et XP Vous pouvez corriger pour version Xp
