Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour
Olivier a confié : | Bonjour à tous | | Est-il possible et comment faire dans Access 97 pour ajouter des | entrées dans la correction automatique | | en pratique : l'utilisateur tape (d) et ça écrit Ø | | Est ce que cette fonctionnalité fonctionnera avec le Runtime Access | | merci d'avance | | Olivier
Oui ça fonctionnera si tu utilises des fonctions standards. Il faut travailler dans l'événenemet sur changement du contrôle concerné :
Private Sub lecontrole_Change() Me.lecontrole.Value = fDiam2Phi(Me.lecontrole.Text) Me.lecontrole.SelStart = Len(Me.lecontrole.Value) End Sub
et la fonction suivante (vite faite et sûrement à fignioler),
Function fDiam2Phi(strTexte As String) As String If Len(strTexte) > 0 Then
Do While InStr(1, strTexte, "(d)") > 0 strTexte = Left(strTexte, _ InStr(1, strTexte, "(d)") - 1) & _ Chr$(216) & _ Right(strTexte, Len(strTexte) - _ InStr(1, strTexte, "(d)") - 2) fDiam2Phi = strTexte Loop End If fDiam2Phi = strTexte End Function
à transformer peut-être en une fonction fAutoCorrect qui contiendra 2 arguments : la chaine à remplacer et la chaine de remplacement. (tiens ça me fait penser à une certaine fonction "replace" dont il existe des adaptations pour access97 ;-)))
avec access 2000 et +, on fera donc directement :
Private Sub Text4_Change() Me.Text4.Value = Replace(Me.Text4.Text, "(d)", Chr$(216)) Me.Text4.SelStart = Len(Me.Text4.Value) End Sub
A mon avis, ce sera toujours plus fiable qu'une correction automatique que j' "antérecommande" ;-)
Olivier <odiers@ifrance.com> a confié :
| Bonjour à tous
|
| Est-il possible et comment faire dans Access 97 pour ajouter des
| entrées dans la correction automatique
|
| en pratique : l'utilisateur tape (d) et ça écrit Ø
|
| Est ce que cette fonctionnalité fonctionnera avec le Runtime Access
|
| merci d'avance
|
| Olivier
Oui ça fonctionnera si tu utilises des fonctions standards.
Il faut travailler dans l'événenemet sur changement du contrôle concerné :
Private Sub lecontrole_Change()
Me.lecontrole.Value = fDiam2Phi(Me.lecontrole.Text)
Me.lecontrole.SelStart = Len(Me.lecontrole.Value)
End Sub
et la fonction suivante (vite faite et sûrement à fignioler),
Function fDiam2Phi(strTexte As String) As String
If Len(strTexte) > 0 Then
Do While InStr(1, strTexte, "(d)") > 0
strTexte = Left(strTexte, _
InStr(1, strTexte, "(d)") - 1) & _
Chr$(216) & _
Right(strTexte, Len(strTexte) - _
InStr(1, strTexte, "(d)") - 2)
fDiam2Phi = strTexte
Loop
End If
fDiam2Phi = strTexte
End Function
à transformer peut-être en une fonction
fAutoCorrect qui contiendra 2 arguments : la chaine à remplacer
et la chaine de remplacement.
(tiens ça me fait penser à une certaine fonction "replace"
dont il existe des adaptations pour access97 ;-)))
avec access 2000 et +, on fera donc directement :
Private Sub Text4_Change()
Me.Text4.Value = Replace(Me.Text4.Text, "(d)", Chr$(216))
Me.Text4.SelStart = Len(Me.Text4.Value)
End Sub
A mon avis, ce sera toujours plus fiable qu'une correction automatique
que j' "antérecommande" ;-)
Olivier a confié : | Bonjour à tous | | Est-il possible et comment faire dans Access 97 pour ajouter des | entrées dans la correction automatique | | en pratique : l'utilisateur tape (d) et ça écrit Ø | | Est ce que cette fonctionnalité fonctionnera avec le Runtime Access | | merci d'avance | | Olivier
Oui ça fonctionnera si tu utilises des fonctions standards. Il faut travailler dans l'événenemet sur changement du contrôle concerné :
Private Sub lecontrole_Change() Me.lecontrole.Value = fDiam2Phi(Me.lecontrole.Text) Me.lecontrole.SelStart = Len(Me.lecontrole.Value) End Sub
et la fonction suivante (vite faite et sûrement à fignioler),
Function fDiam2Phi(strTexte As String) As String If Len(strTexte) > 0 Then
Do While InStr(1, strTexte, "(d)") > 0 strTexte = Left(strTexte, _ InStr(1, strTexte, "(d)") - 1) & _ Chr$(216) & _ Right(strTexte, Len(strTexte) - _ InStr(1, strTexte, "(d)") - 2) fDiam2Phi = strTexte Loop End If fDiam2Phi = strTexte End Function
à transformer peut-être en une fonction fAutoCorrect qui contiendra 2 arguments : la chaine à remplacer et la chaine de remplacement. (tiens ça me fait penser à une certaine fonction "replace" dont il existe des adaptations pour access97 ;-)))
avec access 2000 et +, on fera donc directement :
Private Sub Text4_Change() Me.Text4.Value = Replace(Me.Text4.Text, "(d)", Chr$(216)) Me.Text4.SelStart = Len(Me.Text4.Value) End Sub
A mon avis, ce sera toujours plus fiable qu'une correction automatique que j' "antérecommande" ;-)
