Skip to main content

AccessTr.neT


Variable not defined hatası

Variable not defined hatası

Çözüldü #1
İ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. 
.rar Emlak.rar (Dosya Boyutu: 885,48 KB | İndirme Sayısı: 7)
Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Sayın atoz112;

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da