2016 Acces'te mdb uzantılı dosyayı açamadığım için, kodlarda Declare ifadesinden sonra "PtrSafe" ifadesini yerleştirmem gerektiği yazıyor sitede...
Yaptığımda program 2016 Access7te hata vermeden açılıyor. Ancak resim ekle düğmesi çalışmıyor. Hata da vermiyor ama çalışmıyor. Açmama nedenini bu koda bağlıyorum. Örneği yukarıda... Bunun bir yolu yordamı var mıdır kardaşlar?
Zor demek ki... Yine de teşekkürler kardaşlar...
zor olmasından değil ama forumda yığınla resim yada dosya seçme ile ilgili konu var,
o başlıkları araştırdınız mı?
sorun sadece resim seçimi için dialog penceresinin açılması ise
Kaynak = GetOpenFile_CLT("C:\", "Resim Seçiniz...") kodunu silip yerine aşağıdakileri eklemeyi dener misiniz?
Kod:
'_____________________________________________Dosyaseç
Dim fDialog As Object, varFile
Set fDialog = Application.FileDialog(3) 'msoFileDialogFilePicker = 3)
With fDialog
' Allow user to make multiple selections in dialog box
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Resim Seçiniz..."
' Clear out the current filters, and add our own.
.Filters.Clear
' .Filters.Add "Access Databases", "*.MDB"'bu kısımlar dosya uzantıları için
' .Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
Kaynak = varFile
Next
Else
MsgBox "Seçim İptal edildi!."
End If
End With
Forumda resim ekle ile ilgili tüm konuları araştırdım. Personel programlarındaki resim ekle kısımlarına baktım. Bu söylediğim hiç birinde olmadığı için konu açtım. Yani sitede verilen örnek uygulama benim bu paylaştığım zaten. 2016
Access ile sitedeki örnek uygulama hata verdiği için yazdım. Bu söylediğiniz değişikliği yapınca resim açılıyor artık. Ancak diyelim 5'inci kaydı resim ekliyorsunuz, ekliyor ama 1'inci kayda getiriyor. Sonra 6.kayda ekleyeceksiniz, ekliyorsun, ekliyor ama yine 1'inci kayda getiriyor. Bu da kaydı zorlaştırır her defasında 1.kayıttan dönmek... Yine kolaydır eminim sizin için biliyorum... İlginiz için desteğiniz için teşekkür ederim, iyi ki varsınız...
dosyanızı inceleme fırsatım yeni oldu 2 hata saptadım, 3. madde sadece ilk kayda gitme sebebiyle ilgili
1 - en önemli hatanız resim ekleme yordamınızın ismini hatalı girmişsiniz;
siz resim seçme yordamını
FileCopy Kaynak, Hedef olarak çağırmışsınız oysa çalışmanızda böyle bir yordam yok
CopyFile Kaynak, Hedef yazmalıydınız
2 - eklediğiniz çalışmada siz
Dim Kaynak, Hedef olarak tanımlamışsınız
byval hatası verebiliyor o nedenle o kısmı
Dim Kaynak As String, Hedef As String şeklinde düzenlemeniz yerinde olur
3 -
(15/01/2024, 08:54)yturan yazdı: Ancak diyelim 5'inci kaydı resim ekliyorsunuz, ekliyor ama 1'inci kayda getiriyor. Sonra 6.kayda ekleyeceksiniz, ekliyorsun, ekliyor ama yine 1'inci kayda getiriyor. Bu da kaydı zorlaştırır her defasında 1.kayıttan dönmek..
bunun sebebi kopyalama işleminden sonra
Me.Requery kodunu çalıştırmanız, bu kod formu yenilediği için ilk kayda gidiyor.
Me.Requery kodunun kullanılmasının özel bir sebebi yoksa
Me.Requery yerine
Kod:
ResimCercevesi.Picture = CurrentProject.Path & "/resim/" & Me.ADI.Value & "-" & Me.TC_NO & ".jpg"
kodunu kullanabilirsiniz.
Not: yukardaki açıklamalar eklediğiniz dosyayla ilgili
eğer resim seçmek için benim önerdiğim kodu kullandıysanız sadece 3. maddedeki değişikliği yapmanız yeterli
iyi çalışmalar
not: eklediğiniz örnekler çalışmalarda lütfen kişisel veriler olmasın. kişilere ait fotoğrafla olduğundan dosyanızı kaldırdım. fotoğrafları sildikten sonra tekrar ekleyebilirsiniz