nih pak contoh skripnya mudah2an bisa membantu :
Option Compare Database
Private Sub Combo2_Click()
If Combo2.Text = "baju" Then
DoCmd.OpenForm "F_baju"
f_bajuhidup
ElseIf Combo2.Text = "celana" Then
DoCmd.OpenForm "F_celana"
celanaok
ElseIf Combo2.Text = "mobil" Then
DoCmd.OpenForm "F_mobil"
mobilok
ElseIf Combo2.Text = "sepatu" Then
DoCmd.OpenForm "F_sepatu"
sepatuok
End If
End Sub
Sub f_bajuhidup()
DoCmd.OpenForm "f_baju"
DoCmd.Close acForm, "F_CELANA", acSaveNo
DoCmd.Close acForm, "f_mobil", acSaveNo
DoCmd.Close acForm, "f_sepatu", acSaveNo
End Sub
Sub celanaok()
DoCmd.OpenForm "f_celana"
DoCmd.Close acForm, "f_baju", acSaveNo
DoCmd.Close acForm, "f_mobil", acSaveNo
DoCmd.Close acForm, "f_sepatu", acSaveNo
End Sub
Sub mobilok()
DoCmd.OpenForm "f_mobil"
DoCmd.Close acForm, "f_baju", acSaveNo
DoCmd.Close acForm, "f_celana", acSaveNo
DoCmd.Close acForm, "f_sepatu", acSaveNo
End Sub
Sub sepatuok()
DoCmd.OpenForm "f_sepatu"
DoCmd.Close acForm, "f_baju", acSaveNo
DoCmd.Close acForm, "f_celana", acSaveNo
DoCmd.Close acForm, "f_mobil", acSaveNo
End Sub
________________________________
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
>
