sayın qatlet,
bahsettiğiniz hata ile ilgili aşağıdaki bilgilerin yeterli oalcağı kanısındayım.
VARIABLE NOT DEFINED HATASI NEDENİ
Kodlama sayfasında bir değer tanımlaması yapılmadığında beliren uyarı mesajı içeriğidir.
Uygulamanızdaki kodlamalar incelendiğinde,bu hatanın gösterildiği satır;resimler adlı formunuzun getFileName adlı fonksiyon kodları arasındaki With Application.FileDialog(msoFileDialogFilePicker) satırıdır.
Bu kod öncesinde hem bir tanımlama ve atama yapmalısınız hem de referanslardan Microsoft Office 12.0 Object Library seçili olmalı.
Bu hatayı düzeltmek için bu referansı ekledikten sonra,aşağıdaki kodlamayı, resimler adlı formunuzun getFileName adlı fonksiyonuna eklemeniz yeterli olacaktır.bilginize.
Kod:
' 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
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
' With Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Resim Seç"
.Filters.Add "Bütün dosya türleri", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "C:\"
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
İyi çalışmalar,
Saygılar.
#1
Emlak.rar
(Dosya Boyutu: 885,48 KB | İndirme Sayısı: 7)
