terima kasi mas Galih Persada, saya rasa solusi anda tepat sasaran dan itu yang saya maksudkan terima kasih atas solusinya juga buat semuanya yag telah membantu saya sekali lagi terima kasih
________________________________ From: GALIH PERSADHA <[email protected]> To: [email protected] Sent: Thursday, February 25, 2010 10:10:57 Subject: Bls: [belajar-access] Waning pada check box [1 Attachment] [Attachment(s) from GALIH PERSADHA included below] coba and nya di ganti dengan or mas seperti lampiran yang saya kirim semoga seperti yang dimaksudkan dan bermanfaat ________________________________ Dari: Andi Junianto <jona_c...@yahoo. com> Kepada: belajar-access@ yahoogroups. com Terkirim: Kam, 25 Februari, 2010 09:20:19 Judul: Re: [belajar-access] Waning pada check box 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 <eyoun...@gmail. com> To: belajar-access@ yahoogroups. com 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 ------------ --------- --------- --------- ------ ________________________________ New Email names for you! Get the Email name you've always wanted on the new @ymail and @rocketmail. Hurry before someone else does! ________________________________ Lebih bergaul dan terhubung dengan lebih baik. Tambah lebih banyak teman ke Yahoo! Messenger sekarang! Get your preferred Email name! Now you can @ymail.com and @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/aa/
