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

 

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

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 4

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___