sedikit kode cara kerjanya nama form tersimpan dulu di variable sementara VForm ketika form selanjutnya dibuka akan menutup nama form yang sebelumnya
Option Compare Database Dim VForm Private Sub CombPilih_Change() On Error Resume Next DoCmd.Close VForm VForm = CombPilih.Value DoCmd.OpenForm CombPilih.Value End Sub Pada tanggal 12/05/10, thomas <[email protected]> menulis: > bisa pak...tapi buat filter dulu tiap formnya. misal ada 3 form > > sub form1ok() > docmd.openform "form1" > DoCmd.Close acForm, "Form2", acSaveNo > DoCmd.Close acForm, "Form3", acSaveNo > > end sub > > sub form2ok() > docmd.openform "form1" > DoCmd.Close acForm, "Form1", acSaveNo > DoCmd.Close acForm, "Form3", acSaveNo > end sub > > sub form3ok() > docmd.openform "form1" > DoCmd.Close acForm, "Form2", acSaveNo > DoCmd.Close acForm, "Form1", acSaveNo > end sub > > tinggal di kondisional (if...then) dipanggil aja sub ini. > > > ________________________________ > Dari: mansur aziz <[email protected]> > Kepada: [email protected] > Terkirim: Rab, 12 Mei, 2010 13:09:21 > Judul: Re: [belajar-access] memilih form melalui combo box > > > Mas sigit, > > Terima kasih atas supportnya. Running well. > Kalau misalnya sekarang saya diposisi form1 dan akan pindah ke form 2, > mungkin gak kalau saya ke posisi form2 otomatif form 1 close jadi tidak > terlalu banyak window ke buka. > > Mohon pencerahan lagi. > > Terima kasih > > > > Best Regards, > MANSUR AZIZ > mansur4...@yahoo. com > > > --- Pada Sel, 11/5/10, - sigit - <seeget...@gmail. com> menulis: > > >>Dari: - sigit - <seeget...@gmail. com> >>Judul: Re: [belajar-access] memilih form melalui combo box >>Kepada: belajar-access@ yahoogroups. com >>Tanggal: Selasa, 11 Mei, 2010, 11:31 PM >> >> >> >>'pada combo CombPilih di row source bisa diisi: >>"Form1";"Form2" ;"Form3", dll... bisa banyak >> >>code action: >>Private Sub CombPilih_Change( ) >>DoCmd.OpenForm CombPilih.Value >>End Sub >> >>Pada tanggal 11/05/10, mansur aziz <mansur4...@yahoo. com> menulis: >>> Bang Thomas, >>> >>> untuk kasus sebelumnya sudah jalan normal. >>> Selanjutnya jika saya mempunya tambahan combo ketiga misalnya namanya NSI >>> dan Formnya adalah Form-NSI, skripnya gimana ya? Saya sudah coba dengan >>> menambahahkan else if tapi malah jadi gak jalan. Sekali lagi mohon >>> bantuannya untuk skrip tersebut. >>> >>> Terima kasih >>> >>> >>> >>> >>> >>> >>> >>> Best Regards, >>> MANSUR AZIZ >>> mansur4...@yahoo. com >>> >>> >>> --- Pada Sel, 11/5/10, thomas <the_mas...@yahoo. co.id> menulis: >>> >>> >>> Dari: thomas <the_mas...@yahoo. co.id> >>> Judul: Bls: [belajar-access] memilih form melalui combo box >>> Kepada: belajar-access@ yahoogroups. com >>> Tanggal: Selasa, 11 Mei, 2010, 1:21 >> PM >>> >>> >>> >>> >>> >>> >>> >>> >>> nih bang sekripna... >>> >>> >>> Private Sub kdjob_Click( ) >>> If kdjob.Value = "BSI" Then >>> DoCmd.OpenForm "FORM-BSI" >>> Else >>> DoCmd.OpenForm "FORM-BSE" >>> End If >>> End Sub >>> >>> >>> >>> >>> >>> >>> Dari: Muntahar <eyoun...@gmail. com> >>> Kepada: belajar-access@ yahoogroups. com >>> Terkirim: Sel, 11 Mei, 2010 12:12:31 >>> Judul: Re: [belajar-access] memilih form melalui combo box >>> >>> >>> >>> untuk code >>> >>> Private Sub Form_Load() >>> On Error Resume Next >>> DoCmd.GoToRecord , , acNewRec >>> End Sub >>> >>> >>> ilangin saja, code tsb menyebabkan anda menambahkan record baru, >>> >>> sebenarnya, kalo cuma untuk navigasi, sebaiknya formnya unbound aja >>> baru >> combo-nya yang dikaitkan dengan tbl >>> >>> >>> 2010/5/11 mansur aziz <mansur4212@ yahoo. com> >>> >>> >>> >>> >>> >>> >>> [Attachment( s) from mansur aziz included below] >>> >>> >>> >>> >>> >>> Mas Muntahar, >>> >>> Penambahan tombol berfungsi dengan baik. Tapi anehnya, record saya jadi >>> nambah di table. Tadinya saya hanya punya 2 data BSI dan BSE tapi >>> sekarang >>> BSI & BSE jadi banyak. Mohon bantuan, bisa nggak agar recordnya tidak >>> nambah >>> (file terlampir). >>> >>> Terima kasih >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> Best Regards, >>> MANSUR AZIZ >>> mansur4...@yahoo. com >>> >>> >>> --- Pada Sel, 11/5/10, Muntahar <eyoun...@gmail. com> menulis: >>> >>> >>> Dari: Muntahar <eyoun...@gmail. com> >>> Judul: Re: [belajar-access] memilih form >> melalui combo box >>> Kepada: belajar-access@ yahoogroups. com >>> Tanggal: Selasa, 11 Mei, 2010, 11:13 AM >>> >>> >>> >>> >>> >>> bisa di tambahin satu button, misalnya Command2 >>> >>> Private Sub Command2_Click( ) >>> M = "FORM-" & kdjob >>> DoCmd.OpenForm M >>> End Sub >>> >>> >>> 2010/5/11 mansur aziz <mansur4212@ yahoo. com> >>> >>> >>> >>> >>> >>> [Attachment( s) from mansur aziz included below] >>> >>> >>> >>> >>> >>> >>> Dear Teman Access, >>> >>> Mohon bantuan lagi. Saya ingin berpindah ke form lain dengan cara memilih >>> combo box yang sudah saya buat. Kalau menggunakan command button saya >>> berhasil tapi kalau melalui combo box saya tidak tahu scriptnya. Mohon >>> bantuan. >>> >>> File terlampir. >>> >>> Terima kasih atas >> supportnya. >>> >>> >>> >>> >>> >>> Best Regards, >>> MANSUR AZIZ >>> mansur4...@yahoo. com >>> >>> >>> >>> >>> >>> -- >>> ------------ --------- --------- --------- ------ >>> >>> grapyak-semanak- cluthak >>> http://djmumun. wordpress. com >>> http://facebook. com/djmumun >>> ------------ --------- --------- --------- ------ >>> >>> >>> >>> >>> >>> >>> -- >>> ------------ --------- --------- --------- ------ >>> grapyak-semanak- cluthak >>> http://djmumun. wordpress. com >>> http://facebook. com/djmumun >>> ------------ --------- --------- --------- >> ------ >>> >>> >>> >>> >>> >>> >>> >>> >>> >> >>-- >>rgds, >>www.seeget.co. cc >> > > > > -- rgds, www.seeget.co.cc
