Variable not defined hatası - Baskı Önizleme

Variable not defined hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Variable not defined hatası (/konu-variable-not-defined-hatasi.html)

Variable not defined hatası - QATLET - 30/12/2014

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

Cvp: Variable not defined hatası - atoz112 - 30/12/2014

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.

Cvp: Variable not defined hatası - QATLET - 30/12/2014

Sayın atoz112;

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