Undo Event

14 May

From:    “Sofyan Efendi” <opi@softhome.net>
Date:    Wed, 23 Aug 2006 16:32:14 +0700

Event Undo terjadi saat user meng-undo suatu action yang telah dilakukan di dalam combo box control, form, ataupun text box control. Syntax:

Private Sub object_Undo( Cancel As Integer)

Penjelasan:

– object: SUatu variable yang mengacu ke suatu object.

– Cancel: Jika diset True, maka akan meng-cancel proses Undo, sehingga data yang tampil tetap yang terakhir.

Contoh:

Private Sub Form_Undo(Cancel As Integer)
Dim intResponse As Integer
Dim strPrompt As String
strPrompt = “Cancel the undo operation?”
intResponse = MsgBox(strPrompt, vbYesNo)
If intResponse = vbYes Then
Cancel = True
Else
Cancel = False
End If
End Sub

Wassalaamu’alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
– AccessWeb <http://www35.websamba.com/accessweb&gt;
– OPI-Homepage <http://www.geocities.com/opi1978&gt;

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: