[Access] Attribution automatique d'une fiche
Fermé
ETSSieb
Messages postés
24
Date d'inscription
mercredi 28 avril 2010
Statut
Membre
Dernière intervention
16 juillet 2010
-
7 mai 2010 à 14:24
ETSSieb Messages postés 24 Date d'inscription mercredi 28 avril 2010 Statut Membre Dernière intervention 16 juillet 2010 - 10 mai 2010 à 11:02
ETSSieb Messages postés 24 Date d'inscription mercredi 28 avril 2010 Statut Membre Dernière intervention 16 juillet 2010 - 10 mai 2010 à 11:02
A voir également:
- [Access] Attribution automatique d'une fiche
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message automatique thunderbird - Guide
- Fiche de pointage - Télécharger - Tableur
- Logiciel de sauvegarde automatique gratuit - Guide
- Gmail libellé automatique - Guide
2 réponses
Utilisateur anonyme
7 mai 2010 à 15:22
7 mai 2010 à 15:22
Bonjour,
Dans la table qui stocke les données de ta fiche, tu ajoute un champs User_Open.
Dès qu'un utilisateur accède à une fiche, donc sur l'évènement Activation de ton formulaire, tu donnes à ce champs l'identification de ton User.
Sur le formulaire, tu filtres si ce champ est null, ou égal au User actuel.
Dès que ton utilisateur quitte une fiche, tu effaces l'indication de son nom.
Donc, sur form_current :
Docmd.RunSQL "UPDATE MaTabl SET USER_Open = Null WHERE User_Open = " & Environ("Username") & ";"
me!User_Open = Environ("Username")
ça devrait marcher.
Manu
Dans la table qui stocke les données de ta fiche, tu ajoute un champs User_Open.
Dès qu'un utilisateur accède à une fiche, donc sur l'évènement Activation de ton formulaire, tu donnes à ce champs l'identification de ton User.
Sur le formulaire, tu filtres si ce champ est null, ou égal au User actuel.
Dès que ton utilisateur quitte une fiche, tu effaces l'indication de son nom.
Donc, sur form_current :
Docmd.RunSQL "UPDATE MaTabl SET USER_Open = Null WHERE User_Open = " & Environ("Username") & ";"
me!User_Open = Environ("Username")
ça devrait marcher.
Manu
ETSSieb
Messages postés
24
Date d'inscription
mercredi 28 avril 2010
Statut
Membre
Dernière intervention
16 juillet 2010
10 mai 2010 à 11:02
10 mai 2010 à 11:02
Bonjour,
Je viens d'essayer votre proposition.
Malheureusement, ca ne fonctionne pas, j'ai du faire une erreur dans le code ou oublier quelque chose puisque lorsque je lance mon formulaire, j'ai directement une inputbox avec le nom du PC. Lorsque je clique sur OK, j'ai une boite de dialogue d'erreur me proposant le débogage et faisant apparaitre cette ligne :
DoCmd.RunSQL "UPDATE SEREC Set User_Open = Null WHERE User_Open = " & Environ("Username") & ";"
Je ne m'y connais pas du tout en SQL. Est-il possible d'avoir le même résultat en VBA?
Merci d'avance.
Je viens d'essayer votre proposition.
Malheureusement, ca ne fonctionne pas, j'ai du faire une erreur dans le code ou oublier quelque chose puisque lorsque je lance mon formulaire, j'ai directement une inputbox avec le nom du PC. Lorsque je clique sur OK, j'ai une boite de dialogue d'erreur me proposant le débogage et faisant apparaitre cette ligne :
DoCmd.RunSQL "UPDATE SEREC Set User_Open = Null WHERE User_Open = " & Environ("Username") & ";"
Je ne m'y connais pas du tout en SQL. Est-il possible d'avoir le même résultat en VBA?
Merci d'avance.