Syukurlah sudah berhasil. Code anda bisa disingkat lagi, misalnya: Private Sub Kode_AfterUpdate() NamaBarang = Kode.Column(1) Harga = Kode.Column(Nz(Me.Parent!Frame46;2)-1) Jumlah.SetFocus End Sub
2010/7/23 Bambang Mahfudin <[email protected]> > > > Terima kasih Bang Haer.... > > Maksud saya, apabila kita pilih harga jual pada main formnya misal " Harga > Reseller " (saya pakai option group) maka harga pada subform menampilkan > harga reseller sesuai kode yg dipilih pada combo subform. > > Kok jadi syusyah gini menjelaskannya :D > > Tapi Alhamdulillah saya dapat menangkap penjelasan Bang Haer, lalu saya > aplikasikan ke option group dan Sukses. Sekali lagi terima kasih bang...... > > Saya tuliskan codenya, mungkin berguna bagi warga millis > > Private Sub Kode_AfterUpdate() > NamaBarang = Kode.Column(1) > > Select Case Me.Parent!Frame46 > Case 1: Harga = Kode.Column(2) > Case 2: Harga = Kode.Column(3) > Case 3: Harga = Kode.Column(4) > Case 4: Harga = Kode.Column(5) > Case 5: Harga = Kode.Column(6) > End Select > > Jumlah.SetFocus > End Sub > > > SalamAccess > BambangMahfudin > > > > > > ----- Original Message ----- > *From:* Haer Talib <[email protected]> > *To:* [email protected] > *Sent:* Friday, July 23, 2010 4:04 PM > *Subject:* Re: [belajar-access] Pilihan Harga pada Form Penjualan > > > > Apa maksud menyesuaikan? > jika pada main form anda menggunakan cboPilihanHarga, > maka pada subform anda bisa pakai, misalnya: > Harga=parent!cboPilihanHarga > > Salam, > Haer > > > 2010/7/24 Bambang Mahfudin <[email protected]> > >> >> >> Bapak Moderator dan Accessers >> >> Saya sedang bikin form penjualan dengan beberapa pilhan harga jual pada >> main formnya >> 1.Harga Reseller >> 2.Harga Grosir >> 3.Harga Toko >> 4.Harga Bengkel A >> 5.Harga Bengkel B >> >> Problem : >> Bagaimana harga jual pada sub form ( form penjualan detail ) bisa >> menyesuaikan >> dengan pilihan harga pada main form nya >> >> Saya lebih suka pakai code spt dibawah, karena harga masih bisa dibuat >> manual >> >> Private Sub Kode_AfterUpdate() >> NamaBarang = Kode.Column(1) >> Harga = Kode.Column(2) >> Jumlah.SetFocus >> End Sub >> >> Mohon petunjuk / clue. Terima kasih sebelumnya >> >> >> SalamAcess >> BambangMahfudin >> >> >> > > > -- > > Jadikan www.gapura.web.id sebagai homepage browser anda. > => Akses ke website favorit tinggal klik aja. (Lihat dulu deh). > > > > > -- Jadikan www.gapura.web.id sebagai homepage browser anda. => Akses ke website favorit tinggal klik aja. (Lihat dulu deh).
