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

