Bpk sepertinya default value masing2 check box blm di set ke 0 ya? Tapi tdk diset juga tdk apa2, Bpk langsung ganti saja menjadi:
Private Sub cmd_simpan_Click() DoCmd.RunCommand acCmdRefreshPage If (Me!CheckBox1 = 0 Or IsNull(Me!CheckBox1)) And (Me!CheckBox2 = 0 Or IsNull(Me!CheckBox2)) And (Me!CheckBox3 = 0 Or IsNull(Me!CheckBox3)) And (Me!CheckBox4 = 0 Or IsNull(Me!CheckBox4)) And (Me!CheckBox5 = 0 Or IsNull(Me!CheckBox5)) And (Me!CheckBox6 = 0 Or IsNull(Me!CheckBox6)) And (Me!CheckBox7 = 0 Or IsNull(Me!CheckBox7)) Then MsgBox "Data Pendukung Anda Belum Lengkap" Exit Sub Else MsgBox "Data berhasil disimpan." End If End Sub Thank's ----- Original Message ----- From: Andi Junianto To: [email protected] Sent: Tuesday, 16 February 2010 6:30 PM Subject: Re: [belajar-access] Waning pada check box [1 Attachment] [Attachment(s) from Andi Junianto included below] Berikut saya sertakan semua prosedure yang saya buat pda form sya Dan juga saya sertakan gambar form di attachment 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 Dalam form tersebut saya letakkan rumus yang anda berikan pada simpan, tetapi tetap tidak jalan yang sya inginkan bila saya tekan tombol simpan maka akan dicek terlebih dahulu dan apabila salah satu checkbox yang saya inginkan tidak tercentang akan keluar warning Nama Form : Arsip Induk Langganan Nama Checkbox : checkbox1 s/d checkbox7 ------------------------------------------------------------------------------ From: Belajar Office <[email protected]> To: [email protected] Sent: Tuesday, February 16, 2010 14:10:29 Subject: Re: [belajar-access] Waning pada check box 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: belajar-access@ yahoogroups. com 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 <belajaroffice@ gmail.com> To: belajar-access@ yahoogroups. com 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. ------------------------------------------------------------------------------ Get your new Email address! Grab the Email name you've always wanted before someone else does!
