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

Astalavista58

Altın Üye
Katılım
20 Ocak 2020
Mesajlar
242
Excel Vers. ve Dili
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
20-02-2025
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
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
MS SQL Server kullanmak daha iyi olur diye düşünüyorum...

.
 

Astalavista58

Altın Üye
Katılım
20 Ocak 2020
Mesajlar
242
Excel Vers. ve Dili
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
20-02-2025
Anında yansımaz, Accessde yapılan değişiklik, Excelde hiç bir durumu tetiklemez.
Ancak Excelde Timer ile belli aralıklarla , örneğin verileri Access den çekilen listbox daki liste yenilenir.
Çok teşekkür ederim hocam
 

Astalavista58

Altın Üye
Katılım
20 Ocak 2020
Mesajlar
242
Excel Vers. ve Dili
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
20-02-2025
MS SQL Server kullanmak daha iyi olur diye düşünüyorum...

.
Hocam kamu kurumunda görev yapıyorum MS SQL yüklü degil, harici bir uygulama yüklemek mümkün olmadığından acces kullanıyorum
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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...

.
 
Üst