Di Access 2007 Bpk tidak bisa membuat menu bar, sdh diganti dengan ribbon. Sebaiknya Bpk buat dahulu di Access versi sebelumnya, kemudian import ke Access 2007. Thank's.
________________________________ From: jamal luddin <[email protected]> To: [email protected] Sent: Tue, January 19, 2010 1:54:17 AM Subject: [belajar-access] membuat menu bar pada file access 2007 kpd suhu n rekan mils access semua nya,mhn pencerahan cara membuat menu pull down (menu bar) di access 2007 ya... lg butuh banget nich trimakasih sbelum nya tuk para master n rekan milis semuanya Pada Sen, 18 Jan 2010 17:26 ICT Aksan Kurdin menulis: >Kayaknya susah untuk membayangkan step-step yang anda inginkan. >tolong capture screen saja, lalu jelaskan lewat gambar pingin anda kayak apa. >terangkan juga nama componen2nya (tombol, combo, dll). > >aksan kurdin > > > >Belajar Office wrote: >> Bpk, agar lebih mudah, langkah pertama sebaiknya di compile/debug dahulu >> module ini, lalu VBA akan memperlihatkan satu demi satu lokasi errornya. >> Thank's. >> >> >> ------------ --------- --------- --------- --------- --------- - >> *From:* Maulana <maulana_pup@ yahoo.co. id> >> *To:* belajar-access@ yahoogroups. com >> *Sent:* Mon, January 18, 2010 4:04:33 PM >> *Subject:* [belajar-access] Mohon dikoreksi dan bantuan codenya >> >> >> Dear Pakar, >> saya buat form untuk pencarian seperti ini, >> dan saya mau buat button untuk setiap item yang di klik lewat combo12 >> dapat menampilkan data seperti, button detail tetapi yag ini berupa report >> yg datanya meliputi dari tabel indent,issue, purchase, receipt saja >> bagaimana sqlnya, >> intinya setiap item barang akan menampilkan data dalam satu report semua >> informasi yang dibutuhkan >> o y cara kerja combo12 ini ketika kita klik item combo12 kemudian klik >> button detail akan terbuka form update barang. >> terimakasih >> salam, Maulana >> Private Sub Command19_Click( ) (BUTTON DETAIL) >> Forms!UPDATE_ BARANG.AllowEdit s = False >> DoCmd.OpenForm "UPDATE_BARANG" >> Forms!UPDATE_ BARANG!Store_ Kode = Store_Kode >> Forms!UPDATE_ BARANG!Command34 .SetFocus >> Forms!UPDATE_ BARANG.Command19 .Enabled = False >> Forms!UPDATE_ BARANG..Command35 .Enabled = False >> Forms!UPDATE_ BARANG.Command36 .Enabled = False >> Forms!UPDATE_ BARANG.Command37 .Enabled = False >> Forms!UPDATE_ BARANG.Command38 .Enabled = False >> End Sub >> Private Sub Form_Load() >> KODE_BARANG. SetFocus >> End Sub >> Private Sub Combo12_Click( ) >> Store_Kode = RTrim(Left(Combo12, 7)) >> End Sub >> Private Sub NAMA_BARANG_ KeyPress( KeyAscii As Integer) >> 'ubah karakter jadi huruf besar >> KeyAscii = Asc(UCase(Chr( KeyAscii) )) >> If KeyAscii = 13 Then NAMA_BARANG. SetFocus >> End Sub >> >> Private Sub NAMA_BARANG_ LostFocus( ) >> Dim vara As Variant >> Dim VARI As Variant >> Dim VARS As Variant >> Dim varc As Variant >> Dim VARDATE As Variant >> Dim VARB As Variant >> vara = Combo12.ListCount >> For j = 0 To vara - 1 Step 1 >> Combo12.RemoveItem 0 >> Next j >> >> varc = "" >> VARI = DLookup("COUNT( STORE_KODE) ", "TBARANG", "NAMA_BARANG LIKE '*" & >> Forms!CARI_BARANG! INDENT_NO & "*'") >> For j = 1 To VARI Step 1 >> VARS = DLookup("STORE_ KODE", "TBARANG", "NAMA_BARANG LIKE '*" & >> Forms!CARI_BARANG! INDENT_NO & "*' AND STORE_KODE NOT IN ('" & varc & "')") >> VARB = VARS >> varc = varc & "','" & VARS >> VARS = DLookup("NAMA_ BARANG", "TBARANG", "STORE_KODE= '" & VARS & "'") >> VARB = VARB & " " & VARS >> Combo12.AddItem VARB >> VARB = "" >> Next j >> End Sub >> Private Sub STORE_KODE_KeyPress (KeyAscii As Integer) >> 'ubah karakter jadi huruf besar >> KeyAscii = Asc(UCase(Chr( KeyAscii) )) >> If KeyAscii = 13 Then Store_Kode.SetFocus >> End Sub >> Private Sub Command22_Click( ) >> On Error GoTo Err_Command22_ Click >> DoCmd.Close >> Exit_Command22_ Click: >> Exit Sub >> Err_Command22_ Click: >> MsgBox Err.Description >> Resume Exit_Command22_ Click >> End Sub >> >> > ____________ _________ _________ _________ _________ _________ _ Dapatkan nama yang Anda sukai! Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail. com. http://mail. promotions.. yahoo.com/ newdomains/ id/
