Resimle Ekleme ile ilgili hata kodu

[huseyni]

RESİM EKLEME ALANI YAPTIM: FAKAT BİR SORUN VAR: kırmızı rekli olan yerde hata oluyor. bunu nasıl düzeltirim

Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Me.ImagePath = Null
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker) .Title = "Resim Seç"
.Filters.Add "Bütün dosya türleri", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = "C:\Resimler"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Value = fileName
Me!Adı.SetFocus
Me![ImagePath].Visible = False
Call ImagePath_AfterUpdate
End If
End With
End Sub

 

[modalı]

Sayın huseyni,

Lütfen sorularınızı Access soruları bölümünde sorun. Burası tamamlanmış olan örnek uygulamaların paylaşıldığı yer.

Sorununuza gelince Referansınız eksik. Referans ekleme den Microsoft Oficce 1x.0 Object Library referansını ekleyin.

İyi çalışmalar

 

[huseyni]

Teşekkür ederim Kusura bakmayın dikkatsizlikten yanlış bölüme yazmışım.

Saygılarımla...