08 April 2013

Kode Ini Efektif Untuk Validasi Empty Text - Database VB6

Dalam pembuatan apllikasi database, memvalidasi data yang akan di entry sangatlah penting. Apakah tujuan umata validasi entry tersebut ?

  • Pertama: Mengarahkan user untuk mengisi form secara benar.
  • Kedua: Meminimalisir error yang terjadi
  • Ketiga dan seterusnya : Silakan Anda tambahkan.
Dari sekian banyak validasi entry yang umum digunakan, diantaranya adalah validasi empty text, yang digunakan untuk memeriksa apakah text telah terisi atau belum.

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 Function 
Contoh 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

Recent Comment

Contact Form

Name

Email *

Message *

2012 © Jabat Software