Discussion :

[Stargate SG1]

Bonjour
Dans mon application j'ai crée un menu contextuel par la fonction "personnaliser"
d'ACCESS.
Je voudrais dans ce menu contextuel offrir la possibilité de convertir une sélection en majuscule ou minuscule.
Je connais la commande de conversion et je sais crée une fonction qui récupère une valeur , mais je ne sais pas indiquer à cette fonction qu'il faut traiter la sélection en cours, sachant que cela doit s'adapter à tous mes contrôles de tous mes formulaires.
Autrement dit comment recuperer la valeur d'une sélection quelconque en cours dans un formulaire quelque soit le mode d'affichage du formulaire.

Merci

[loufab]

Bonjour,

Peut-être que

Code :

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

screen.ActiveControl

te conviendrait ?

Cordialement,

[Stargate SG1]

j'ai essayé mais j'arrive m'en sortir

[loufab]

on peut voir ou tu en es de ton code ?

[Stargate SG1]

voici mon code

d'abord celui du sous menu de mon menu contextuel

Code :

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

1
2
3
4
5
6
7
8
 
    Public Sub ConversionMAJ()
    Dim strTexteChoisi As String
    strTexteChoisi = Screen.ActiveControl
    setTexte (strTexteChoisi)
    Screen.ActiveControl = letMajTexte
 
End Sub

et la fonction chargé de la conversion en majuscule

Code :

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

1
2
3
4
5
6
7
8
Dim strTexte As String
 
Public Sub setTexte(choix As String)
    strTexte = choix
End Sub
Public Function letMajTexte() As String
    letMajTexte = UCase(strTexte)
End Function

Acces me renvoi l message d'erreur suivant:

Code :

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

L'expression entrée comporte un nom de fonction introuvable.

Le but final étant de rajouter une fonction minuscule et une 'première lettre en majuscule'

Merci pour l'aide éventuelle.

[loufab]

Bonjour,

Pourquoi ne pas faire simple ?

Code :

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

1
2
3
4
5
Public Function ConversionMAJ()
 
    Screen.ActiveControl.Text = UCase(Screen.ActiveControl.Text)
 
End Function

Cordialement

[Stargate SG1]

Merci beaucoup et c'est tellement plus simple et propre