Avatar billede swil Nybegynder
09. december 2001 - 21:48 Der er 11 kommentarer og
1 løsning

Åbne Word fra Access fortsat...

Hej Eksperter
Jeg har fået sammenstrikket en god funktion med hjælp her fra eksperten. Funktionen åbner et antal forskellige Worddokumenter ud fra en tabel med filplacering, MEN hvad skal jeg gøre hvis filen ikke eksisterer - jeg vil gerne have en msgbox, der skriver \"Brevet eksisterer ikke\". Jeg skriver følgende for at åbne filen:
myword.Documents.Open filename:=filplacering
Avatar billede mugs Novice
09. december 2001 - 22:19 #1
Du skal ind i en If.. Then sætning.

If Exist... Then
myword.Documents.Open Filename :=filplacering
Else:
Msg \"Brevet eksisterer ikke\"
End If

Jeg har ikke tid til at afprøve det nu - derfor kun en kommentar.

Avatar billede swil Nybegynder
09. december 2001 - 22:26 #2
>mugs
Med nekelte modifikationer virker det - tak for kommentaren, giv venligst et svar, så lukker leh spørgsmålet.

If Exist Then
      myword.Documents.Open Filename:=filplacering
  Else:
    MsgBox \"Brevet eksisterer ikke\"
    udskrivbrev = False
    Exit Function
  End If
Avatar billede mugs Novice
09. december 2001 - 22:32 #3
Fint
Avatar billede swil Nybegynder
09. december 2001 - 22:35 #4
>mugs

Der er lige et men, uanset om brevet alligevel findes kommer den ned i else-testen og skriver at det ikke findes???
Avatar billede mugs Novice
09. december 2001 - 22:39 #5
If Exist Then
      myword.Documents.Open Filename:=filplacering
      Exit Function
  Else:
    MsgBox \"Brevet eksisterer ikke\"
    udskrivbrev = False
    End If
Avatar billede swil Nybegynder
09. december 2001 - 22:43 #6
Ved at flytte exit function derop, stopper udførelsen af funktionen inden den kommer igang. Den kommer først igang efter sidste end if.
Avatar billede mugs Novice
09. december 2001 - 22:50 #7
Ja - jeg er også ved at være lidt firkantet i øjnene. Har været på arbejde siden kl lo.. imorges, så det er nok ikke det rigtige tidspunkt at komme med ikke afprøvede svar.

Jeg er sikker på, at du kan modificere koden så den virker - men jeg er simpelthen for træt nu, så afvis blot mit svar.

godnat. 
Avatar billede swil Nybegynder
09. december 2001 - 23:26 #8
mugs>
Klarede det med en fejlhåndteringsrutine i stedet for - ellers tak for hjælpen
Avatar billede mugs Novice
09. december 2001 - 23:30 #9
Må vi se hvordan?
Avatar billede swil Nybegynder
09. december 2001 - 23:39 #10
Jeg troede du var gået i seng?

fejlidata:
  If Err.Number = 5121 Then
    MsgBox \"Fejl i brevnavn\"
    Exit Function
  End If
Avatar billede swil Nybegynder
09. december 2001 - 23:41 #11
Fejlnummeret var 5174, 5121 er fejl i stinavn.
Avatar billede mugs Novice
10. december 2001 - 12:21 #12
Der burde jeg også være - men der kom lige noget, og så kom der lige noget...

Nu skal jeg lige have ½ time på den \"jen sie\", inden det går videre til job nr. 2
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