Dear Mas Hari...
Ya... seperti saran dari Pak Sofyan itulah yang saya buat pada 'Kreasi Tombol New Query Update.accdb' waktu itu menggunakan Access 2010...
Kreasi tersebut sudah saya jadikan mdb, dengan harapan bisa dibuka pada versi Access dibawah 2010.
Silahkan ambil di : http://tech.groups.yahoo.com/group/belajar-access/files/Kreasi_Access/
Melampirkan file sample bisa lewat email ini by attach files ... :)
Salam Access,
Josh
From: HARI <hari_priatna@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Saturday, September 22, 2012 12:49 PM
Subject: [belajar-access] Re: Otomatis merubah status value table ketika input data baru?
Dear pak Josh dan pak Sofyan
Maaf lama mereply.
berarti dari informasinya, saya buat dahulu query updatenya (Seperti saran dari pak Sofyan) untuk mengupdate data yang saya baru input kedalam table berikutnya sebagai penambahan data yang sebelumnya yang otomatis merubah statusnya menjadi OLD yaah ??...
untuk attachment berikutnya yang pak josh jelaskan tidak bisa saya buka (Not recognized format acccess).
maaf sekali lagi saya masih newbie di forum,
just ask untuk melampirkan file seperti pak josh bagaimana yah? heheh.....
saya ingin melampirkan file sample yang saya buat
--- In belajar-access@yahoogroups.com, Joshac W <joshacmail@...> wrote:
>
>
> 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@...>
> 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@...> 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@...>
> >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
> >>
> >
> >
> >
> >
>
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar