Kod:
https://drive.google.com/file/d/167SvKREzre-2lj4CDzZX7LO0xyE_cynN/view
Kod:
https://drive.google.com/uc?export=download&id=167SvKREzre-2lj4CDzZX7LO0xyE_cynN
önceki mesajımda eklediğim son uygulamada, yakit_hesapla.mdb çalıştırılıp guncelle.mdb indirildiğinde, guncelle.mdb dosyasının içerisindeki tablo değiştiriliyor.
Dim db As DAO.Database
Dim strSQL As String
Dim GDosyaDizin, GEskiDosya, GYeniDosya As String
GDosyaDizin = CurrentProject.Path & "\"
GEskiDosya = Dlookup ("uygulamaadi", "tbl_uygulama_ayarlari")
GYeniDosya = Dlookup ("yenidosyaadi", "tbl_uygulama_ayarlari")
Set db = OpenDatabase(Environ("TEMP") & "\" & GGuncelleDosyaAdi)
db.Execute "Delete * FROM tbl_guncellemeayar;"
db.Execute "INSERT INTO tbl_guncellemeayar (dosyadizin, eskidosyaadi,yenidosyaadi) VALUES ('" & GDosyaDizin & "', '" & GEskiDosya & "', '" & GYeniDosya & "');"
db.Close
Sabit olan birşey yok. Kod sayfasında değişiklik yapmak yerine, gerekli tanımlamaları tabloya ekledim. Karışık bir durum yok.