+- 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 LibraryCvp: 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