Uyarınız için teşekkürler. Düzeltip ekleyeceğim. Ben de silme komutunu inceliyordum. Aşağıdaki kodda BirimAnahtarKodu'nu yanlışlıkla yazmış olabilir misiniz? Bazı birimlerde anahtar kodu olmayabilir de. Burda anlamadım, tuhaf geldi.

Alıntı:altsil
strSQL = "SELECT * FROM Birimler "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me.BirimUstId = 0 Then
With rstkayit
.Find "[BirimAnahtarKodu]=" & Me.Metin5 'işte burası
.Delete
.Update
End With
Else
With rstkayit
.Find "[BirimId]=" & Me.Metin5
.Delete
.Update
End With
End If
rstkayit.Close
TreeView1.Nodes.Clear
Call treeyap(TreeView1)

---

Bu sefer de jet gibi bir şey oldu, yerinde duramıyor maşallah.