Skip to main content

AccessTr.neT


Re: Resim Tablosunu Başka Veritabanına Göndermek

Re: Resim Tablosunu Başka Veritabanına Göndermek

Çözüldü #1
https://accesstr.net/konu-klasorden-resi...madir.html
program resimlerini paylaşacağım dediğim uygulamayı uyuyup uyanıp devam ediyorum.

anlayacağınız; bu konuda uzun zamandır uğraşıyorum.
emekli olalı 3 yılı geçti.
bu yaştan sonra makro ile devam.

ilk defa 2003 yılı .mdb olarak paylaştığım
resim sihirbazı veritabanını değişiklik yaparak paylaşmıştım.
https://accesstr.net/konu-resim-olan-tab...irmek.html

bu defa aynı veri tabanında bir klasör
içindeki 2 adet dosya içindeki resimleri bir veritabanında toplayıp
bu tabloyu başka bir veritabanı içine gönderebiliyordum.

BU UYGULAMA NASIL bozuldu yada hata vermeye başladı derseniz.

Mevcut uygulamaya menü kısmı yaptığım 2003 içine attım ve uygulama çalışmaz hale geldi.


bu 2003 uygulamasını 2010 olarak geliştirdim fakat
daha önceki
1-resim al kısmını çalıştıramıyorum.
2-veri aktar kısmı çalışmıyor
.rar Resim_Sihirbazı_Hgsoftware.rar (Dosya Boyutu: 5,01 MB | İndirme Sayısı: 12)
Başta..ne demiştik..! ADRES VERİ TABANI SİSTEMİ GELECEĞİMİZ_ GEÇMİŞİMİZ İÇİN PLANLANMALI .ADRES_TC KİMLİK NO. KARDEŞTİR DEDİK; 1999 YILINDA; yola çıktık ya tutarsa misali... H&G_software_M_İ_P programı koyduk o günlerde adına; ilçemdeki tüm bilgileri 255 sutunlu,bir tabloda toplamaya başladık DEDİĞİMDE ;KİMSE İNANMAMIŞTI...bu dev tabloyu sorgu ile bölüp bölüp kullanacağım demiştik ya;O GÜNLERDE;  bazıları bu tablodan birşey olmaz demişti YA hani...Biz yılmadık...çalıştık araştırdık_sorduk_söz dinledik..kör,topal yol aldık; şimdi son rötuj zamanı...(UAVT VE MAKS YOK İKEN GÖRÜLEN RÜYA GERÇEĞE DÖNÜŞÜYOR)
Son Düzenleme: 20/04/2023, 16:08, Düzenleyen: hgsoftware. (Sebep: bu çalışma baştan itibaren eğitim nitelikli olsun istedim.)
Cevapla
Çözüldü #2
Merhaba,
Yeni veritabanı oluştur, çalışmayan uygulamadaki tüm nesneleri yeni veritabanına aktar. 

Ofis sürümü ile ilgili hata alıyorsanız, modüldeki 

Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As shellBrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
         ByVal lpBuffer As String) As Long


Şeklindeki kodların tamamını ptrsafe ekleyerek

#If VBA7 Then

Declare PtrSafe Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Declare PtrSafe Function SHBrowseForFolder Lib "shell32" (lpbi As shellBrowseInfo) As Long
Declare PtrSafe Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
         ByVal lpBuffer As String) As Long
        
#Else

Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As shellBrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
         ByVal lpBuffer As String) As Long


#End If


Şeklinde değiştir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task