fileopendialog

[alfa33]

iyi günler ben formdan bir fileopendialog açıp form üzerine bir resim eklemek istiyorum. forumda bulduğum örnekleri yazdım fakat benim yazdığım kodlar hata verdi dosya ektedir, yardımcı olursanız sevinirim. iyi çalışmalar.

 

[icetiner]

resim

 

[alfa33]

icetiner arkadaşım sizin gönderdiğiniz kod benim makinamda çalışmıyor,

 

[alfa33]

bu kod içindeki "load image" çalışıyor, aynısını yeni veri tabanına kopyalıyorum, çalışmıyor?

 

[jale]

Sayın İçetinerin gönderdiği dosyayı rar uzantılı olduğu için göremiyorum .

Ekte sizin dosyaansj1.zip

 

[alfa33]

jale hanım iyi günler gönderdiğiniz örnek benim makinamda çalışıyor, fakat gönderdiğiniz formu kendi çalışmama kes kopyala yapınca çalışmıyor. "compile error - variable not defined" hatasını veriyor,

 

[Haluk]

Kendi dosyanızda "Options Explicit" gibi bir satır varsa, silin ve tekrar deneyin.

 

[jale]

Günaydın :hey:

Anlamadığım şey ,ben zaten sizin gönderdiğiniz örnekte yapmıştım. :?
Yaptığım örnek o kadar da kolay değil. Anlatabilmek çok zor.
Dolayısıyle bu dosyaya kendi verilerinizi yüklemek daha kolay bir çözüm bence, ne dersiniz. :keyif:

 

[alfa33]

haluk bey dediğinizide yaptım sınuç yok, bend sadece bir filedialog açmak için küçük bir örnek yatım aşağıdaki kod sorun veriyor.

Sub deneme()
Dim dlgOpen as filedialog

Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)

With dlgOpen
.AllowMultiSelect = True
.Show
End With

program parçasını yazdığımda "Dim dlgOpen as filedialog" kısmında "compile error - user defined type not defined" hatası veriyor. filedialog u bir veri tipi olarak görmüyor ??
"

 

[alfa33]

jale hanım teşekkürler ama ben kodu anladım fakat başka bir dosyada yeniden yazmak istiyorum, yani balık tutmayı öğrenmek istiyorum (yeri burası değil ama), ben yazdığımda verdiği hata program hatası değil yukardaki örnekte sadece bir open dialog açmak istedim, hatayı nerede yapıyorum ??

 

[jale]

Referanslardan, Microsoft Office 11 Object Library eklediniz mi?

 

[Haluk]

Bende şu an MS Access olmadığı için fazla bir şey diyemiyorum ama, eğer aşağıdakileri bir module yerleştirip OpenFile isimli proseduru çalıştırırsanız, işinize yarayabilir...

Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
                (pOpenfilename As MyFile) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hWnd As Long, ByVal lpOperation As String, _
                 ByVal lpFile As String, ByVal lpParameters As String, _
                 ByVal lpDirectory As String, _
                 ByVal nShowCmd As Long) As Long
'
Type MyFile
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
'
Sub OpenFile()
    Dim FileToOpen As MyFile
    FileToOpen.lStructSize = Len(FileToOpen)
    FileToOpen.hwndOwner = 0
    FileToOpen.hInstance = 0
    FileToOpen.lpstrFilter = "Text Dosyalari (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) _
                           + "Bütün Dosyalar (*.*)" + Chr$(0) + "*.*" + Chr$(0)
    FileToOpen.lpstrFile = Space$(254)
    FileToOpen.nMaxFile = 255
    FileToOpen.lpstrFileTitle = Space$(254)
    FileToOpen.nMaxFileTitle = 255
    FileToOpen.lpstrInitialDir = "C:\"
    FileToOpen.lpstrTitle = "Açılacak dosyayı seçiniz ....."
    FileToOpen.flags = 0
    If GetOpenFileName(FileToOpen) Then
        MsgBox "Açılacak dosya: " + Trim$(FileToOpen.lpstrFile)
        ShellExecute 0, "Open", Trim$(FileToOpen.lpstrFile), vbNullString, "C:\", 1
    Else
        MsgBox "Dosya seçilmedi !"
    End If
End Sub

 

[alfa33]

Microsoft Office 11 Object Library yüklü gözüküyor, office2003 kullanıyorum! :kafa:

 

[jale]

Microsoft Office 11 Object Library yüklü gözüküyor, office2003 kullanıyorum! :kafa:

Hatanız kesinlikle referanslarda.... Microsoft access 11 object library dışında office de olmalı, toplam 6 tane referans var.

Aşağıdaki resimdeki referansların olduğu bir form açtım ve bir buton ekledim çalıştı.....

 

[alfa33]

jale hanım teşekkür ederim

 

[alfa33]

haluk bey sizin sonra gönderdiğiniz kodu da denedim, çok teşekkür ederim