2016-04-09 31 views
0

ile MS Access Formunda Kaydı Silme Geçtiğimiz günlerde Access'i başlatmaya başladım ve formdaki kayıtları silmeye biraz takılı kaldım.Düğme

Private Sub lstPickList_AfterUpdate() 
Dim rst As DAO.Recordset 

Set rst = Me.RecordsetClone 
rst.FindFirst "OrderID=" & lstPickList.Column(0) & "" 
If rst.NoMatch Then 
    MsgBox "The selected record can not be displayed." _ 
     & "To display this record, you must first turn off record filtering.", _ 
     vbInformation 
Else 
    Me.Bookmark = rst.Bookmark 
End If 
Set rst = Nothing 
End Sub 

Ve şu anda listede seçili olursa olsun al silmek kullanmak istiyorum bir düğme: Ben aşağıdaki kodla listesi var. "DeleteRecord" makrosu bana "Bir komut veya eylem 'DeleteRecord' artık mevcut değil." hata. Arama, bana hiç işe yaramadı bir sürü kod verdi.

+0

Kod sen başka deyimi değiştirirseniz listede seçili kaydın bağlı bir şekilde arama çalışır. Aramadan sonra basitçe silin: 'DoCmd.RunCommnd acCmdDeleteRecord'. – Parfait

cevap

0

Sen klon doğrudan silebilirsiniz: `Me.RecordSet.Bookmark = rst.Bookmark`:

If rst.NoMatch Then 
    MsgBox "The selected record can not be displayed." _ 
     & "To display this record, you must first turn off record filtering.", _ 
     vbInformation 
Else 
    rst.Delete 
End If