CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

-anders- Juniormester

15. oktober 2008 - 21:07 Der er 3 kommentarer og
1 løsning

Mellemrum i ubundet tekstboks på formular

Hej eksperter

På min formular har jeg 4 felter:

Pfuldenavn
Pstilling
Pfirma
Padresse

Jeg har så indsat en ubundet tekstboks på formularen:

txtlabel

Jeg forsøger så at samle alle informationer i de 4 nævnte felter i txtlabel med kontrolleret linjeskift på nednestående måde:

I kontrolelementkilden for txtlabel skriver jeg:

=Trim([Pstilling] & " " & Trim([Pfuldenavn]

Syntaksen viser så stilling og fulde navn på første linje, nu skifer jeg så linje i txtlabel med syntaksen:

& Chr$(13) & Chr$(10)

Næste linje (linje 2) skal så vise info fra feltet Pfirma, dette virker fint så længe der er angivet oplysninger i feltet Pfirma, er der ikke det vises blot et tomt linjeskift, dette vil jeg gerne undgå. Hele min syntaks ser således ud:

=Trim([Pstilling] & " " & Trim([Pfuldenavn] & Chr$(13) & Chr$(10) & Trim([Pfirma] & Chr$(13) & Chr$(10) & "" & [padresse])))

Er det muligt at ignorer linjeskiftet hvis der ikke er angivet oplysninger i feltet Pfirma

Hilsen Anders

Synes godt om

tigerdyr2007 Praktikant

15. oktober 2008 - 21:24 #1

Start med at kigge om firma feltet er tomt, og lav en IF sætning rundt om det:
If IsNull(Pfirma) = True Or Pfirma= "" Then
=Trim([Pstilling] & " " & Trim([Pfuldenavn] & Chr$(13) & Chr$(10) & "" & [padresse])))
Else
=Trim([Pstilling] & " " & Trim([Pfuldenavn] & Chr$(13) & Chr$(10) & Trim([Pfirma] & Chr$(13) & Chr$(10) & "" & [padresse])))
End If

Synes godt om

tigerdyr2007 Praktikant

15. oktober 2008 - 21:25 #2

Ovenstående var egentligt et svar :)

Synes godt om

-anders- Juniormester

15. oktober 2008 - 21:28 #3

Hej tigerdyr

Tak for indlægget, det spændende ud, men kan det bruges som udtryk i kontolelementkilden for txtlabel, eller skal det skrives som VBA i formularen

Synes godt om

-anders- Juniormester

15. oktober 2008 - 21:48 #4

Hej igen

Naturligvis virker dit eks. ikke som kontrolelementkilde, men det kan sagtens virke i VBA.

Jeg har lavet en function:

Function CreateLabel()
If IsNull(Pfirma) = True Or Pfirma = "" Then
Me.txtlabel = Trim([Pstilling] & " " & Trim([Pfuldenavn] & Chr$(13) & Chr$(10) & "" & ([Padresse])))
Else
Me.txtlabel = Trim([Pstilling] & " " & Trim([Pfuldenavn] & Chr$(13) & Chr$(10) & Trim([Pfirma] & Chr$(13) & Chr$(10) & "" & [Padresse])))
End If
End Function

Når jeg klikker på min knap i formen køres funktionen før rapporten åbnes, det virker fint.

Tak for hjælpen, velfortjente points på vej til dig :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
macro der laver en e-mail med en vedhæftet fil i pdf LIGGENDE Af per2edb i Access	8	I går 17:48	2 minutter siden
Rapport koder placeret i moduler Af per2edb i Access	4	11/09/202415:15	11/09/202418:04
Print specifik subform Af per2edb i Access	8	09/09/202414:12	10/09/202411:54
query calculated field ? Af fimo i Access	5	03/09/202409:23	03/09/202411:08
Fjernadgang til Access app Af per2edb i Access	5	29/08/202408:21	29/08/202415:07

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS