Barangkali Bpk bisa modif sedikit menjadi: Private Sub Command19_Click( ) DoCmd.OpenForm "UPDATE_BARANG" Forms!UPDATE_ BARANg!Store_ Kode = Store_Kode Forms!UPDATE_ BARANg!Command34 .SetFocus Forms!UPDATE_ BARANG.allowedits = False End Sub Thank's.
________________________________ From: MAULANA <[email protected]> To: [email protected] Sent: Sat, January 16, 2010 3:56:23 PM Subject: [belajar-access] solusi Dear Pakar saya dah coba cara tersebut seperti ini Private Sub Command19_Click( ) Forms!UPDATE_ BARANG.allowedit = False DoCmd.OpenForm "UPDATE_BARANG" Forms!UPDATE_ BARANg!Store_ Kode = Store_Kode Forms!UPDATE_ BARANg!Command34 .SetFocus End Sub tetapi timbul error seperti ini run-time error "2450" .... trims atas pencerahannya
