Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
13
1333

Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

Çözüldü #1
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 55
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
Merhaba
Excel sayfasına formdan girilen bilgileri arama butonu yardımıyla ID değerine göre buluyor ve form üstüne getirerek güncelleme ve silme işlemlerini yapabiliyordum. Fakat kayıt sayısı fazla olduğunda ID numarasını bulmakta ayrı bir filtreleme işlemi gerektireceğinden zaman kaybı oluşturacaktı ve çok kullanışlı olmadığından
bu yöntemden vazgeçtim. Firma Ünvanı adlı Textbox'ın change olayına yazılan kodla bilgileri Sayfadan forma getirebiliyorum. Form Üzerinde bir değişiklik yapıldığında güncelleme butonuna basarak bu değişikliklerin gerçekleşmesini nasıl sağlayabilirim. Yardımlarınız için teşekkür ederim.

Kod:
Private Sub btn_Guncelle_Click()

With ThisWorkbook.Worksheets("Ana_Sayfa")


If MsgBox("Yaptığınız Değişiklikler Kaydedilerek, Bilgiler Güncellenecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub



        .Cells(Guncelle, 1) = TextBox_ID.Value
        .Cells(Guncelle, 2) = TextBox_FirmaAdi.Value
        .Cells(Guncelle, 3) = ComboBox_FirmaUnvani.Value
        .Cells(Guncelle, 4) = TextBox_YetkiliKisi.Value
        .Cells(Guncelle, 5) = TextBox_Telefon.Value
        .Cells(Guncelle, 6) = TextBox_Gsm.Value
        .Cells(Guncelle, 7) = TextBox_Email.Value
        .Cells(Guncelle, 8) = TextBox_Adres.Value
        .Cells(Guncelle, 9) = TextBox_Aciklama.Value
        .Cells(Guncelle, 10) = ComboBox_Ilce.Value
        .Cells(Guncelle, 11) = ComboBox_Sehir.Text
        .Cells(Guncelle, 12) = ComboBox_Bolge.Value
        .Cells(Guncelle, 13) = ComboBox_Temsilci.Value
        .Cells(Guncelle, 14) = ComboBox_RouteDay.Value
        .Cells(Guncelle, 15) = ComboBox_YetkiliBayilik
        .Cells(Guncelle, 16) = CheckBox_BioClimatic.Value
        .Cells(Guncelle, 17) = CheckBox_CamBalkon.Value
        .Cells(Guncelle, 18) = CheckBox_CamTavan.Value
        .Cells(Guncelle, 19) = CheckBox_FotoselliKapi.Value
        .Cells(Guncelle, 20) = CheckBox_Giyotin.Value
        .Cells(Guncelle, 21) = CheckBox_İsicamliSurme.Value
        .Cells(Guncelle, 22) = CheckBox_Pergola.Value
        .Cells(Guncelle, 23) = CheckBox_RuzgarKirici.Value
        .Cells(Guncelle, 24) = CheckBox_TavanPerdesi.Value
        .Cells(Guncelle, 25) = CheckBox_ZipPerde.Value
        .Cells(Guncelle, 26) = TextBox_Tarih.Value
 
    End With
   
 
 


End Sub
.rar WINPERAX SON.rar (Dosya Boyutu: 148,99 KB | İndirme Sayısı: 3)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 18/04/2021, 17:44, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - Yazar: Oğuz Türkyılmaz - 18/04/2021, 17:28
Task