Discussion :

[neo4230]

bonojur
j'ai un petit probleme

j'ai créé un formulaire leave afin d'enregistrer les maladie et les vacances du staff qui travail ds une société je veux des que j'écris l'identifiant statt_id de l'employer son nom s'affiche dans le champ Name
merci d'avance pour votre aide

[Jean-Philippe André]

Bonjour,

tu cherches a faire un filtre dans ton formulaire ou bien a faire un formulaire ed recherche, avec une zone de liste affichant les resultats du filtre ?

Il faut etre le plus precis possible sur ta demande, sinon on va avoir du mal a t'aider efficacement =]

[neo4230]

j'ai deux formulaires le premier pour saisir les coordonnées de l’employée et un deuxième ou est le problème pour saisir les absences alors la je cherche a afficher le nom de l’employé après avoir son identifiant

[tee_grandbois]

Bonsoir,
la source de données de ton formulaire est la table LEAVE ou une requête ?
avec quel type de contrôle sélectionnes-tu l'identifiant employé (zone de texte, zone de liste, zone de liste déroulante) ?
veux-tu insérer la valeur NAME de la table EMPLOYEES dans NAME de la table LEAVE ou simplement l'afficher dans un champ indépendant ?

[neo4230]

bonsoir
le premier formulaire est un formulaire de saisie des coordonnées de employées que seront enregistrée dans la table employée et le deuxième serait un formulaire de saisie des informations concernant son absence et qui seront enregistrée dans la table leave et qui seront saisie manuellement sauf le champ name je veux qu'il s'affecte par le nom correspondant après avoir saisie dans le champs staff id l'id de l’employée absent

[tee_grandbois]

Bonsoir,
sur l'évènement Avant Mise à jour (Before Update) de ton champ de saisie Staff_id tu choisis Procédure événementielle et tu colles le code ci-dessous à la place de l'existant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub staff_id_BeforeUpdate(Cancel As Integer)
Dim stEmpName As String
stEmpName = Nz(DLookup("[name]", "[employees]", "[staffid]=" & Me.staff_id ), "")
If stEmpName = "" Then
    MsgBox "Identifiant employé non trouvé"
    Me.[name] = ""
    Cancel = True
Else
    Me.[name] = stEmpName
End If
 
End Sub

ton champ Name sera automatiquement renseigné. Si tu ne veux pas qu'il soit modifiable, n'oublie pas de le verrouiller et le désactiver.
En général, il faut EVITER L'UTILISATION DE NAME pour nommer un objet, car c'est un mot-clé réservé, l'utilisation des crochets est impératif de ce fait.

[neo4230]

merci beaucoup
ça fait longtemps que j'ai pas fait de programmation et je suis entrain de réviser
merci pour votre aide

[neo4230]

bonsoir
si je veux que le résultat soit une liste déroulante comment faire
par exemple

SI je choisie institution il m’apparaît une liste des staffid des employées qui travail ici
l'autre ca je veux des que je choisi le nom de l'institution il m’apparaît un tableau qui contient le nom le grade,.... des employées

[tee_grandbois]

Bonsoir,
désolé mais je n'ai pas bien compris ceci :

SI je choisie institution il m’apparaît une liste des staffid des employées qui travail ici
l'autre ca je veux des que je choisi le nom de l'institution il m’apparaît un tableau qui contient le nom le grade,.... des employées

Peux-tu reformuler ta demande de manière qu'elle soit compréhensible ?
Merci

[neo4230]

merci bien je l'ai résolu

j'ai deux autre question
comment faire pour choisir un des formulaires pour qu'il se lance lors de l’exécution de la base
comment faire de notre base de données accès une application qui ne contient que les formulaires créer et ses boutons et ceux de accès soit inactif ou sans effet

[tee_grandbois]

Bonsoir,
je te donne une réponse par image à la première question :
Pièce jointe 229012

la seconde, je la laisse à quelqu'un qui l'aura comprise.

[neo4230]

merci bien
pour la deuxième question je voulais dire:
je vais donner la base de donnée a une autre personne comme une application sans que il peut changer les requêtes et les formulaires
jusque comme une application exécutable seulement
comment faire

[tee_grandbois]

il faut que tu consultes la FAQ concernant le déploiement des applications professionnelles avec le Runtime Access.
De plus, il y a un sous-forum dédié si jamais tu as besoin d'aide.
http://argyronet.developpez.com/offi.../runtime/2010/
Bonne continuation.

[neo4230]

bonjour
j'ai un petit problème

la requete calcule le nombre de jour totale des "leave" congé et le nombre de conge exp: on peut avoir 5 congés contenant 25 jours
et je veux faire le formulaire suivant

je choisi le mois, l'institution il m’apparaît le nombre de congé ainsi que le nombre de jour total des congés
et dans un sous formulaire qui contient les nom des employe et devant chacun le type de congé et son nombre de jour
on peut trouver des ou trois congés pour un employé

je vient de creer la requete suivante


et je l'ai utiliser dans le sous formulaire
puis j'ai utiliser ce 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
19
20
Private Sub inst_AfterUpdate()
Dim vb_tba As String
Dim finst As String
stEmpName = Nz(DLookup("[tba]", "[nbr_per_inst]", "[institution]= '" & Me.inst & "'"), "")
 
If vb_tba = "" Then
    MsgBox "pas de congés pour cet institution"
    Me.[nbrofleave] = 0
   Me.tofday = 0
    Cancel = True
Else
    Me.[nbrofleave] = vb_tba
    Me.tofday = DLookup("[bna]", "[nbr_per_inst]", "[institution]= '" & Me.inst & "'")
 
    End If
    finst = "select * from groupe where ([institution] = '" & Me.inst & "') "
 
    Me.leaveseloninst.Form.RecordSource = finst
    Me.leaveseloninst.Form.Requery
End Sub

pour n'affiche que les congés des employées de l'institution
le proble qui rest c'est le mois
je que lorsque je choisi le mois il n’apparaît que les congés de ce mois