Selain cara mas Aksan, validasi bisa juga dilakukan sekaligus dan selektif dengan menggunakan event form before_update, contoh:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctl As Access.Control
For Each ctl In Me.Controls
If VBA.UCase$(ctl.Tag) = "HARUS" Then
If Len(Nz(ctl)) = 0 Then
MsgBox "Data harus diisi..."
Cancel = True
ctl.SetFocus
Exit For
End If
End If
Next
End Sub
Kode diatas akan melakukan validasi untuk semua control yg property TAG-nya
berisi string "HARUS", cursor pun akan berpindah secara otomatis ke setiap
control yang wajib diisi namun masih kosong.
Pada MDB yang saya sertakan, hanya Field Desa, Telp2 dan fax yang tidak
wajib diisi.
Jika validasi sukses, menyimpan data, berpindah record, atau menutup form
bisa dilakukan.
Kode sederhana diatas mungkin cukup berguna jika control yang wajib diisi
jumlahnya banyak dan tingkat validasi-nya hanya memastikan bahwa control
tidak boleh kosong atau null.
Bisa digunkan untuk textbox maupun combobox.
Kode bisa dikembangkan sesuai kebutuhan.
Semoga bermanfaat.
Terima kasih.
Lukito Hartono.
2010/1/13 ginoek_ginoek <[email protected]>
>
>
> Maaf bila pertanyaannya remeh, maklum newbie..
> Saya punya form table dengan 2 textbox. Saya ingin validasi tidak ada isian
> kosong pada semua textbox dg memunculkan notifikasi,tp setelah notifikasi
> itu di "ok", kok kursor berpindah ke textbox lain kendati text itu belum
> diisi.
> mohon bantuannya..
> terima kasih.
>
>
>
Validasi.rar
Description: Binary data
