davidsuarez.es

Sub cmdDelete_Click ()
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
‘Moves to EOF marker to clear bound fields
Data1.Recordset.MoveNext
Msgbox “There are no more records.”
cmdDelete.Enabled = False
Data1.Enabled = False
cmdAdd.Enabled = True
Else
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End Sub

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• Crear un registro usando el método AddNew (Visual Basic)
• Setup and Use of Data Access Object (DAO) for Window that Maintains one Row at a Time
• Validate event for Data Control
• Uso del registro en Visual Basic 6.
• Modifying SQL for a Data Control – i.e. add entered values as a “Where Clause”