Avatar billede jan Novice
14. juli 2003 - 22:19 Der er 3 kommentarer og
3 løsninger

if then else

Verdensmester bliver jeg aldrig i VBA, så endnu engang håber jeg på hjælp

Jeg har følgende :

Private Sub breve__til_arbejdsgiver_Click()
Dim ObVar As Object
Set ObVar = CreateObject("word.basic")
With ObVar
.appshow
.filenew
.Insertpara
.FontSize 12
.insert Format(Forms![F Faglig database].Controls![Arbejdsgiver])
.Insertpara
.insert Format(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])
.Insertpara
.insert Format(Forms![F Faglig database].Controls![Adresse arbejdsgiver])
.Insertpara
.insert Format(Forms![F Faglig database].Controls![Postnummer faglig]) + " "
.insert Format(Forms![F Faglig database].Controls![Bynavn])
.insert Format(Forms![F Faglig database].Controls![Land arbejdsgiver])
.Insertpara
.insert "Att:"
.Insertpara
.Insertpara
.......

Nu er det sådan at felterne "c/o arbejdsgiver" og "land arbejdsgiver" ofte ikke er udfyldt og derfor fremstå de som en tom linie når der skrives i Word med ovestående. Hvilket de naturligivs ikke skal.
Jeg har bakset med if then else udsagn men kan ikke få til til at virke.
Er der nogen der kan hjælpe
Det skal lige nævnes af jeg bruger Access 97.
Avatar billede terry Ekspert
14. juli 2003 - 22:36 #1
If Trim(len(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])) > 0 Then

.insert Format(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])

End if
Avatar billede Slettet bruger
14. juli 2003 - 22:38 #2
If Trim(Forms![F Faglig database].Controls![c/o navn arbejdsgiver]) <> "" then
  .insert Format(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])
End if
Avatar billede terry Ekspert
14. juli 2003 - 22:45 #3
If Len(Trim(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])) > 0 Then

.insert Format(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])

End if
Avatar billede jan Novice
14. juli 2003 - 22:49 #4
Det ser ud som om begge forslag virker ens. Når feltet er blankt bliver resultatet en blank/tom linie i word og det ville jeg gerne undgå.
14. juli 2003 - 22:55 #5
Du skal bare have .Insertpara med ind i If-Then-sætningen...

.insert Format(Forms![F Faglig database].Controls![Arbejdsgiver])

If Len(Trim(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])) > 0 Then

.Insertpara
.insert Format(Forms![F Faglig database].Controls![c/o navn arbejdsgiver])
endif

/Thomas
Avatar billede jan Novice
14. juli 2003 - 23:03 #6
Jeg fik ikke min komentar med ved pointfordelingen.
Jeg havde lige præsist fundet ud af det samme som thomasjepsen da hans svar tikkende ind. Derfor deler jeg point ud til jer alle tre.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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