Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Excell verileri ile access tablosunu güncelleme

[VBA] Excell verileri ile access tablosunu güncelleme
uguruygar
Yeni Üye 15-40

*
Kayıt Tarihi: 06.04.2016
Toplam 10 konu açtı.
Toplam 38 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#1
22-11-2016, 01:34
Sn. sezgin hocam;

Eklediğim örnekte "ogrencigecici" adında bir tablo kullanarak "ogrenciler" tablomu kendi çapımda güncellemeye çalıştım(yeni kayıt ekle yada kayıt var ise güncelleştir gibi).Bu işlemi "ogrencigecici" tablosu kullanmadan nasıl kodlayabilirim? Bir sorunumda bu konuyla ilgili değil ama koşullu biçimlendirme kullanarak imlecin olduğu kaydı sarı renkli yapmaya çalıştım ama ekran kıpır kıpır göz yoruyor.Kulağımı tersten tuttum sizin anlayacağınız.Daha işlevsel ve görüntüde sarsılma olmadan kodlama ile yapmak mümkün mü?


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 47,5 KB / İndirilme: 80)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.738 yorum yaptı.
Toplam 969 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 48 / 211
#2
22-11-2016, 05:10
Visual Basic
  1. Private Sub iceri_Click() 'EXCELL den tablo çekerek ekleme yada güncelleme yapar
  2. On Error GoTo hata1
  3. '...
  4. DoCmd.TransferSpreadsheet acLink, 8, "ogrencigecici", DosyaAdi, True 'öğrencigececiye baglar
  5. CurrentDb.Execute "UPDATE ogrenciler INNER JOIN ogrencigecici ON ogrenciler.tcno = ogrencigecici.tcno SET ogrenciler.ogrencino = [ogrencigecici].[ogrencino], ogrenciler.adısoyadı = [ogrencigecici].[adısoyadı], ogrenciler.sınıfı = [ogrencigecici].[sınıfı]"
  6. CurrentDb.Execute "INSERT INTO ogrenciler ( tcno, ogrencino, adısoyadı , sınıfı ) SELECT ogrencigecici.tcno, ogrencigecici.ogrencino, ogrencigecici.adısoyadı, ogrencigecici.sınıfı FROM ogrenciler RIGHT JOIN ogrencigecici ON ogrenciler.tcno = ogrencigecici.tcno WHERE (((ogrenciler.tcno) Is Null))"
  7. DoCmd.DeleteObject acTable, "ogrencigecici"
  8. ...
  9. hata1:
  10. ...
  11. End Sub


Tablo baglama ile olmayanlar ekleme, olanlar guncelleme ile veri degisikligi yapilabilir.

Titreme olayi nesnelerin bicimlenmesi ile olabiliyor. Metin kutularin arka plan renkleri seffaf yapmaniz ve Ayrinti alani renklendirme daha uygun olabilir.
Private Sub Ayrıntı_Paint()
Me.Ayrıntı.BackColor = IIf(Me.ogrencino = Me.ogrencinorenk, vbYellow, vbWhite)
End Sub

.rar   uguruygar_ds.rar (Boyut: 40,7 KB / İndirilme: 109)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
uguruygar
Yeni Üye 15-40

*
Kayıt Tarihi: 06.04.2016
Toplam 10 konu açtı.
Toplam 38 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#3
22-11-2016, 11:41
Teşekkürler SEzgin hocam çok saolun.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Tablodaki Verileri Yan Yana Yazdırmak 10pele 11 141 09-03-2024, 02:52
Son Mesaj: dsezgin
  Ağ Konumundaki Excel Dosyasından Alınan Verileri Güncelleyememe geneclean 2 113 20-02-2024, 14:27
Son Mesaj: dsezgin
  Güncelleme metınaycıcek 20 430 18-02-2024, 00:26
Son Mesaj: metınaycıcek
  Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme geneclean 5 179 13-02-2024, 15:51
Son Mesaj: dsezgin
  Güncelleme metınaycıcek 16 284 04-02-2024, 08:13
Son Mesaj: metınaycıcek
  Verileri Güncellemek m_demir 18 349 21-01-2024, 19:59
Son Mesaj: m_demir
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 245 08-01-2024, 11:58
Son Mesaj: bilservisci
  Tablodaki Verileri Yan Yana Yazdırmak atyaty 4 328 11-12-2023, 12:57
Son Mesaj: atyaty

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi