FileDialog Kabul etmiyor - 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ığı: FileDialog Kabul etmiyor (/konu-filedialog-kabul-etmiyor.html) Sayfalar:
1
2
|
FileDialog Kabul etmiyor - aydın3838 - 21/12/2010 Selam Bir çok uygulamada kullandığım kodlar hata verdi referanslar da tamam sorun nerde yardımcı olusanız sevinirim User-Defined Typ not defined Dim dlg As FileDialog Dim si As Variant Dim uzan As Integer Dim FileName, yeniyol As String Dim vrtSelectedItem As Variant If IsNull(Adres_ID) Then: MsgBox "Kayıtlı Veri Yok !!! " & "Kayıtı Veri Olmadan Resim Ekleyemezsiniz": Exit Sub If Len(Dir(Application.CurrentProject.Path & "\CariResim", vbDirectory)) = 0 Then ' MkDir Application.CurrentProject.Path & "\CariResim" End If Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .AllowMultiSelect = False .ButtonName = "Select Pic" .Filters.Add "Pictures", "*.gif; *.jpg; *.jpeg; *.bmp" .Filters.Add "All", "*.*" .FilterIndex = 0 .InitialFileName = Environ("UserProfile") & "\My Documents\*.bmp;*.gif;*.jpg;*" '.InitialFileName = Application.CurrentProject.Path & "\CariResim" .InitialView = msoFileDialogViewThumbnail .Title = "Select picture..." If .Show = True Then For Each vrtSelectedItem In .SelectedItems FileName = vrtSelectedItem uzan = InStr(StrReverse(FileName), "\") yeniyol = Application.CurrentProject.Path & "\CariResim" & Right(FileName, uzan) Debug.Print yeniyol & "----- " & FileName If FileName = yeniyol Then GoTo ylcn End If Next vrtSelectedItem FileCopy FileName, yeniyol ylcn: Me.picImage1 = yeniyol Me.Image145.Picture = picImage Me.Etiket133.Visible = False Me.Resim1.Visible = False End If End With Cvp: FileDialog Kabul etmiyor - POWER - 21/12/2010 Örnek ekleyiniz... Cvp: FileDialog Kabul etmiyor - Hayri16 - 21/12/2010 Sayın aydın3838; Yukarıdaki kodlardan benim anladığım, forma veya tabloya resim ekleme için dosya dialog kutusunu açan bir çalışma. Yine sanırım bu bir modülde kullanılıyor. Daha önce çalıştığınızı söylediğinize göre(nasıl bir hata verdiğini de belirtmemişsiniz); 1- Kullanılan yollar, yani dizinler v.b değişmiş olabilir. Özellikle My document, türkçe windowslarda "belgelerim" olarak kullanılıyor olabilir. 2- Değişken veya tablo ismini kullanıyorsa onları kontrol etmek gerekir. Örneğin Adres_id diye bir şey görüyorum. Ama yine de en doğrusu Ufuk Hocamın söyledği gibi örnek eklemeniz ve daha ayrıntılı bilgi vermeniz. Kolay gelsin. Cvp: FileDialog Kabul etmiyor - aydın3838 - 21/12/2010 Uygulamanın bulunduğu yere CariResim adında bir klasör ekleyin ve resim eklemeye çalışırsanız hata verdiği görülecektir saygılarımla Cvp: FileDialog Kabul etmiyor - ozanakkaya - 21/12/2010 Bu hatanın sebebi Kod:
Microsoft Office (Versiyon Numarası) Object Library Cvp: FileDialog Kabul etmiyor - aydın3838 - 21/12/2010 referanslar görünürde tamam diğer projelerimde de kullanmakta olduğum kodlar bu defa hata verdi |