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.