Saya sudah mencobanya tetapi tidak bisa pak. gimana dong caranya saya ga centang salah satu tetapi tetep bisa menyimpan datanya yang saya mau bila salah satu g dicentang maka data tidak tersimpan dan keluar warning tersebut
________________________________ From: Muntahar <[email protected]> To: [email protected] Sent: Wednesday, February 17, 2010 14:23:49 Subject: Re: [belajar-access] Waning pada check box 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 <jona_c...@yahoo. com> > > > > > > > > > > > > > > > > > >> > >> > [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 <belajaroffice@ gmail.com> >To: belajar-access@ yahoogroups. com >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! > > -- ------------ --------- --------- --------- ------ grapyak-semanak- cluthak http://djmumun. wordpress. com http://facebook. com/djmumun ------------ --------- --------- --------- ------ Get your preferred Email name! Now you can @ymail.com and @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/aa/
