Ini Pak saya sertakan semua procedure yang saya buat :
Option Compare Database
Private Sub List70_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID_PELANGGAN] = '" & Me![List70] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cmd_tambah_Click()
On Error GoTo Err_cmd_tambah_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmd_tambah_Click:
Exit Sub
Err_cmd_tambah_Click:
MsgBox Err.Description
Resume Exit_cmd_tambah_Click
End Sub
Private Sub cmd_simpan_Click()
DoCmd.RunCommand acCmdRefreshPage
If Me!CheckBox1 = 0 And Me!CheckBox2 = 0 And Me!CheckBox3 = 0 And Me!CheckBox4
= 0 And Me!CheckBox5 = 0 And Me!CheckBox6 = 0 And Me!CheckBox7 = 0 Then
MsgBox "Data Pendukung Anda Belum Lengkap"
Exit Sub
End If
On Error GoTo Err_cmd_simpan_Click
DoCmd.RunCommand acCmdSaveRecord
Exit_cmd_simpan_Click:
Exit Sub
Err_cmd_simpan_Click:
MsgBox Err.Description
Resume Exit_cmd_simpan_Click
End Sub
Private Sub Combo79_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID_PELANGGAN] = '" & Me![Combo79] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo81_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID_PELANGGAN] = '" & Me![Combo81] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cmd_hapus_Click()
On Error GoTo Err_cmd_hapus_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Exit_cmd_hapus_Click:
Exit Sub
Err_cmd_hapus_Click:
Resume Exit_cmd_hapus_Click
End Sub
Private Sub cmd_keluar_Click()
On Error GoTo Err_cmd_keluar_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_cmd_keluar_Click:
Exit Sub
Err_cmd_keluar_Click:
MsgBox Err.Description
Resume Exit_cmd_keluar_Click
End Sub
Private Sub DAYA_Enter()
Me.DAYA.Dropdown
End Sub
Private Sub LEMARI_Enter()
Me.LEMARI.Dropdown
End Sub
Private Sub RAK_Enter()
Me.RAK.Dropdown
End Sub
Private Sub RUANG_Enter()
Me.RUANG.Dropdown
End Sub
Perlu diketahui bahwa semua chek box yang saya buat tersebut saya letakkan pada
event simpan dan valuenya sudah 0 semua. mhon bantuannya dan terima kasih
--- In [email protected], "Belajar Office" <belajaroff...@...>
wrote:
>
> Bpk, pastikan default value seluruh field check box adalah 0 (false).
> Sebenarnya saya ingin Bpk copy paste procedure yg sudah Bpk buat, karena saya
> jadinya hanya meraba2 dari sini, nama form, nama check box, desain table, dll
> mungkin baiknya di tuliskan. Bpk coba set perintah tsb pada suatu tombol di
> event on click, misal:
>
> Private Sub Command1_Click()
> DoCmd.RunCommand acCmdRefreshPage
> If Me!checkbox1 = 0 And Me!checkbox2 = 0 And Me!checkbox3 = 0 And
> Me!checkbox4 = 0 And Me!checkbox5 = 0 And Me!checkbox6 = 0 And Me!checkbox7 =
> 0 And Me!checkbox8 = 0 And Me!checkbox9 = 0 And Me!checkbox10 = 0 And
> Me!checkbox11 = 0 And Me!checkbox12 = 0 And Me!checkbox13 = 0 And
> Me!checkbox14 = 0 Then
> MsgBox "Data Anda Belum Lengkap"
> Exit Sub
> End If
> End Sub
>
> Thank's
> ----- Original Message -----
> From: Andi Junianto
> To: [email protected]
> Sent: Tuesday, 16 February 2010 1:57 PM
> Subject: Re: [belajar-access] Waning pada check box
>
>
>
>
> Perintah tersebut diletakkan pada checkbok atau yang lain, karena udah sya
> cba taruh d form dan di masing2 check box g bisa juga
> mohon bantunnya
>
>
>
>
>
>
> ------------------------------------------------------------------------------
> From: Belajar Office <belajaroff...@...>
> To: [email protected]
> Sent: Tuesday, February 16, 2010 8:34:36
> Subject: Re: [belajar-access] Waning pada check box
>
>
>
> Bpk, barangkali bisa tambahkan If dipadu dengan And, misal:
>
> if me!checkbox1=0 and me!checkbox2=0 and me!checkbox3=0 and me!checkbox4=0
> and me!checkbox5=0 and me!checkbox6=0 and me!checkbox7=0 and me!checkbox8=0
> and me!checkbox9=0 and me!checkbox10=0 and me!checkbox11=0 and
> me!checkbox12=0 and me!checkbox13=0 and me!checkbox14=0 then
> msgbox "Data Anda Belum Lengkap"
> exit sub
> end if
>
> Thank's
> ----- Original Message -----
> From: Andi
> To: belajar-access@ yahoogroups. com
> Sent: Monday, 15 February 2010 12:46 PM
> Subject: [belajar-access] Waning pada check box
>
>
>
> Saya ingin tanya pada senior2 access nih
> saya membuat sebuah form yang isinya ada beberapa (14) pilihan centang
> (check box) yang datanya diambil dari data tabel berupa Yes/No. Saya
> menginginkan pada saat dijalankan bila tidak memilih salah satu item chekbox
> maka akan kelauar warning "Data Anda Belum Lengkap"
> Bagaimana caranya tolong bantuan secepatnya
>
>
>
>
> ------------------------------------------------------------------------------
> Get your preferred Email name!
> Now you can @ymail.com and @rocketmail.com.
>
