J=92ai un formulaire avec 5 champs Text (Text01, Text02, Text03, Text04,
Text05) et j=92ai un sixi=E8me champ Text (Text06) qui regroupe les 5
premiers.
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
Gilbert
Bonjour,
Essaie avec : dim i as long Me.Text06 = "" for i=1 to 5 if not isnull(Me(" Text0" & i)) then Me.Text06.Value =Me.Text06 & Me(" Text0" & i) & vbNewLine endif next i
-- Cordialement,
Gilbert
a écrit dans le message de news: Bonjour à tous,
J’ai un formulaire avec 5 champs Text (Text01, Text02, Text03, Text04, Text05) et j’ai un sixième champ Text (Text06) qui regroupe les 5 premiers.
mais si un ou plusieurs champs sont vides je me retrouve avec cette configuration :
ValeurText01
ValeurText03
ValeurText05
Comment faire pour que les lignes vides soient supprimées et que la ValeurText03 soit collée à ValeurText01 etc….
Merci pour votre aide. A bientôt. Xavier
Bonjour,
Essaie avec :
dim i as long
Me.Text06 = ""
for i=1 to 5
if not isnull(Me(" Text0" & i)) then
Me.Text06.Value =Me.Text06 & Me(" Text0" & i) & vbNewLine
endif
next i
--
Cordialement,
Gilbert
<domivax@gmail.com> a écrit dans le message de
news:c1d4dc57-2c1b-4674-bebb-510a955122dc@c65g2000hsa.googlegroups.com...
Bonjour à tous,
J’ai un formulaire avec 5 champs Text (Text01, Text02, Text03, Text04,
Text05) et j’ai un sixième champ Text (Text06) qui regroupe les 5
premiers.
Essaie avec : dim i as long Me.Text06 = "" for i=1 to 5 if not isnull(Me(" Text0" & i)) then Me.Text06.Value =Me.Text06 & Me(" Text0" & i) & vbNewLine endif next i
-- Cordialement,
Gilbert
a écrit dans le message de news: Bonjour à tous,
J’ai un formulaire avec 5 champs Text (Text01, Text02, Text03, Text04, Text05) et j’ai un sixième champ Text (Text06) qui regroupe les 5 premiers.
Cela devrait supprimer le dernier caractère qui est le dernier vbcrlf
bonne journée, Ch.
Bonjour,
Ca marche, sauf que je me retrouve avec le dernier retour ligne.... comment faire pour l'ôter ?
Merci pour votre aide. Xavier
Michel_D
Bonjour,
Bonjour,
Ca marche, sauf que je me retrouve avec le dernier retour ligne.... comment faire pour l'ôter ?
Merci pour votre aide. Xavier
Essaye comme ceci :
dim i as long Me.Text06 = "" for i=1 to 5 if not isnull(Me(" Text0" & i)) then if len(Me.Text06)>0 then Me.Text06.Value =Me.Text06 & vbNewLine Me.Text06.Value =Me.Text06 & Me(" Text0" & i) end if next i
Bonjour,
Bonjour,
Ca marche, sauf que je me retrouve avec le dernier retour ligne....
comment faire pour l'ôter ?
Merci pour votre aide.
Xavier
Essaye comme ceci :
dim i as long
Me.Text06 = ""
for i=1 to 5
if not isnull(Me(" Text0" & i)) then
if len(Me.Text06)>0 then Me.Text06.Value =Me.Text06 & vbNewLine
Me.Text06.Value =Me.Text06 & Me(" Text0" & i)
end if
next i
Ca marche, sauf que je me retrouve avec le dernier retour ligne.... comment faire pour l'ôter ?
Merci pour votre aide. Xavier
Essaye comme ceci :
dim i as long Me.Text06 = "" for i=1 to 5 if not isnull(Me(" Text0" & i)) then if len(Me.Text06)>0 then Me.Text06.Value =Me.Text06 & vbNewLine Me.Text06.Value =Me.Text06 & Me(" Text0" & i) end if next i
domivax
Merci beaucoup ça joue. J'ai juste dû remplacer le -1 par un -2 car je suppose que le caractère NouvelleLigne correspond à deux caractères Chr(13) & Chr(10). Encore merci
Merci beaucoup ça joue.
J'ai juste dû remplacer le -1 par un -2 car je suppose que le
caractère NouvelleLigne correspond à deux caractères Chr(13) &
Chr(10).
Encore merci
Merci beaucoup ça joue. J'ai juste dû remplacer le -1 par un -2 car je suppose que le caractère NouvelleLigne correspond à deux caractères Chr(13) & Chr(10). Encore merci
domivax
Bonjour, Cette procèdure joue aussi. Merci beaucoup.
Bonjour,
Cette procèdure joue aussi.
Merci beaucoup.