/* */

Wednesday, November 21, 2012

Re: [belajar-access] Re: MENCEGAH PENEKANAN TOMBOL ESC

 

Terima kasih sarannya, biar saya coba dahulu.



2012/11/21 Edy <murid.belajaraccess@yahoo.co.id>
 


Usul mas Opi.

misalnya buttonnya proses dibuatnya di form.

kalau misalnya dibuatkan progress bar sederhana gimana?
karena tujuannya kan user tidak menekan ESC karena proses yang sedang berjalan.

misalnya dibuatkan dua buah label.
panjangnya sama dan ditumpuk.
lbl1 putih , lbl2 hitam.
lbl1 dan lbl2 dua-duanya dihide.

saat tombol proses ditekan

1. tombol esc di non aktifkan dengan prosedur bang Opi di bawah
2. lbl1 dan lbl2 dimunculkan.
tapi panjangnya yang lbl2 dijadikan 0
setelah itu setiap pindah proses query, panjang lbl2 di tambahkan sesuai prosentasenya.

misalnya ada 5 query, setiap 1 query selesai maka
lbl2.width = 0.2 * lbl1.width
dst
saat query 5 selesai diproses
lbl2.width = 1*lbl1.width

setelah 100%, panjang lbl1 dan lbl2 sama.

lbl1 dan lbl2 dihide kembali.
tombol esc di aktifkan.

dan user bisa meneruskan pekerjaannya.

mohon maaf kalau tidak sempat memberikan contoh.

Salam hangat dan jabat erat,

Edy Wiyono


--- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@...> wrote:
>
> Bila di form kita bisa tambahkan kode:
>
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> If KeyCode = vbKeyEscape Then
> KeyCode = 0
> End If
> End Sub
>
> Tapi karena yg dijalankan query, maka kode diatas tidak berlaku lagi.
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com | http://trendmuslim.com
> Access Course by Request [Offline & Online] : http://wp.me/PW3LC-hR
> ----- Original Message -----
> From: Ahmad Qomaruddin
> To: belajar-access
> Sent: Wednesday, November 21, 2012 10:21 AM
> Subject: Re: [belajar-access] MENCEGAH PENEKANAN TOMBOL ESC
>
>
>
>
> Memang benar pak sofyan, misalkan penonaktifan hanya dilakukan pada saat form tertentu terbuka gimana, jika form tertutup maka bisa diaktifkan kembali.
> Terima kasih
>
>
>
>
> 2012/11/21 Sofyan Efendi <sofyanefendi@...>

>
>
>
> Dear Mas Ahmad, Esc adalah jalan terakhir, tombol penolong ketika ketika kita hendak membatalkan proses. Jangan di non aktifkan. Program terkadang error, data tidak jadi diinput, dsb. Maka ESC adalah solusinya. Terkadang docmd.undo tidak jalan, namun dengan send ESC dari VBA, proses undo akan berjalan dengan baik. Esc sangat bermanfaat, jangan di non aktifkan.
>
> Namun, seandainya memang Bpk hendak menonaktifkan juga, gunakan macro AutoKeys, atau langsung dari Windows API, sehingga Esc tidak akan aktif untuk file Access tsb.
>
> Menurut saya, yang terbaik, sebelumnya Bpk harus sosialisasi dahulu kepada seluruh user, agar mereka hendaknya banyak bersabar dalam menghadapi program-program kita. Biarlah program kita lama, namun Insya Allah jalan didepan nanti akan terbentang, dengan hasil program berupa data-data yang menggembirakan hati.
>
> Jangan terburu-buru menekan Esc wahai user, cobalah bersabar 1 menit lagi. Bila 1 menit belum kelar itu proses query, cobalah tunggu 2 menit, dst. Sehingga proses selesai dengan sempurna, sesuai dengan waktu yang dibutuhkan Access untuk memproses keinginan dari query-query tsb.
>
> Demikian, semoga bermanfaat.
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com | http://trendmuslim.com
> Access Course by Request [Offline & Online] : http://wp.me/PW3LC-hR
> ----- Original Message -----
> From: Ahmad
> To: belajar-access@yahoogroups.com
> Sent: Wednesday, November 21, 2012 8:27 AM
> Subject: [belajar-access] MENCEGAH PENEKANAN TOMBOL ESC
>
>
> Buat para master, saya ada permasalahan sebagai berikut :
> Saya buat satu command yang menjalankan beberapa query secara bersambungan
>
>
> Private Sub cmdUPDATE_Click()
> On Error GoTo Err_cmdUPDATE_Click
> DoCmd.SetWarnings False
> DoCmd.OpenQuery "Query1", acNormal, acEdit
> DoCmd.OpenQuery "Query2", acNormal, acEdit
> DoCmd.OpenQuery "Query3", acNormal, acEdit
> DoCmd.OpenQuery "Query4", acNormal, acEdit
> DoCmd.OpenQuery "Query5", acNormal, acEdit
> DoCmd.SetWarnings True
> Exit_cmdUPDATE_Click:
> Exit Sub
> Err_cmdUPDATE_Click:
> MsgBox Err.Description
> Resume Exit_cmdUPDATE_Click
> End Sub
>
>
> Secara normal command berjalan lancar, semua query berjalan berurutan dengan baik secara backgrund, dibawah form yang terbuka. Permasalahnnya karena banyaknya data sehingga waktu yang dijalankan cukup lama, sehingga terkadang user tidak sabar menekan tombol Esc hal ini berakibat berhentinya query ditengah-tengah, baru sampai Query4 atau sebelumnya proses sudah terhenti karena penekanan tombol Esc tersebut.
> Menurut para teman2 acceser semua bagaimana cara mengatasi hal ini? Terima kasih responnya
>
>
>
>
>
>
> --
> Ahmad Qomaruddin
> Sulang Rembang Jawa Tengah Indonesia
> email : ud13en@...
> blog : ud13en.blogspot.com
>




--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
blog : ud13en.blogspot.com

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (7)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment