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
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