Variable not defined hatası

30/12/2014, 10:46

QATLET

İlişikteki uygulamada ( bina formunun resimler sayfasında )  Sayın Mehmet Demiral'in 6 resimli albüm çalışmasını kullandım. Ancak resim eklemede " Variable not defined"  hatası alıyorum. 

Uygulamam ilişiktedir. 

Saygılar. 
30/12/2014, 11:57

atoz112

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.
30/12/2014, 12:49

QATLET

Sayın atoz112;

Yardımınız için teşekkürler.