Avatar billede hede99 Nybegynder
08. november 2002 - 09:17 Der er 9 kommentarer og
1 løsning

Filnavn på word dokument, fra en tabel

Hej

Jeg har en access database, hvor jeg åbner word, via en knap. Nu vil jeg gerne have Access til at navngive dette dokument, sådan at jeg i Access kan se hvad dokumentet hedder.

Jeg har prøvet:
W.ActiveDocument.SaveAs Me!kontaktperson!navn

I følgende funktion:
Private Sub cmdWord_Click()
Dim W As New Word.Application
    W.Visible = True
    W.Activate
   
    W.Documents.Add
    W.ActiveDocument.SaveAs Me!kontaktperson!navn
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Firmanavn
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Adresse1
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Postnr & " " & Me!By
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:="Att: " & Me!kontaktperson!navn & " " & Me!kontaktperson!efternavn
   
   
    Set W = Nothing
End Sub
Avatar billede jkrons Professor
08. november 2002 - 09:47 #1
Hvad er det, der ikke virker?

Har du evt. prøve at lægge det ønskede dokumentnavn i en variabel først.
Avatar billede hede99 Nybegynder
08. november 2002 - 10:06 #2
Den henter ikke der der står i feltet Kontaktperson!navn
Avatar billede juks Novice
08. november 2002 - 10:15 #3
objword.ActiveDocument.SaveAs (Me.Pid)
husk ()
Avatar billede juks Novice
08. november 2002 - 10:18 #4
() burde virke
Avatar billede hede99 Nybegynder
08. november 2002 - 10:23 #5
Hej Juks
Det virker også næsten, den kan hente fra selve formen.. Men ikke fra en underformular! må jeg sende databasen til dig...
Avatar billede jkrons Professor
08. november 2002 - 10:24 #6
Eller


DIM Doknavn AS String
Doknavn = Me!kontaktperson!navn
W.ActiveDocument.SaveAs Doknavn
Avatar billede jkrons Professor
08. november 2002 - 10:25 #7
Prøv ved en underformular:

Forms!Formnavn!Underformnavn!Feltnavn

i stedet for Me.

Jeg havde overset det med underformularen.
Avatar billede juks Novice
08. november 2002 - 10:28 #8
ja send bare help@mail.dk
Avatar billede juks Novice
08. november 2002 - 10:43 #9
hvis du laver en forspørgelse og så tryk gennere/build , så kan du klikke dig vej frem til det rette felt og form , så vil access selv skrive den linje du skal bruge den kan du så klippe  og sidde ind i din vba kode , så er du sikker på den er korrekt
Avatar billede juks Novice
08. november 2002 - 11:12 #10
Dim W As New Word.Application
    W.Visible = True
    W.Activate
    Dim s As String
    s = Forms![kunder]![kontaktperson].Form![navn]
    W.Documents.Add
    W.ActiveDocument.SaveAs (s)
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Firmanavn
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Adresse1
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:=Me!Postnr & " " & Me!By
    W.Selection.TypeParagraph
    W.Selection.TypeText Text:="Att: " & Me!kontaktperson!navn & " " & Me!kontaktperson!efternavn
   
   
    Set W = Nothing
End Sub
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