ACCESS FEED: Re: [belajar-access] Tanya: 1 click untuk mengunci Field yg lain

Selasa, 20 November 2012

Re: [belajar-access] Tanya: 1 click untuk mengunci Field yg lain

Dear Mas Harry,

1. Selain cara kang Suhu OPI, bisa juga dg alternatif lain yaitu buatlah sebuah field untuk checklist record bila ada yg resignation (Yes/No).

2. Gunakan fungsi macro (atau dimodule jg boleh) untuk status readonly dan editable pada sebuah record. Kemudian execute fungsi tsb dalam event : OnLoad dan Current pada sebuah form data. Maka setiap record yg bernilai true/false (tergantung maunya apa nih...), akan menjadi terkunci (readonly) atau terbuka (editable).

Sangat simple bukan? :)

Salam,

Lusky Kurniawan

SOLUSIACCESS INDONESIA
The Best Solution System

Ph. : (021) 9293 1925
E. : sales@solusiaccess.com, solusiaccess@yahoo.com
W. : solusiaccess.wordpress.com

Your Access Solution Is Here...
Our Services : Application Development | IT Assistant | Professional Training

Pada 20 November 2012 13:48, Sofyan Efendi <sofyanefendi@gmail.com> menulis:

Dear Pak Hary, Bpk bisa tambahkan procedure sbb di class module form tsb:

Private Function LockMe()
If Me!Resign = -1 Then
    [IDPegawai].Enabled = False
    [NamaPegawai].Enabled = False
    [JabatanPegawai].Enabled = False
    [Combo12].Enabled = False
    [Pendidikan].Enabled = False
    [Training].Enabled = False
    [JenisKelamin].Enabled = False
Else
    [IDPegawai].Enabled = True
    [NamaPegawai].Enabled = True
    [JabatanPegawai].Enabled = True
    [Combo12].Enabled = True
    [Pendidikan].Enabled = True
    [Training].Enabled = True
    [JenisKelamin].Enabled = True
End If
End Function

Private Sub Resign_AfterUpdate()
    Call LockMe
End Sub

Private Sub Form_Current()
    Call LockMe
End Sub

Mengapa kita menggunakan private? Karena ia dibuat didalam class module, sehingga hanya memberi efek terhadap module di form tersebut saja.

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: harry siswanto

To: Belajar Access

Sent: Wednesday, November 14, 2012 9:54 AM

Subject: [belajar-access] Tanya: 1 click untuk mengunci Field yg lain [1 Attachment]

Dear Senior

saya mau tanya,

Bagaimana caranya, bila di click field Resign (check) maka semua Field di record tersebut dapat di Lock (tidak dapat di edit)

dan bila di Un-Check, maka field lain dapat diedit.

terimakasih atas perhatian dan kerjasamanya

terlampir attachment file.

Regards

Harry Siswanto