MS ACCESS MAILING LIST: Re: [belajar-access] Re: Otomatis merubah status value table ketika input data baru? [1 Attachment]

[Attachment(s) from Joshac W included below]

Dear Mas Hari...

Seperti 'Kreasi Tombol New Query Update.accdb' yang saya kirim inikah yang dimaksud ?

'Modifikasi Kode tombol New yang lalu :

Private Sub New_Click()
DoCmd.RunCommand acCmdRecordsGoToLast
Me.status = "Old"
DoCmd.RunCommand acCmdRecordsGoToNew
Me.input.Locked = False
Me.status = "New"

'Item & Input Sub
Me.Item_1.Locked = False
Me.Item_2.Locked = False
Me.Item_3.Locked = False
Me.input_sub.Locked = False

'Update Query
DoCmd.SetWarnings False
DoCmd.OpenQuery "QueryUpdate"
DoCmd.SetWarnings True

End Sub

'Tambahan penguncian kembali setelah input :

Private Sub input_AfterUpdate()
Me.input.Locked = True
End Sub

'Agar saat terbuka langsung ke record akhir :

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdRecordsGoToLast
End Sub

(lainnya adalah tambahan tabel, form, dan query)

* Terima kasih Pak Lusky dan Pak Sofyan... :)

Salam Access,
Josh

From: privat access <les.access@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, September 18, 2012 8:43 AM
Subject: Re: [belajar-access] Re: Otomatis merubah status value table ketika input data baru?

dear kang Hari,

solusi joshac sgt bagus dan simple. hanya saja tidak dapat digunakan untuk the last entry yang lebih dari satu entry-an. misalnya kmrn anda sudah mengentry form transaksi (header n detail tentunya) sejumlah 10 entry-an, maka record yg otomatis terubah hanyalah record terakhir saja, tetap anda bisa gunakan update query untuk mengeksekusi semua transaksi yg terjadi pada hari kemarin menjadi status old.

salam,
lusky

Pada 18 September 2012 07:34, Joshac W <joshacmail@yahoo.com> menulis:

Maaf, untuk status pada form utama dan juga ada pada subformnya sebagai input otomatis belum bisa saya terapkan.

Salam Access,
Josh

From: HARI <hari_priatna@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Monday, September 17, 2012 3:49 PM
Subject: [belajar-access] Re: Otomatis merubah status value table ketika input data baru?

Dear Mas Josh.

Terimakasih banyak atas infonya....

saya sudah coba implementasi rumusnya.
Tetapi ada sedikit kendala dimana untuk form yang saya buat terdapat subformnya.
Dan didalamnya misalkan dari sample yang mas Josh buat itu untuk input terdiri dari beberapa item (Lebih dari 1 yang terinput kedalam table)pada subform.
Untuk status pada form utama, dan juga ada pada subformnya sebagai input tomatis.

Mohon pencerahannya kembali mas Josh.

best regards

--- In belajar-access@yahoogroups.com, Joshac W <joshacmail@...> wrote:
>
> Dear Mas Hari...
>
> Saya bukan master access :)
> Saya kebetulan pernah mengetahuinya dan membuatnya seperti ini :
>
>
> =Â =Â = =Â =Â =
>
>
> Pada Form Input Data, kunci kolom status dan input.
>
>
> Kemudian buat tombol "New" dengan kode berikut :
>
> Private Sub New_Click()
> DoCmd.RunCommand acCmdRecordsGoToLast
> Me.status = "Old"
> DoCmd.RunCommand acCmdRecordsGoToNew
> Me.input.Locked = False
> Me.status = "NEW"
> End Sub
>
>
> =Â =Â = =Â =Â =
>
>
> Terlampir "Kreasi Tombol New.accdb"
> (red. Pada lampiran "Kreasi Tombol New.accdb" tersebut dalam tabelnya ada Data Type 'AutoNumber' untuk menghindari fungsi 'Last' tidak pada tempatnya).
>
>
> Semoga membantu...
>
> Salam Access
> Josh
>
>
> ________________________________
> From: HARI <hari_priatna@...>
> To: belajar-access@yahoogroups.com
> Sent: Saturday, September 15, 2012 12:29 PM
> Subject: [belajar-access] Otomatis merubah status value table ketika input data baru?
>
>
> Â
> Dear master access
>
> saya punya case dimana ketika menginput data baru pada form, otomatis data yang sebelumnya berubah status menjadi value yang lain.
>
> Misalkan ketika saya menginput data baru pada form, untuk status pada form otomatis menginput ke table dengan keterangan "NEW".
>
> Sedangkan ketika saya menginput data baru lagi pada form berikutnya, otomatis status pada form sebelumnya merubah input ke list table sebelumnya dengan keterangan "OLD" (Otomatis merubah value sebelumnya dari "NEW" ke "OLD").
>
> Adakah cara untuk membuatnya seperti itu?
> saya sudah coba cara lain masih belum ketemu juga.....
>
> regards
>