Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access ajout d'un saut de ligne suite

ajout d'un saut de ligne suite

2 réponses
Avatar
Isabelle L.
j'ai oublié de metre le code que j'utilise :

Private Sub Memo_GotFocus()
If IsNull(Me.memo) Then
Me.memo = "" + chr(10) + "-" & Date & " : "
Else
Me.memo = Me.memo + chr(10) + "-" & Date & " : "
End If
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

tu peux faire plus simple:

Me.memo = Me.memo & vbCrLf & "-" & Date & " : "
c'est suffisant.

pourquoi la date à la fin ? et non au début du texte concerné ?

moi, je le mettrais sur afterupdate et non sur gotfocus.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Isabelle L." <Isabelle a écrit dans le
message de news:
j'ai oublié de metre le code que j'utilise :

Private Sub Memo_GotFocus()
If IsNull(Me.memo) Then
Me.memo = "" + chr(10) + "-" & Date & " : "
Else
Me.memo = Me.memo + chr(10) + "-" & Date & " : "
End If
End Sub



Avatar
Isabelle L.
Merci beaucoup

Je débute et je passe un temps pas possible à chercher ce qui doit vous
paraître évident. J'ai cherché la solution pendant 4 h dans l'aide et je n'ai
rien trouvé comment faites-vous pour savoir tout ça ?
Encore merci !
Isabelle L.


"Raymond [mvp]" wrote:

Bonjour.

tu peux faire plus simple:

Me.memo = Me.memo & vbCrLf & "-" & Date & " : "
c'est suffisant.

pourquoi la date à la fin ? et non au début du texte concerné ?

moi, je le mettrais sur afterupdate et non sur gotfocus.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Isabelle L." <Isabelle a écrit dans le
message de news:
j'ai oublié de metre le code que j'utilise :

Private Sub Memo_GotFocus()
If IsNull(Me.memo) Then
Me.memo = "" + chr(10) + "-" & Date & " : "
Else
Me.memo = Me.memo + chr(10) + "-" & Date & " : "
End If
End Sub