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"
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