Discussion :

[Angelinu]

Bonjour à tous,

Je poste mon problème ici mais je ne sais pas si plus du VBA ou du SQL... Je vous laisse juge.

Jai un problème avec un masque de saisie:
j'ai écrit un programme avec plusieurs formulaires dans l'un de ceux-ci l’utilisateur crée dans un textbox une référence qui doit avoir une forme précise j’ai donc attribué à mon textbox ce masque de saisie : "TRN-">???\-0000".V"0

L’utilisateur n’a plus qu’à rentrer 3 lettres qui seront toujours en majuscule (> ???), 4 chiffres (\-0000) et enfin un numéro de version (le dernier 0 du code)

Cela fonctionne très bien sauf que cette valeur qui est sauvegardée dans une Table est ensuite utilisée dans plusieurs autres formulaires et apparaît lorsqu’elle est appelée sans le masque de saisie c’est-à-dire sous la forme : > ????00000 genre XXXX11111 au lieu de TRN-XXXX-1111.V1

J’ai pu contourner le problème en affectant le masque de saisie également au champ de la table et à toutes les textbox des différents formulaires qui utilisent cette valeur mais j’ai toujours un problème avec une liste déroulante car même en lui affectant le masque de saisie, lorsque je déroule ma liste pour sélectionner une valeur, celles-ci apparaissent sous la mauvaise forme (XXXX11111) ce qui est perturbant et très peu pratique pour l’utilisateur.

Pouvez-vous m’aider à résoudre ce problème et me dire s’il y a moyen de le traiter le problème à la source en faisant en sorte par exemple que le système sauvegarde dans la table l’intégralité du contenue de la textbox lorsque la référence est créée et pas seulement les caractères saisis par l’utilisateur?

Merci beaucoup.
Angelinu

[Angelinu]

Re-bonjour,

Un complément qui peut avoir son importance pour la réponse.
La copie dans la table du textebox avec la référence créée se fait par clic sur un bouton qui déclenche une requête ajout dont voici le code un peu épuré mais qui garde l’essentiel.

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 Commande49_Click()
On Error GoTo Error
    If IsNull(Me.Texte65) Then
        MsgBox "Entrez le code.  Forme : TRN-XXX-0000-V.0!", vbOKOnly
        Exit Sub
    End If
    retour = MsgBox(" Voulez-vous ajouter cette réfèrence à la base de donnée ?", vbYesNo & vbExclamation, "Confirmation de l'ajout")
     If retour = 1 Then
 
Dim AjoutTheme As String
        AjoutTheme = "INSERT INTO T_Theme (Reference) VALUES ('"
        AjoutTheme = AjoutTheme & Texte65.Value & " ');"
                DoCmd.RunSQL AjoutTheme
                MsgBox "Mise à jour effectuée !"
Exit Sub
Error:
MsgBox "La mise à jour est abandonnée, veuillez rectifier ou annuler votre saisie!"
End Sub

[Angelinu]

Bonjour à tous... Enfin bonjour à moi puisque je n'ai pas eu le plaisir de bénéficier des lumière du forum sur ce sujet ou du moins pas directement :-)
Néanmoins après 3 jours de recherche j'ai trouvé ma réponse dans cette discussion:

http://www.developpez.net/forums/d11...masque-saisie/

Donc en fait il faut juste ajouter ;0;_ à la fin du masque pour qu'Access copie intégralement le contenue du textbox dans la table (Caractères Saisie + Masque)

"TRN-">???\-0000".V"0;0;_
Est ça marche!!

3 jours pour trouver ça mais quelle satisfaction!! :-)

Discussion close!

Ange