Kod:
Dim rs As New ADODB.Recordset
rs.Open "anatablo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & id
do until rs.eof
rs.Delete
rs.movenext
loop
rs.Close
Liste1.Requery
Dim rs As New ADODB.Recordset
rs.Open "anatablo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & id
do until rs.eof
rs.Delete
rs.movenext
loop
rs.Close
Liste1.Requery
Bu Konudaki Yorumlar |
Liste kutusunda tabloya kayıt - Yazar: aydın3838 - 07/08/2012, 16:44
Cvp: Liste kutusunda tabloya kayıt - Yazar: Seruz - 07/08/2012, 21:43
Cvp: Liste kutusunda tabloya kayıt - Yazar: aydın3838 - 09/08/2012, 08:22
Cvp: Liste kutusunda tabloya kayıt - Yazar: Seruz - 09/08/2012, 10:05
Cvp: Liste kutusunda tabloya kayıt - Yazar: aydın3838 - 09/08/2012, 17:08
Cvp: Liste kutusunda tabloya kayıt - Yazar: kadirdursun - 07/12/2015, 10:56
Cvp: Liste kutusunda tabloya kayıt - Yazar: Seruz - 07/12/2015, 13:24
Cvp: Liste kutusunda tabloya kayıt - Yazar: ozguryasin - 08/12/2015, 00:36
Cvp: Liste kutusunda tabloya kayıt - Yazar: kadirdursun - 11/12/2015, 16:18
|