davidsuarez.es

Private Sub Data1_Validate (Action As Integer, Save As Integer)
‘ if a save is occurring, check save with user. Cancel and refresh if
‘ user doesn’t want change.
Dim iResponse As Integer
If Save = True Then ‘Data has changed and is being saved
iResponse As Integer = MsgBox (“Really want to save?”, vbYesNo)
If iResponse = vbNo Then
Save = False
Data1.UpdateControls ‘ Refresh fields
End If
End If
End Sub

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• Uso del registro en Visual Basic 6.
• Modifying SQL for a Data Control – i.e. add entered values as a “Where Clause”
• DB Grid – setting a cell value (and updating DB)
• Deleting record when using Data Control
• Mover y soltar controles con Drag & Drop (Visual Basic)