15. oktober 2008 - 21:07Der 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:
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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
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 brugerNybegynder
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.
