ACCESS 2003 vložení ole přes VBA
Napsal: 02 zář 2008 13:07
od Pavel123
Dobrý den,
můžete mi někdo prosím poradit jak vložit pomocí VBA Ole object (bitmap picture) buď do pole v recordset (pokud to jde) nebo do pole "bound frame" na formuláři? Nějak se mi na to nedaří přijít.
Děkuji
Pavel
Re: ACCESS 2003 vložení ole přes VBA
Napsal: 08 zář 2008 04:57
od Pavel123
Tak se mi posarilo najít alespon castecnou odpoved:
Kód: Vybrat vše
Private Sub Příkaz6_Click()
On Error GoTo Err_Příkaz6_Click
With Me![Ole]
.Enabled = True
.Locked = False
' Specify what kind of object can appear in the field.
'.OLETypeAllowed = acOLELinked
.OLETypeAllowed = acOLEEmbed
' Class statement--optional for Excel worksheet.
.Class = ".bmp"
' Specify the file to be linked.
' Type the correct path name.
'C:\\Casey's Stuff\\Photos\\DB Photo Shots\\ApprenticeNumber
.SourceDoc = "D:\" & "BritishGuianaPS101-5Dollars-1926-donated_f.bmp"
' Range statement--optional for Excel worksheet.
.SourceItem = ""
' Create the linked object.
.Action = acOLECreateLink
' Optional size adjustment.
.SizeMode = acOLESizeStretch
End With
Exit_Příkaz6_Click:
Exit Sub
Err_Příkaz6_Click:
MsgBox Err.Description
Resume Exit_Příkaz6_Click
End Sub
Je to od Anonymous z fora ktere si už bohužel nepamatuji
Snad se autor zlobit nebude
Pavel