• DİKKAT

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

Acceste Veri Tabanında Silinen Kaydın Anlık Güncellenmesi

Katılım
20 Ocak 2020
Mesajlar
247
Excel Vers. ve Dili
Office 2016 TR 64 Bit
Merhaba, öncelikler herkese hayırlı gecelerdilerim, aşağıdaki kod ile acces veri tabanımdaki tablodan veri silme işlemi gerçekleştiriyorum. Sormak istediğim konu, bu koda göre silme işlemi gerçekleştiğinde aynı anda birden fazla kullanıcı aktif ise silme işlemi anlık hepsine yansır mı, yansımaz ise nasıl bir düzeltme/ekleme yapmalıyım.

Kod:
Private Sub CommandButton63_Click()
    Dim baglan As New Connection
    Dim rs As New Recordset
    Dim dbPath As String
    Dim soru As String

    If TextBox53.Text = "" Then
        MsgBox "Lütfen silmek istediğiniz kaydı seçiniz!!", vbExclamation, "Sayın " & Environ("Username")
        Exit Sub
    End If

    soru = MsgBox("Kaydı silmek istediğinize emin misiniz, kayıt tamamen silenecektir.", vbQuestion + vbYesNo, "Sayın " & Environ("Username"))
    If soru = vbYes Then
        kacinci = Me.ListBox6.ListIndex
        kayitsirasi = Me.ListBox6.List(kacinci, 0)
    
        dbPath = ThisWorkbook.Path & "\DB.accdb"
        baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
        rs.Open "delete * FROM madde16aktif WHERE Kimlik = " & kayitsirasi, baglan, adOpenKeyset, adLockPessimistic

        baglan.Close
        MsgBox "Kayıt başarı ile silinmiştir.", vbInformation, "Sayın " & Environ("Username")
        
        Else
        
        MsgBox "İptal edilmiştir.", "Sayın " & Environ("Username")
    End If
    
    Call FormTemizle
    Call madde16aktif
End Sub
 
MS SQL Server kullanmak daha iyi olur diye düşünüyorum...

.
 
O zaman Ali Beyin dediği gibi "Timer" kullanarak veritabanını kullanıcıların ListBox'ında güncel verilerin görüntülenmesini sağlayabilirsiniz...

.
 
Geri
Üst