01-08-2012, 09:14
Merhaba arkadaşlar,
aşağıdaki kod ile Me.cmbAy açılır kutudan seçtiğim ayın
bütün kayıtlarını nasıl silebilirim
tablo adı: TblNobetler
alan adı: Tarih
açılır kutu adı:cmbAy
strSQL = "SELECT * FROM TblNobetler "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
Dim Ayy As Integer
Ayy = Month([Tarih])
.Find "Ayy=" & Me.cmbAy
.Delete
End With
aşağıdaki kod ile Me.cmbAy açılır kutudan seçtiğim ayın
bütün kayıtlarını nasıl silebilirim
tablo adı: TblNobetler
alan adı: Tarih
açılır kutu adı:cmbAy
strSQL = "SELECT * FROM TblNobetler "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
Dim Ayy As Integer
Ayy = Month([Tarih])
.Find "Ayy=" & Me.cmbAy
.Delete
End With

