Vedhæft en fil til en enkelt post i access

Du kan jo bare lave et ekstra felt i tabellen, som indeholder stien

DEt skal være sådan, at det er muligt for brugeren selv at vedhæfte det i formularen er det muligt??

ja, sagtens, men der ligger en del i det. Dels skal du have en VBA-funktion til lade brugeren browse efter filen. Men brugeren skal vel også have mulighed for at åbne filen inde fra Access!?

Alt i alt en del kode, som kræver en del forklaring og lidt nærmere kendskab til din database

Ok er det det noget du har muligehd for at hjælpe med??

Hvis tilbudet er skrevet i Word, og din post i Access indeholder en unik værdi, så kan du sagtens fra Access åbne en skabelon i word, skrive dit tilbud og få navngivet tilbudet med Access unikke værdi. Derefter kan du fra Access igen åbne det afsendte tilbud.

Det kræver en del programmering, men er absokut muligt. Jeg kan sende dig et eksempel på når jeg er hjemme fra arbejde. Blot læg din e-mail.

HEj Mugs det må du meget gerne - Hvis du også vil forklare hvor jeg skal plotte koden ind med videre
Med venlig hilsen

BittenNielsen69@hotmail.com

Sendt.

Tak for point. Det kan være lidt bøvlet at omsætte et eksempel til din aktuelle db, men da du har givet point antager jeg, at det lykkedes. Ellers må du vende tilbage.

Ja mugs - MEn jeg fandt ud af det faktisk også kan laves via en hyper link - Kunne man så evt. lave en knappe der give adgang til, at placere en hyperlink vil det jo være genial!!

Den simple løsning her: Lav en makro med følgende:
'GåTilKontrolelement' (kontrolelementet skal selvfølgelig være din tekstboks hvor du har hyperlinket)
'KørKommando' => IndsætHyperlink

kkc - Kan du uddybe det??

Skal nok lave et nyt sp. så du får point;-)

Du kan lave en kommandoknap og i designvisning > Fanen Formater indsætte en hyperlink på knappen

Hvis du ikke vil ind i VBA-editoren hver gang du vil indsætte et link, kan du lave et felt og henvise til dette:

Me.Kommandoknap0.HyperlinkAddress = Me.Tekst1

Hvor Tekst1 er det felt hvori du skriver addressen på den fil du vil åbne med linket ved tryk på Kommandoknap0.

Koden kan du indsætte i formularens VedAktuel (Current) event.

Jamen Mugs det er forskelligt hvilken Hyperlink der skal tilknyttes til hver enkelt post. F.eks. Har jeg oprettet 100 kunder i mit system hvor der er x antal aktiviteter tilknyttet hver enkelt post/ kunde. Til hver enkelt arktivitet skal brugeren have mulighed for at tilknytte sin egen hyperlink/ dok - Ved blot at trykke på en knap.. skal de selv angive stien..

Eksempel sendt.

Mugs det er lige nøjagtigt hvad jeg har leedt efter, men jeg har desværre et lille problem. JEg har følgende kommandoknap 10 = Find fil/ hyperlink / kommandoknap 11 = åbn fil/ hyper link

Felt i tabel og forespørgsel hvor fil stien skal gemmes = Link

Forespørgselsnavn = Arktivitet

Formularen = Arkitivitet forespørgsel

Du har følgende:
Private Sub Kommandoknap20_Click()
Me.Kommandoknap28.HyperlinkAddress = LaunchCD(Me)
'Me.felt1 = Me.Kommandoknap28.HyperlinkAddress
End Sub

Hvad står LaunchCD (me) for??

Jeg skal nok oprette et ekstra sp. til dig, hvor du får point for hjælpen

Hvis du åbner min db i databasevinduet, vil du under fanen "moduler" se, at jeg har lavet et modul. Det hedder Modul1 og noget af det ser således ud:

Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.Hwnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"bmp Files (*.BMP)" & Chr(0) & "*.BMP" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "D:\VBA funktioner\VBA"
OpenFile.lpstrTitle = "Vælg en fil og tryk på Åbn."
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "Manglende fil!", vbInformation, _
"Du har ikke valgt en fil fra Stifinderen."
Else
LaunchCD = Trim(OpenFile.lpstrFile)
End If
End Function

Navnet på denne procedüre er netop LaunchCD, og du kalder modulet fra formularen. Nu skal du ikke til at skrive al denne tekst, så du åbner di egen db i databasevinduet > Filer > Hent eksterne data > Browse ned igennem bibliotekerne til du finder min db > Fanen Moduler > Marker Modulet og tryk på OK.

Nu vil din egen db importere modulet, og så skal det køre under forudsætning af, at du har indsat koden i formularen korrekt.

Som default bibliotek vil du nu åbne flg.:

OpenFile.lpstrInitialDir = "D:\VBA funktioner\VBA"

Og du vil få en fejl, da du sikkert ikke har dette bibliotek. Du udskifter blot biblioteket med stien til det bibliotek, du vil have åbnet som default.

Nu har jeg bare det sidste problem den gemmer ikke genvejen - Dvs den gemme ikke filen til hver enkelt post som den gjorde i din database

Kontroller koden i den knap der henter hyperlinket. Kommandoknap20 henter hyperlink ved at åbne modulet. Kommandoknap28 henter filen. felt1 gemmer stien til filen i tabellen:

Private Sub Kommandoknap20_Click()
Me.Kommandoknap28.HyperlinkAddress = LaunchCD(Me)
Me.felt1 = Kommandoknap28.HyperlinkAddress
Me.Kommandoknap28.HyperlinkAddress = Me.felt1
End Sub

Sorry - Min fejl:

Me.Kommandoknap28.HyperlinkAddress = Me.felt1

skal indsættes i kommandoknap28 VedKlik.

Mærkelig før ville den virke bare uden, at gemme nu virker den ikke den melder fejl i sidste led

Me.Kommandoknap11.HyperlinkAddress = LaunchCD(Me)
'Me.felt1 = Me.Kommandoknap11.HyperlinkAddress
Me.Kommandoknap11.HyperlinkAddress = Me.felt1

End Sub

Er felt1 ikke det du kalder link:

Me.Kommandoknap11.HyperlinkAddress = Me.felt1

Hvis det er tilfældet, kender din db ikke felt1. så skal den vel se således ud:

Me.Kommandoknap11.HyperlinkAddress = Me.link

Nej jeg har omdøbt det

Kan du nærmere beskrive fejlen?

Private Sub Kommandoknap10_Click()

Me.Kommandoknap11.HyperlinkAddress = LaunchCD(Me)
'Me.felt1 = Me.Kommandoknap11.HyperlinkAddress
End Sub

Private Sub Kommandoknap11_Click()
Me.Kommandoknap11.HyperlinkAddress = Me.felt1

End Sub

Den debugger i sidste linje method or data member not found

Ja - Men du skrev tidligere, at du fik en fejl. Hvordan beskriver Access fejlen? Du må få en fejlmeddelelse på skærmen.

Den skriver bare det her - method or data member not found. JEg han godt åbne en fil/vedhæfte den, men den gemmer ikke og jeg kan ikke åbne den fra den konkrete post!!Du må virkelig undskylde at jeg tager alt den tid;-)

Prøv at se på linie 2. Der er en apostrof til venstre for Me.felt1. Prøv at fjerne den, da Access opfatter al kode til højre for apostrof som tekst.

Me.Kommandoknap11.HyperlinkAddress = LaunchCD(Me)
'Me.felt1 = Me.Kommandoknap11.HyperlinkAddress
End Sub

Efter jeg har fjernet denne - vil den slet ikke åbne bib for filer nu debugger den således før og skriver forsat method or data member not found

Er du venlig at sende filen, så ser jeg på den imorgen aften. Det er blot en lille fejl.

mugs@mail.dk

ok Jeg opretter lige sp. og giver dig point - Det er i arktivitetsformularen at det skal ændres.

http://www.eksperten.dk/spm/401520