Private Sub Komut2_Click()
strSQL = "SELECT * FROM GENEL "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[SIRA_NO]=" & Me.SIRANO
.Update
.Fields("NO") = Me.NO
.Fields("GRUP_ADI") = Me.ADI
.Delete
End With
Me.Refresh ' Bu bölümü değiştirmeniz yeterli olacaktır.
End Sub
Liste kutusunu güncellemek yerine Refresh yapmayı deneyin sorun kalmayacaktır.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Topraktan hep güzel şeyler biter . (Akşemseddin)