Discussion :

[ramine123]

bonjour,
salut a tous les membres de cet aimable forum
j'ai quelques questions a propos d'Access

1- comment affecter un raccourci clavier à un bouton de commande dans une formulaire?

2- j'ai une table qui comprend des noms de gens (deux colonnes: Masculin - Féminin), et une formulaire de saisie basé sur une autre table et parmi les champs qui comprend le champ Nom et une zone de texte appelé Sexe.
l'objectif que je cherche a atteindre, c'est quand je tape un nom quelconque, j'aimerais que la zone de texte Sexe définir automatiquement s'il s'agit de masculin ou féminin en se basant sur la première table, et si le nom tapé ne se trouve ni au colonne masculin ni au colonne féminin alors la zone de texte doit être vide pour permettre le saisi de sexe convenable


Merci d'avance

[tee_grandbois]

1- comment affecter un raccourci clavier à un bouton de commande dans une formulaire?

bonsoir,
en mettant un '&' devant n'importe quelle caractère de la légende du bouton, cette lettre sera désormais soulignée. Après cela il sera possible uniquement d'exécuter le code associé au clic du bouton en tapant Alt + le caractère associé.

Pièce jointe 226363

[ramine123]

Merci beaucoup tee_grandbois
ca marche bien
merci encore

maintenent il reste la question 2, je souhaite qu'il soit bien claire

[tee_grandbois]

Bonsoir,

pour permettre le saisi de sexe convenable

Attention, cette phrase pourrait être mal interprétée et censurée par un modérateur mal embouché, mais je pense qu'il n'y en a pas sur ce forum

j'ai une table qui comprend des noms de gens (deux colonnes: Masculin - Féminin), et une formulaire de saisie basé sur une autre table et parmi les champs qui comprend le champ Nom et une zone de texte appelé Sexe.
l'objectif que je cherche a atteindre, c'est quand je tape un nom quelconque, j'aimerais que la zone de texte Sexe définir automatiquement

Voici une des méthodes pour déterminer le sexe avec ce code à placer dans l'évènement AfterUpdate du champ Nom (à toi de l'adapter avec les noms de tables et champs corrects)

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 Nom_AfterUpdate()
 
Dim stSexe As Variant    ' Variant acccepte une valeur nulle
' Recherche du nom dans la colonne Feminin
stSexe = DLookup("Feminin", "Tbl_LesGens", "Feminin ='" & Me.Nom & "'")
If stSexe = Me.Nom Then
    Me.Sexe.Value = "Féminin"
    Exit Sub
End If
 
' Recherche du nom dans la colonne Masculin si pas trouvé dans la colonne Feminin
stSexe = DLookup("Masculin", "Tbl_LesGens", "Masculin ='" & Me.Nom & "'")
If stSexe = Me.Nom Then
    Me.Sexe.Value = "Masculin"
Else
    Me.Sexe.Value = "A définir"
    Exit Sub
End If
 
End Sub

[ramine123]

Merci de votre effort
Mais j'ai pas parvenu a atteindre l'objectif
j'ai écrit bien le code
mais le résultat que j'obtient c'est toujours "A définir"
je crois qu'il y a une erreur quelque part

oui le lecteur peut avoir des interprétations, et cela reviend de mon niveau bas en français (mais pourtant je souhaite que mes message passent bien)

[tee_grandbois]

Bonjour,

oui le lecteur peut avoir des interprétations, et cela reviend de mon niveau bas en français

Désolé, c'était juste une plaisanterie sans arrière pensée.

Mais j'ai pas parvenu a atteindre l'objectif
j'ai écrit bien le code
mais le résultat que j'obtient c'est toujours "A définir"
je crois qu'il y a une erreur quelque part

Bizarre, je l'ai testé et cela fonctionne, peux-tu me montrer le code que tu as écrit s'il te plait ?

[ramine123]

Le voila

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
Private Sub PrenomBeneficiaire_AfterUpdate() 
Dim stSexe As Variant    ' Variant acccepte une valeur nulle
' Recherche du nom dans la colonne Feminin
stSexe = DLookup("Feminin", "genre", "Feminin ='" & Me.PrenomAssure & "'")
If stSexe = Me.PrenomAssure Then
    Me.Texte182.Value = "Féminin"
    Exit Sub
End If
 
' Recherche du nom dans la colonne Masculin si pas trouvé dans la colonne Feminin
stSexe = DLookup("Masculin", "genre", "Masculin ='" & Me.PrenomAssure & "'")
If stSexe = Me.PrenomAssure Then
    Me.Texte182.Value = "Masculin"
Else
    Me.Texte182.Value = "A définir"
    Exit Sub
End If
End Sub

[ramine123]

excuser-moi
j'ai commet une erreur

le code qui marche maintenant

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
Private Sub PrenomBeneficiaire_AfterUpdate()
Dim stSexe As Variant    ' Variant acccepte une valeur nulle
' Recherche du nom dans la colonne Feminin
stSexe = DLookup("Feminin", "genre", "Feminin ='" & Me.PrenomBeneficiaire & "'")
If stSexe = Me.PrenomBeneficiaire Then
    Me.Texte182.Value = "Féminin"
    Exit Sub
End If
 
' Recherche du nom dans la colonne Masculin si pas trouvé dans la colonne Feminin
stSexe = DLookup("Masculin", "genre", "Masculin ='" & Me.PrenomBeneficiaire & "'")
If stSexe = Me.PrenomBeneficiaire Then
    Me.Texte182.Value = "Masculin"
Else
    Me.Texte182.Value = "A définir"
    Exit Sub
End If
End Sub

merci beaucoup
c'est resolu
c'est grace a toi