Form Üzerinde gelen Bilgileri veri sayfasından silmek

[ferhatgurbuz]

Form üzerine sorgu çalıştır ile veriler geliyor. GElen verileri bir kod yardımı ile veri sayfasından tamamen silmek istiyorum. ililenen arkadaşlara teşekkür ederim

 

[Mahmut Kök]

Form üzerine sorgu çalıştır ile veriler geliyor. GElen verileri bir kod yardımı ile veri sayfasından tamamen silmek istiyorum. ililenen arkadaşlara teşekkür ederim

Örnek dosya eklerseniz sorunuz daha iyi anlaşılacaktır. Veri sayfasındaki veriler tek bir sütunda mı, değişik sütun ve satırlara dağılmış durumda mı? İyi çalışmalar...

 

[ferhatgurbuz]

dosya ektedir.

Program Şifreleri 1 dir.

Bilgi Girişi adlı userform üzerinden Personel No girerek sorgu çalıştır ile veriler ekrana geliyor gelen verileri Personel_Bilgi sayfasından silmek istiyorum.

 

[ferhatgurbuz]

ya arkadaşlar eksik bilgi mi verdim yoksa istediğim şeyin olması mümkün değil mi

 

[Mahmut Kök]

Bilgileri gösterilen personele ait tüm bilgiler silinecek galiba. Bu silme işleminde sadece değerler mi sıfırlanacak; yoksa personel numarası dahil, bu kişiye ait kayıt tamamen mi kaldırılacak?

 

[ferhatgurbuz]

Mahmut hocam Form üzerindeki TextBoxtlara gelen verilerin hepsi silinecek.

 

[Mahmut Kök]

Mahmut hocam Form üzerindeki TextBoxtlara gelen verilerin hepsi silinecek.

Textboxlara veri almada kullandığınız kodlarla aynı mantığı kullanarak yapabilirsiniz. Mesela, aşağıdaki kodlarla verileri metinkutularına alıyorsunuz:

...
If Not k Is Nothing Then
TextBox2.Value = Cells(k.Row, "D").Value 'ADI
TextBox3.Value = Cells(k.Row, "E").Value 'SOYADI
TextBox4.Value = Cells(k.Row, "F").Value 'DERECE
TextBox5.Value = Cells(k.Row, "G").Value 'KADEME
...

Bu kodları şu şekilde yazarsanız sayfadan silmiş olursunuz:

...
If Not k Is Nothing Then
Cells(k.Row, "D")=Empty 'ADI
Cells(k.Row, "E")=Empty 'SOYADI
Cells(k.Row, "F")=Empty 'DERECE
Cells(k.Row, "G")=Empty 'KADEME
...

 

[ferhatgurbuz]

Private Sub Sil_Click()
Sheets("Personel_Bilgi").Select
If OptionButton1.Value = True Then
For i = 2 To 8
Controls("TextBox" & i) = ""
Next i
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox2.Value = Cells(k.Row, "D") = Empty 'ADI
TextBox3.Value = Cells(k.Row, "E") = Empty 'SOYADI
TextBox4.Value = Cells(k.Row, "F") = Empty 'DERECE
TextBox5.Value = Cells(k.Row, "G") = Empty 'KADEME
TextBox6.Value = Cells(k.Row, "H") = Empty 'DERECE ( MÜKTESEP)
TextBox7.Value = Cells(k.Row, "I") = Empty 'KADEME ( MÜKTESEP)
TextBox8.Value = Cells(k.Row, "P") = Empty 'EK GÖSTERGE
TextBox10.Value = Cells(k.Row, "AC") = Empty '1. ÇOCUK
TextBox11.Value = Cells(k.Row, "AD") = Empty '2. ÇOCUK
TextBox12.Value = Cells(k.Row, "Q") = Empty 'YAN ÖDEME
TextBox13.Value = Cells(k.Row, "R") = Empty 'KIDEM YILI
TextBox14.Value = Cells(k.Row, "T") = Empty 'AİLE YARDIMI
TextBox15.Value = Cells(k.Row, "V") = Empty 'ÖZEL HİZMET TAZMİNATI
TextBox16.Value = Cells(k.Row, "X") = Empty 'KISTAS AYLIK
TextBox17.Value = Cells(k.Row, "AA") = Empty ' BAĞIMSIZ BÜRO
TextBox18.Value = Cells(k.Row, "AB") = Empty ' TÜRK BÜRO
TextBox19.Value = Cells(k.Row, "AF") = Empty 'SAKATLIK
TextBox20.Value = Cells(k.Row, "AG") = Empty 'RAPOR
TextBox21.Value = Cells(k.Row, "AH") = Empty 'İLAÇ
TextBox22.Value = Cells(k.Row, "AI") = Empty 'HİZMET BORÇLANMASI
TextBox23.Value = Cells(k.Row, "AJ") = Empty 'ÖZEL HAYAT SİGORTASI
TextBox24.Value = Cells(k.Row, "AK") = Empty 'KİRA KESİNTİSİ
TextBox25.Value = Cells(k.Row, "AL") = Empty 'NAFAKA
TextBox26.Value = Cells(k.Row, "AM") = Empty 'MESAİ
TextBox27.Value = Cells(k.Row, "AN") = Empty 'KESİF
TextBox29.Value = Cells(k.Row, "AR") = Empty 'YEMEK
TextBox30.Value = Cells(k.Row, "AV") = Empty 'T.C KİMLİK
TextBox31.Value = Cells(k.Row, "AW") = Empty 'EMEKLİ SİCİL
TextBox32.Value = Cells(k.Row, "AU") = Empty 'BANKA HESAP NO
Else
MsgBox "Aranan Veri Bulunamadı.!"
End If
TextBox1.SetFocus
End If
End Sub

BEN BU ŞEKİLDE YAPTIM AMA SANIRIM OLMADI

 

[ferhatgurbuz]

Bu şekilde Turue ve False diye TextBoxlarda Yazılar gözüküyor. Ama veri sayfasından hiçbir şey silinmiyor

 

[İsmail Küçükşengün]

Sayın ferhat;

Şifre girişi ve VBA' şifreli.

Bu durumda size nasıl yardım edilebilir ki?

 

[Mahmut Kök]

Bu şekilde Turue ve False diye TextBoxlarda Yazılar gözüküyor. Ama veri sayfasından hiçbir şey silinmiyor

Yukarıda verdiğim kodlara dikkat ederseniz, başlarındaki Textbox1 = kısımları yok. Sadece Cells(k.Row, "D") = Empty şeklinde deneyiniz.

 

[ferhatgurbuz]

Mahmut Bey çok teşekkür ederim. Kolay gelsin.

 

[YİBO.]

Arkadaşlar merhaba emekli müktesebi programı lazım 2 personeli evrakı yapılacak fakat programı bulamadım.mevcut olanlar varsa yardımcı olursanız sevinirim teşekkürler