2016 Acces İle Resim Ekleme Sorunu

1 2 3
08/01/2024, 16:54

yturan

Merhabalar...

Bir sürücü kursunun Access programına resim ekleme kısmı yapmaya çalışıyorum. Siteden bir hayli farklı uygulama buldum, denedim. Program 2003 Access ile yapılmış. 2016 Access ile açtığımda oluşan hataları düzelttim. Ancak bu sefer resim ekle kısmı çalışmadı. Basit bir şeydir ama ben yapamadım. Siz üstatların yapacağını biliyorum. Yardım ederseniz sevinirim. Ekte gönderdiğim kayıt formunda resim ekle kısmı 2003 Access le açılıyor ama 2016 Access ile açılmıyor.
08/01/2024, 17:20

atoykan

Merhaba Sayın @yturan

Örneğinizde herhangi bir sorun yok resim ekleme ve kaydetme işlemlerini yapıyor. Hata aldığınız noktada "Path not found" hatası alıyorsunuz büyük ihtimalle.
Kodunuzda
Kod:
Hedef = CurrentProject.Path & "\resim\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
kısmı fotoğrafın  seçilip kopyalanacağı Resim adlı klasörü arıyor ve yoksa hata veriyor.
Kod:
Hedef = CurrentProject.Path & "\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
şeklinde değiştirerek doğrudan projenin olduğu klasöre kaydedebilirsiniz, veya resim adlı klasörü oluşturabilir ve kodu orjinal hali ile kullanabilirsiniz ya da çalışmanıza uygun resimlerin kaydedileceği yeri belirleyip kodda ilgili alanı buna göre revize edebilirsiniz.
09/01/2024, 13:17

yturan

(08/01/2024, 17:20)atoykan yazdı: Merhaba Sayın @yturan

Örneğinizde herhangi bir sorun yok resim ekleme ve kaydetme işlemlerini yapıyor. Hata aldığınız noktada "Path not found" hatası alıyorsunuz büyük ihtimalle.
Kodunuzda
Kod:
Hedef = CurrentProject.Path & "\resim\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
kısmı fotoğrafın  seçilip kopyalanacağı Resim adlı klasörü arıyor ve yoksa hata veriyor.
Kod:
Hedef = CurrentProject.Path & "\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
şeklinde değiştirerek doğrudan projenin olduğu klasöre kaydedebilirsiniz, veya resim adlı klasörü oluşturabilir ve kodu orjinal hali ile kullanabilirsiniz ya da çalışmanıza uygun resimlerin kaydedileceği yeri belirleyip kodda ilgili alanı buna göre revize edebilirsiniz.

2016 Acces ile Resim ekle düğmesine tıkladığım vakit, hiç bir değişiklik olmuyor. Ancak Ofiss 2003'de çalışıyor. Resim klasörü olsa da alışmıyor, sezin gönderdiğiniz şekilde düzenlesem de çılışmıyor.
09/01/2024, 14:10

berduş

GetOpenFile_CLT yordamı sürekli boş değer gönderiyor. bu fonksiyon dosya seçmek için değil mi?
09/01/2024, 15:09

yturan

(09/01/2024, 14:10)berduş yazdı: GetOpenFile_CLT yordamı sürekli boş değer gönderiyor. bu fonksiyon dosya seçmek için değil mi?

Ben kod bilmiyorum, siteden aldığım kodlar, uygulamalar, örnekler... Siz düzenleyebilirseniz sevinirim...
09/01/2024, 18:03

atoykan

(08/01/2024, 17:20)atoykan yazdı: Kodunuzda
Kod:
Hedef = CurrentProject.Path & "\resim\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
kısmı fotoğrafın  seçilip kopyalanacağı Resim adlı klasörü arıyor ve yoksa hata veriyor.
Kod:
Hedef = CurrentProject.Path & "\" & Me.ADI & "-" & Me.TC_NO & ".jpg"
şeklinde değiştirerek doğrudan projenin olduğu klasöre kaydedebilirsiniz,

  1. Koddan resim çıkartılmış halde
    buradan izleyebilirsiniz kayıt yaptığını Resim ibaresi çıkartılmış
  2. Veritabanının kayıtlı olduğu klasöre Resim klasörü eklenmiş halde
    buradan izleyebilirsiniz kayıt yaptığını Resim klasörü eklenmiş olarak
1 2 3