Silahkan dicoba.
Function ClearAll(frm As Form) Dim ctl As Control For Each ctl In frm.Controls Select Case ctl.ControlType Case acTextBox ctl.Value = "" Case acOptionGroup, acComboBox, acListBox ctl.Value = Null Case acCheckbox ctl.Value = False End Select Next End Function
Nurhasim Hasan
From: mochamad junus <madjoens@yahoo.co.id>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Friday, 16 August 2013 2:19 PM
Subject: [belajar-access] One click
Sebelumnya dari hati yang palin dalam saya ucapkan minal aidzin wal fa idzin, mohon maaf lahir dan batin. Saya ingin menanyakan bagi para master n suhu access yang di rahmati ALLLAH swt, bagaimana ya cara membuat kode vba untuk mengosongkan semua kontrol sekaligus yang ada di form yg sedang aktif. Demikian , atas bantuannya kami sampaikan terima kasih Dikirim dari Yahoo! Mail pada Android |
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar