Saya sudah mencobanya tetapi tidak bisa pak. gimana dong caranya Padahal Defailt value sudah saya ganti menjadi 0 Saya jelaskan lagi tipe chenkbox saya menggunakan Yes/No, apa perlu diganti dengan True/False atau On/Off saya tidak centang salah satu tetapi tetep bisa menyimpan datanya yang saya mau bila salah satu checkbox tidak dicentang maka data tidak tersimpan dan keluar warning tersebut TOLONG BANTUANNYA MAKASIH SEBELUMNYA
________________________________ From: Belajar Office <[email protected]> To: [email protected] Sent: Wednesday, February 17, 2010 9:25:25 Subject: Re: [belajar-access] Waning pada check box 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: belajar-access@ yahoogroups. com >Sent: Tuesday, 16 February 2010 6:30 > PM >Subject: Re: [belajar-access] Waning pada > check box [1 Attachment] > > >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! > New Email names for you! Get the Email name you've always wanted on the new @ymail and @rocketmail. Hurry before someone else does! http://mail.promotions.yahoo.com/newdomains/aa/
