• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Değiştir, Sil Butonu yardım edin

  • Konbuyu başlatan Konbuyu başlatan efeksk
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

efeksk

Katılım
13 Nisan 2008
Mesajlar
205
Excel Vers. ve Dili
Excel 2003
arkadaşlar..

aşağıda verdiğim kolar ile acces veri tabanından ListWiev nesnesine verileri çekiyorum. Listwiev çift tıkladığımda veriler textboxlara geliyor.. buraya kadar sorun yok ama sorun şu.. ben çift tıkladığımda textboxlara gelen verileri değiştirmek veya seçtiğim satırı tamamen silmek istiyorum...
Lütfen yardım edin....

PROGRAMI ÇALIŞTIRDIĞIM VE ACCES VERİ TABANINA BAĞLATTIĞIM KODLAR AŞAĞIDAKİLKER. SORUNSUZ ÇALIŞIYOR..

AMA BUNLARA DEĞİŞTİR VE SİL BUTONLARI VE KODLARI LAZIM :(

Kod: 
Private baglan As Object, rs As Object

Kod: 
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Personel.mdb"
End Sub

Kod: 
Private Sub UserForm_Initialize()
Dim x As Long, k As Integer, renk
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Personel.mdb"
Set rs = CreateObject("adodb.recordset")

Me.Caption = "ÇALIŞILAN ŞİRKET KAYIT FORMU"

ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Bold = True
With ListView1.ColumnHeaders
    .Add , , "KODU", 50
    .Add , , "ADI SOYADI", 150
    .Add , , "TC KİMLİK NO", 80
    .Add , , "FİRMASI", 150
    .Add , , "ANNE ADI", 70
    .Add , , "BABA ADI", 70
    .Add , , "DOĞUM YERİ", 70
    .Add , , "DOĞUM TARİHİ", 70
    .Add , , "İŞE BAŞ. TAR.", 70
    .Add , , "BÖLÜMÜ", 70
    .Add , , "GÖREVİ", 70
    .Add , , "GSM NO", 70
    .Add , , "İŞTEN AYR. TAR.", 80
    .Add , , "İL", 70
    .Add , , "İLÇE", 70
    .Add , , "MAH/KÖY", 70
    .Add , , "KİM.SERİ NO", 70
    .Add , , "CİLT", 50
    .Add , , "HANE", 50
    .Add , , "SAYFA", 50
    .Add , , "ADRES", 150
    .Add , , "KİMLİK", 70
    .Add , , "İKAMETGAH", 70
    .Add , , "SABIKA", 70
    .Add , , "RESİM", 70
    .Add , , "SGK GİRİŞİ", 70
    .Add , , "SAĞLIK RAPORU", 80
    .Add , , "SÖZLEŞME", 70
    .Add , , "İSG EĞİTİMİ", 70
    .Add , , "İSG EVRAKLARI", 70
    .Add , , "KİMLİK BİLDİRİMİ", 70
    .Add , , "EŞ TC NO", 70
    .Add , , "EŞ AD SOYAD", 70
    .Add , , "EŞ D.Y.", 70
    .Add , , "EŞ D.T.", 80
    .Add , , "1.ÇOCUK TC NO", 70
    .Add , , "1.ÇOCUK AD SOYAD", 70
    .Add , , "1.ÇOCUK D.Y.", 70
    .Add , , "1.ÇOCUK D.T.", 70
    .Add , , "2.ÇOCUK TC NO", 70
    .Add , , "2.ÇOCUK AD SOYAD", 70
    .Add , , "2.ÇOCUK D.Y.", 70
    .Add , , "2.ÇOCUK D.T.", 70
    .Add , , "3.ÇOCUK TC NO", 70
    .Add , , "3.ÇOCUK AD SOYAD", 70
    .Add , , "3.ÇOCUK D.Y.", 70
    .Add , , "3.ÇOCUK D.T.", 70
    .Add , , "4.ÇOCUK TC NO", 70
    .Add , , "4.ÇOCUK AD SOYAD", 70
    .Add , , "4.ÇOCUK D.Y.", 70
    .Add , , "4.ÇOCUK D.T.", 70
    .Add , , "5.ÇOCUK TC NO", 70
    .Add , , "5.ÇOCUK AD SOYAD", 70
    .Add , , "5.ÇOCUK D.Y.", 70
    .Add , , "5.ÇOCUK D.T.", 70
    
    
    
End With
rs.Open "Select * from Personel;", baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
    x = x + 1
    If x Mod 2 = 0 Then renk = vbRed Else: renk = vbBlue
    ListView1.ListItems.Add , , rs(0).Value
    For k = 1 To 54
        If Not IsNull(rs(k).Value) Then
        ListView1.ListItems(x).SubItems(k) = rs(k).Value
        ListView1.ListItems(x).ListSubItems(k).ForeColor = renk
    End If
    Next k
    rs.movenext
Loop
rs.Close
End Sub

Kod: 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set rs = Nothing
baglan.Close
Set baglan = Nothing
End Sub

Kod: 
Private Sub ListView1_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
x = ListView1.SelectedItem.Index
TextBox1.Text = ListView1.ListItems(x)
TextBox2.Text = ListView1.ListItems(x).ListSubItems(1).Text
TextBox3.Text = ListView1.ListItems(x).ListSubItems(2).Text
TextBox4.Text = ListView1.ListItems(x).ListSubItems(3).Text
TextBox5.Text = ListView1.ListItems(x).ListSubItems(4).Text
TextBox6.Text = ListView1.ListItems(x).ListSubItems(5).Text
TextBox7.Text = ListView1.ListItems(x).ListSubItems(6).Text
TextBox8.Text = ListView1.ListItems(x).ListSubItems(7).Text
TextBox9.Text = ListView1.ListItems(x).ListSubItems(8).Text
TextBox10.Text = ListView1.ListItems(x).ListSubItems(9).Text
TextBox11.Text = ListView1.ListItems(x).ListSubItems(10).Text
TextBox12.Text = ListView1.ListItems(x).ListSubItems(11).Text
TextBox13.Text = ListView1.ListItems(x).ListSubItems(12).Text
TextBox14.Text = ListView1.ListItems(x).ListSubItems(13).Text
TextBox15.Text = ListView1.ListItems(x).ListSubItems(14).Text
TextBox16.Text = ListView1.ListItems(x).ListSubItems(15).Text
TextBox17.Text = ListView1.ListItems(x).ListSubItems(16).Text
TextBox18.Text = ListView1.ListItems(x).ListSubItems(17).Text
TextBox19.Text = ListView1.ListItems(x).ListSubItems(18).Text
TextBox20.Text = ListView1.ListItems(x).ListSubItems(19).Text
TextBox21.Text = ListView1.ListItems(x).ListSubItems(20).Text
TextBox22.Text = ListView1.ListItems(x).ListSubItems(21).Text
TextBox23.Text = ListView1.ListItems(x).ListSubItems(22).Text
TextBox24.Text = ListView1.ListItems(x).ListSubItems(23).Text
TextBox25.Text = ListView1.ListItems(x).ListSubItems(24).Text
TextBox26.Text = ListView1.ListItems(x).ListSubItems(25).Text
TextBox27.Text = ListView1.ListItems(x).ListSubItems(26).Text
TextBox28.Text = ListView1.ListItems(x).ListSubItems(27).Text
TextBox29.Text = ListView1.ListItems(x).ListSubItems(28).Text
TextBox30.Text = ListView1.ListItems(x).ListSubItems(29).Text
TextBox31.Text = ListView1.ListItems(x).ListSubItems(30).Text
TextBox32.Text = ListView1.ListItems(x).ListSubItems(31).Text
TextBox33.Text = ListView1.ListItems(x).ListSubItems(32).Text
TextBox34.Text = ListView1.ListItems(x).ListSubItems(33).Text
TextBox35.Text = ListView1.ListItems(x).ListSubItems(34).Text
TextBox36.Text = ListView1.ListItems(x).ListSubItems(35).Text
TextBox37.Text = ListView1.ListItems(x).ListSubItems(36).Text
TextBox38.Text = ListView1.ListItems(x).ListSubItems(37).Text
TextBox39.Text = ListView1.ListItems(x).ListSubItems(38).Text
TextBox40.Text = ListView1.ListItems(x).ListSubItems(39).Text
TextBox41.Text = ListView1.ListItems(x).ListSubItems(40).Text
TextBox42.Text = ListView1.ListItems(x).ListSubItems(41).Text
TextBox43.Text = ListView1.ListItems(x).ListSubItems(42).Text
TextBox44.Text = ListView1.ListItems(x).ListSubItems(43).Text
TextBox45.Text = ListView1.ListItems(x).ListSubItems(44).Text
TextBox46.Text = ListView1.ListItems(x).ListSubItems(45).Text
TextBox47.Text = ListView1.ListItems(x).ListSubItems(46).Text
TextBox48.Text = ListView1.ListItems(x).ListSubItems(47).Text
TextBox49.Text = ListView1.ListItems(x).ListSubItems(48).Text
TextBox51.Text = ListView1.ListItems(x).ListSubItems(50).Text
TextBox52.Text = ListView1.ListItems(x).ListSubItems(51).Text
TextBox53.Text = ListView1.ListItems(x).ListSubItems(52).Text
TextBox54.Text = ListView1.ListItems(x).ListSubItems(53).Text
TextBox55.Text = ListView1.ListItems(x).ListSubItems(54).Text
    For tem = 1 To 55
    Controls("textbox" & tem) = Empty
    Next
End Sub

Kod: 
Private Sub ListView1_DblClick()
x = ListView1.SelectedItem.Index
TextBox1.Text = ListView1.ListItems(x)
TextBox2.Text = ListView1.ListItems(x).ListSubItems(1).Text
TextBox3.Text = ListView1.ListItems(x).ListSubItems(2).Text
TextBox4.Text = ListView1.ListItems(x).ListSubItems(3).Text
TextBox5.Text = ListView1.ListItems(x).ListSubItems(4).Text
TextBox6.Text = ListView1.ListItems(x).ListSubItems(5).Text
TextBox7.Text = ListView1.ListItems(x).ListSubItems(6).Text
TextBox8.Text = ListView1.ListItems(x).ListSubItems(7).Text
TextBox9.Text = ListView1.ListItems(x).ListSubItems(8).Text
TextBox10.Text = ListView1.ListItems(x).ListSubItems(9).Text
TextBox11.Text = ListView1.ListItems(x).ListSubItems(10).Text
TextBox12.Text = ListView1.ListItems(x).ListSubItems(11).Text
TextBox13.Text = ListView1.ListItems(x).ListSubItems(12).Text
TextBox14.Text = ListView1.ListItems(x).ListSubItems(13).Text
TextBox15.Text = ListView1.ListItems(x).ListSubItems(14).Text
TextBox16.Text = ListView1.ListItems(x).ListSubItems(15).Text
TextBox17.Text = ListView1.ListItems(x).ListSubItems(16).Text
TextBox18.Text = ListView1.ListItems(x).ListSubItems(17).Text
TextBox19.Text = ListView1.ListItems(x).ListSubItems(18).Text
TextBox20.Text = ListView1.ListItems(x).ListSubItems(19).Text
TextBox21.Text = ListView1.ListItems(x).ListSubItems(20).Text
TextBox22.Text = ListView1.ListItems(x).ListSubItems(21).Text
TextBox23.Text = ListView1.ListItems(x).ListSubItems(22).Text
TextBox24.Text = ListView1.ListItems(x).ListSubItems(23).Text
TextBox25.Text = ListView1.ListItems(x).ListSubItems(24).Text
TextBox26.Text = ListView1.ListItems(x).ListSubItems(25).Text
TextBox27.Text = ListView1.ListItems(x).ListSubItems(26).Text
TextBox28.Text = ListView1.ListItems(x).ListSubItems(27).Text
TextBox29.Text = ListView1.ListItems(x).ListSubItems(28).Text
TextBox30.Text = ListView1.ListItems(x).ListSubItems(29).Text
TextBox31.Text = ListView1.ListItems(x).ListSubItems(30).Text
TextBox32.Text = ListView1.ListItems(x).ListSubItems(31).Text
TextBox33.Text = ListView1.ListItems(x).ListSubItems(32).Text
TextBox34.Text = ListView1.ListItems(x).ListSubItems(33).Text
TextBox35.Text = ListView1.ListItems(x).ListSubItems(34).Text
TextBox36.Text = ListView1.ListItems(x).ListSubItems(35).Text
TextBox37.Text = ListView1.ListItems(x).ListSubItems(36).Text
TextBox38.Text = ListView1.ListItems(x).ListSubItems(37).Text
TextBox39.Text = ListView1.ListItems(x).ListSubItems(38).Text
TextBox40.Text = ListView1.ListItems(x).ListSubItems(39).Text
TextBox41.Text = ListView1.ListItems(x).ListSubItems(40).Text
TextBox42.Text = ListView1.ListItems(x).ListSubItems(41).Text
TextBox43.Text = ListView1.ListItems(x).ListSubItems(42).Text
TextBox44.Text = ListView1.ListItems(x).ListSubItems(43).Text
TextBox45.Text = ListView1.ListItems(x).ListSubItems(44).Text
TextBox46.Text = ListView1.ListItems(x).ListSubItems(45).Text
TextBox47.Text = ListView1.ListItems(x).ListSubItems(46).Text
TextBox48.Text = ListView1.ListItems(x).ListSubItems(47).Text
TextBox49.Text = ListView1.ListItems(x).ListSubItems(48).Text
TextBox51.Text = ListView1.ListItems(x).ListSubItems(50).Text
TextBox52.Text = ListView1.ListItems(x).ListSubItems(51).Text
TextBox53.Text = ListView1.ListItems(x).ListSubItems(52).Text
TextBox54.Text = ListView1.ListItems(x).ListSubItems(53).Text
TextBox55.Text = ListView1.ListItems(x).ListSubItems(54).Text

End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst