if then else
Verdensmester bliver jeg aldrig i VBA, så endnu engang håber jeg på hjælpJeg 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.
