- 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