Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Sep 25, 1998

Make Sure Data is Safe Before Unloading

To decide when it is safe to exit your program, use a DataUnsafe function. Set the DataModified variable to False when you load or save data, or when you start a new file. Set DataModified to "OK" to remove the current data:

 Dim DataModified As Boolean
Private Function DataUnsafe() As Boolean
	If DataModified Then
		Select Case MsgBox _
			("Save changes to the data?", vbYesNoCancel)
			Case vbYes
				' Save the data. SaveData should 
				' set DataModifed False if successful.
				SaveData
				DataUnsafe = DataModified
			Case vbNo
				' OK to clear data.
				DataUnsafe = False
			Case vbCancel
				' Cancel operation and keep data.
				DataUnsafe = True
		End Select
	Else
		' The data is not modified.
		DataUnsafe = False
	End If
End Function
Private Sub Form_Unload(Cancel As Integer)
	Cancel = DataUnsafe()
End Sub
Rod Stephens
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date