ACCESS 2003 vložení ole přes VBA

[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

[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