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"
diganti If Me!CheckBox1 = 0 OR Me!CheckBox2 = 0 OR Me!CheckBox3 = 0 OR Me!CheckBox4 = 0 OR Me!CheckBox5 = 0 OR Me!CheckBox6 = 0 OR Me!CheckBox7 = 0 Then MsgBox "Data Pendukung Anda Belum Lengkap" 2010/2/16 Andi Junianto <[email protected]> > > [Attachment(s) <#126d6b79a8a7a33e_TopText> 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 <[email protected]> > *To:* belajar-access@ yahoogroups. com <[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 <belajaroffice@ gmail.com <[email protected]> > > > *To:* belajar-access@ yahoogroups. com <[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 <[email protected]> > *To:* belajar-access@ yahoogroups. com <[email protected]> > *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! > <http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http://mail.promotions.yahoo.com/newdomains/aa/> > Now you can @ymail.com and @rocketmail. com. > > > ------------------------------ > Get your new Email address! > <http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http://mail.promotions.yahoo.com/newdomains/aa/> > Grab the Email name you've always wanted before someone else does! > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
