Discussion :

[Dilse]

Bonjour à Vous,

Voici le problème que je rencontre : j'ai crée une zone de texte assez petite dans mon formulaire car il n'y avait plus de place disponible ! Afin de faciliter la saisie j'appelle via l'événement sur clic la commande ZoomBox :

Code :

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

1
2
3
Private Sub CommentaireGeneral_Click()
DoCmd.RunCommand acCmdZoomBox
End Sub

Le nombre de caractères de ma zone de texte est limité à 255 caractères or lors de l'affichage de la boîte Zoom, le texte tapé lui ne s'arrête pas à 255 caractères il ne s'arrête plus !

Comment dois-je faire pour que ma zone de texte et la Boîte zoom (facilitant la saisie) soit synchro du point de vue nombre de caractères saisis ?

D'avance merci de votre aide précieuse

[FreeAccess]

Bonjour...

...faire pour que ma zone de texte et la Boîte zoom (facilitant la saisie) soit synchro du point de vue nombre de caractères saisis ?

A la place de la boîte Zoom, utilise un mini-formulaire de saisie....

Explications:
Sur ton formulaire ta Zone de texte est limitée à 20 caractères.
Dans sa propriété "Remarque" (Tag) tu entre 20.

Ensuite, tu vas utiliser cette valeur pour la passer en paramètre à ton mini-formulaire de saisie, sous la forme...:.(par exemple sur double-clic de cette zone..)

Code :

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

1
2
3
4
Private Sub NomChampFormulaire_DblClick(Cancel As Integer)
'Ici le mini-formulaire se nomme 'F_ZoomSaisie'
DoCmd.OpenForm "F_ZoomSaisie", , , , , , Me.NomChampFormulaire.Tag
End Sub

Tu récupère cette valeur à l'activation du mini-formulaire en utilisant la variable 'OpenArgs' qui contiendra la valeur passée en paramètre......et tu t'en sers pour limiter ta saisie....
Sur la fermeture du mini-formulaire, tu passe, à ce moment, la valeur saisie à ton formulaire principal...

...à voir....

[Dilse]

Bonsoir FreeAccess,

Merci de ta réponse mais je suis débutante en VBA et j'aurai besoin d'un coup de pouce de précision quant au passage suivant :

Code :

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

1
2
Tu récupère cette valeur à l'activation du mini-formulaire en utilisant la variable 'OpenArgs' qui contiendra la valeur passée en paramètre......et tu t'en sers pour limiter ta saisie....
Sur la fermeture du mini-formulaire, tu passe, à ce moment, la valeur saisie à ton formulaire principal...

J'avais eu cette idée de formulaire au départ mais je ne savais pas comment lui donner vie. Merci de ton aide en tout cas !

Ton Obligée

[FreeAccess]

Re...

Tu construis ton mini-formulaire, avec une zone de texte [txtZoneSaisie] et un bouton de contrôle [cmdFermer]...

Ton formulaire doit avoir sa propriété 'Fenêtre modale' = oui

Pour limiter la saisie en fonction de la valeur passée en paramètres...sur la propriété "Sur touche appuyée" tu tape..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txtZoneSaisie_KeyDown(KeyCode As Integer, Shift As Integer)
'Ici j'autorise certaines touches spéciales.....
Select Case KeyCode
    Case vbKeyBack, vbKeyTab, vbKeyLeft, vbKeyRight, vbKeyDelete
 
    Case Else
        'Ici je bloque la saisie sur la valeur correspondante à OpenArgs
        If Len(Me.txtZoneSaisie.Text) > OpenArgs - 1 Then
            KeyCode = 0
        End If
 
End Select
End Sub

Maintenant, il te reste juste à créer le code pour repasser la valeur saisie à ton formulaire principal......allez au boulot.......

[Dilse]

Un petit souci de taille subsiste encore...

J'ai réussi, grâce à vous FreeAccess, tout fonctionne presque à merveille seulement voilà ce morceau de code qui marchait du tonnerre ne fonctionne plus maintenant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me![PointsBonus].Value > 0 And Len(Me![CommentaireBonus]) = 0 Then
        Cancel = True
        MsgBox "En cas d'attribution d'un bonus, vous devez saisir un commentaire !", vbExclamation + vbOKOnly, "MESSAGE"
        Me.[CommentaireBonus].SetFocus
        DoCmd.OpenForm "ComBonus", , , , , , Me.CommentaireBonus.Tag
    End If
End Sub

En effet, même si le commentaire n'est pas renseigné alors que des points exceptionnels ont été attribués je peux désormais passer à l'enregistrement suivant alors qu'avant je l'avais volontairement bloqué à travers cette condition !

Auriez-vous une idée de ce qui coince à votre avis ? Il s'agit de texte dans le champ peut-être alors ne dois-je pas utiliser 0 dans cette partie de code :

Code :

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

Len(Me![CommentaireBonus]) = 0

Vraiment je ne sais plus...pourriez-vous m'aider ?

Votre Obligée

[Dilse]

réponse complète sur :


http://www.developpez.net/forums/sho...d.php?t=565195


Bonne journée