- Pertama: Mengarahkan user untuk mengisi form secara benar.
- Kedua: Meminimalisir error yang terjadi
- Ketiga dan seterusnya : Silakan Anda tambahkan.
Di bawah merupakan kode yang efektif untuk tujuan di atas (kode ini dilengkapi dengan pesan yang spesifik yang diambil dari caption label):
'Fungsi untuk memvalidasi empty text secara massal disertai dengan 'warning message yang spesifik, simpan kode ini dalam modul Public Function IsFilledAll(l As Variant, t As Variant) As Boolean Dim o As Object For Each o In t If Trim(o.Text) = "" Then MsgBox "Maaf, informasi " & Replace(l(o.Index).Caption, "&", "") & " tidak boleh dikosongkan", vbInformation + vbOKOnly, "Perhatian" o.SetFocus Exit For Else IsFilledAll = True End If Next End FunctionContoh penggunaan fungsi di atas:
Option Explicit 'Simpan kode ini pada form untuk mengecek empty text Private Sub cmdCheck_click() If Not IsFilledAll(Label1, Text1) Then Exit Sub 'Check apakah terdapat textbox kosong 'Jika textbox telah diisi maka lanjutkan pada kode berikutnya MsgBox "Seluruh data telah terisi!", vbInformation, "Terima Kasih" End Sub
Semoga Bermanfaat .
No comments:
Post a Comment