Kopier billede til mappe fra formular

Det du beskriver kan lade sig gøre ved at kode i VBA :)

som somaliomar kommenterer kan det lade sig gøre ved en VBA kode. Du kan åbne stifinderen fra din formular og vælge et billede, der så indsættes i din formular / tabel.

Jeg har en testdb liggende, men som tidligere nævnt har jeg lige formatteret, og kan ikke sende den lige nu. Men prøv at søge i besvarede spørgsmål. Det er ike længe side, jeg har besvaret det samme spørgsmål.

I would use the common dialog control for finding the file, an dthen the rest I would do in VBA. Also, if you save the path+filename in the dB and NOT the actual picture then you should not be able to have duplicate files IF you make the dB field to a unique key.

Here is an alternative to the common dialog
http://www.mvps.org/access/api/api0001.htm

Kan i give et eksempel. evt. send det til mig.

myg@tiscali.dk

//Mekaniker

Hvis jeg prøver at sætte objectet "common dialog control" ind på en form.

Får jeg denne fejl.

You don't have the licensen required to use this activeX control..???????

Prøv at søge i Access spørgsmåloversigt, brug evt. søgeord som stifinder.

Nu har jeg oprettet modulet som beskrevet på http://www.mvps.org/access/api/api0001.htm

Men hvordan referere jeg til det fra en knap på min form.

Og når jeg så har valgt filen, skulle jeg gerne have en tekstbox hvor enten filnavnet og/eller stien til denne skulle komme frem.

er der nogle som kan hjælpe..??

//Mekaniker

Private Sub CommandButton1_Click()
Dim strFilter As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
TextBox1 = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
End Sub

Eksempel sendt.

>> Somaliomar

Det virker det du har skrevet, kan du fortælle mig hvordan jeg kun får filnavnet sat ind i tekstboxen. og ikke hele stien

//Mekaniker

Private Sub CommandButton1_Click()
Dim strFilter As String
Dim strTmp As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strTmp = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
TextBox1 = Mid(strTmp, InStrRev(strTmp, "\") + 1, Len(strTmp))
End Sub

Tak for hjælpen

selv tak :o)

terry >> Hvordan kan det være, at du poster al din tekst på engelsk?

Jeg er fra UK, og skriver ikke så godt dansk! Det går ALT for langsomt :o)

I've been asked the same Q many times :o)

OK. Nu ved jeg det også :)