Hai,
Saya coba kasih jalan cepat, siapa tau berfungsi.
Private Sub Date_INP_LostFocus()
If len(Me.Date_INP)=0 Then
MsgBox "Maaf anda belum memasukan INP Date", vbInformation, "Warning"
End If
End Sub
kalau masih g bisa pake
Private Sub Date_INP_LostFocus()
If len(Me.Date_INP)>0 Then
else
MsgBox "Maaf anda belum memasukan INP Date", vbInformation, "Warning"
End If
End Sub
Hal ini dikarenakan nilai yang berupa text/string, bisa bernilai null dan null
<> dengan empty string ("")
Semoga bisa membantu
--- In [email protected], Cecep W <cepwa...@...> wrote:
>
> hallo pakar access semua...
>
> saya memasukan Event On LostFocus sbb :
>
> Private Sub Date_INP_LostFocus()
> If Me.Date_INP = "" Then
> MsgBox "Maaf anda belum memasukan INP Date", vbInformation, "Warning"
> End If
> End Sub
>
> ini tujuannya aga field Date_INP harus selalu terisi namun setelah
> dijalankan tidak ada reaksi apa2 walaupun field Date_INP saya
> kosongkan. apa yg salah ya?
>
> regards
> CW
>
