'event Current pada Form
Private Sub Form_Current()
Call cekexpired
End Sub
Sub cekexpired()
If Me.[Expire].Value = "EXPIRE" Then
m_expire = True
Else
m_expire = False
End If
Me.Nama.Enabled = Not m_expire
Me.Jenis_Kelamin.Enabled = Not m_expire
End Sub
silakan di coba dan di coba trus........
'=============================
--- In belajar-access@yahoogroups.com, "semi" <slekete@...> wrote:
>
> Para suhu access Yth,
>
> Saya sedang membuat form sederhana yang rencana di gunakan di Laboratory.
>
>
>
>
>
> Dalam update data yang sudah expire keinginannya yang muncul adalah :
>
>
>
> Sayangnya untuk pengupdatan data dengan pemanggilan yang sudah expire dan
> akan di perbaharui belum tahu, sehingga tidak harus mengetik ulang dari
> informasi/indentitas personalnya.
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
No comments:
Post a Comment