BeforeInsert Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 08:13:40 +0700

Event BeforeInsert terjadi saat user mengetikkan karakter pertama di dalam record baru, tetapi sebelum record tersebut terbuat secara sempurna.Syntax:

Private Sub Form_BeforeInsert( Cancel As Integer)

Penjelasan:

- Cancel : Jika diset True (-1), maka akan meng-cancel event BeforeInsert.

BeforeInsert dan AfterInsert merupakan dua event yang berpasangan. Urutan event tersebut adalah:

BeforeInsert -> BeforeUpdate -> AfterUpdate -> AfterInsert.

Contoh:

Private Sub Form_BeforeInsert( Cancel As Integer)
If MsgBox(“Insert new record here?”, _
vbOKCancel) = vbCancel Then
Cancel = True
End If
End Sub

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

BeforeUpdate Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 08:18:48 +0700

Event BeforeUpdate terjadi sebelum perubahaan data di dalam suatu control atau record terupdate. Syntax:

Private Sub object_BeforeUpdate (Cancel As Integer)

Penjelasan:

- Object: Nama form atau control.

- Cancel: Jika diset menjadi True (-1), maka akan meng-cancel event BeforeUpdate.

Contoh:

Private Sub ProductName_ BeforeUpdate( Cancel As Integer)
If(Not IsNull(DLookup( “[ProductName] “, _
“Products”, “[ProductName] =’” _
& Me!ProductName & “‘”))) Then
MsgBox “Product has already been entered in the database.”
Cancel = True
Me!ProductName. Undo
End If
End Sub

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

Change Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 08:24:57 +0700

Event Change terjadi saat keseluruhan atau sebagian isi dari text box atau combo box berubah. Event inipun terjadi saat berpindah dari satu tab ke tab lainnya di dalam control tab. Syntax:

Private Sub object_Change( )

Penjelasan:

- Object : Nama control.

Urutan event ini adalah:

KeyDown -> KeyPress -> BeforeInsert -> Change -> KeyUp

Contoh:

Private Sub txtNama_Change( )
Msgbox “Data telah berubah”
End Sub

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

Click Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 13:43:11 +0700

Event Click terjadi saat user menekan dan melepaskan tombol mouse. Syntax:

Private Sub object_Change( )

Penjelasan:

- Object: Nama form atau control.

Urutan event nya adalah sbb:

MouseDown -> MouseUp -> Click -> DblClick -> Click

Contoh:

Private Sub ReadOnly_Click( )
With Me!Amount
If Me!ReadOnly = True Then ‘ If checked.
.Enabled = False ‘ Disable editing.
.Locked = True
Else ‘ If cleared.
.Enabled = True ‘ Enable editing.
.Locked = False
End If
End With
End Sub

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

Close Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 13:47:08 +0700

Event Close terjadi saat form atau report ditutup dan dihilangkan dari tampilan layar (screen). Syntax:

Private Sub object_Close( )

Penjelasan:

- Object: Nama form atau report.

Urutan event nya adalah sbb:

Unload -> Deactivate -> Close

Event Unload dapat di cancel, namun event Close tidak bisa di cancel. Pada event unload, kita masih terkait dengan object, record source dan control di dalamnya. Sedangkan pada event Close, kita sudah lepas dengan object tersebut, karena itu kita tidak dapat meng-cancel event ini.

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

CommandBeforeExecute Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 13:52:42 +0700

Event CommandBeforeExecute terjadi sebelum suatu command (perintah) dijalankan. Syntax:

Private Sub Form_CommandBeforeE xecute(ByVal Command As Variant, ByVal Cancel As Object)

Penjelasan:

- Command: Command (perintah) yang akan dijalankan.

- Cancel: Jika diisi True, maka command akan di cancel.

Contoh:

Private Sub Form_CommandBeforeE xecute( _
ByVal Command As Variant, ByVal Cancel As Object)
Dim intResponse As Integer
Dim strPrompt As String
strPrompt = “Cancel the command?”
intResponse = MsgBox(strPrompt, vbYesNo)
If intResponse = vbYes Then
Cancel.Value = True
Else
Cancel.Value = False
End If
End Sub

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

CommandExecute Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 13:55:36 +0700

Event CommandExecute terjadi setelah suatu command berhasil dijalankan. Syntax:

Private Sub Form_CommandBeforeE xecute(ByVal Command As Variant)

Penjelasan:

- Command: Command (perintah) yang akan dijalankan.

Contoh:

Private Sub Form_CommandExecute (ByVal Command As Variant)
MsgBox “The command specified by ” _
& Command.Name & ” has been executed.”
End Sub

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

Current Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 14:02:03 +0700

Event Current terjadi saat focus berpindah ke suatu record, baik dengan perintah gotorecord (movenext, movelast, dll), maupun ketika form di refresh atau di requery. Syntax:

Private Sub object_Current( )

Penjelasan:

- Object: Nama form.

Ketika kita membuka suatu form, maka urutan event nya adalah sbb:

Open -> Load -> Resize -> Activate -> Current.

Contoh:

Private Sub Form_Current( )
If Me!Discontinued Then
Me!ProductName. BackColor = 255
End If
End Sub

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

DblClick Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 16:35:53 +0700

Event DblClick terjadi saat user menekan dan melepas tombol kiri mouse sebanyak dua kali. Syntax:

Private Sub object_DblClick( Cancel As Integer)

Penjelasan:

- Object: Nama form atau control.

- Cancel: Jika diset True (-1) akan meng-cancel event DblClick.

Urutan event ini adalah sbb:

MouseDown -> MouseUp -> Click -> DblClick -> MouseUp -> Click

Contoh:

Private Sub EmployeeID_DblClick (Cancel As Integer)
DoCmd.OpenForm “Employees”, , , _
“EmployeeID = Forms!Orders! EmployeeID”
End Sub

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

Deactivate Event

From:    “Sofyan Efendi” <sofyan@madinah.cc>
Date:    Wed, 16 Aug 2006 16:40:36 +0700

Event Deactivate terjadi saat form atau report kehilangan focus, karena user mengganti object yang aktif (memindahkan focus ke) Table, Query, Form, Report, Macro, Module, atau Database window. Syntax:

Private Sub object_Deactivate( )

Penjelasan:

- Object: Nama form atau report.

Ketika membuka suatu object (form atau report), urutan event yang terjadi adalah:

Open -> Load -> Resize -> Activate -> Current

Ketika menutup suatu object (form atau report), urutan event yang terjadi adalah:

Unload -> Deactivate -> Close

Contoh:

Private Sub Form_Deactivate( )
‘ Hide custom toolbar.
DoCmd.ShowToolbar “CustomToolbar” , acToolbarNo
End
Sub

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