مشكلتان فى الفورم

يوجد مشكلتان بعد اذنكم

1- عتدي حقل فى فورم أريد عمل كود لمنع التكرار فيه مع اظهار رسالة للمستخدم تفيد ذلك

وهذه محاولتي مع هذه المشكلة :

x = DLookup("st_code", "personal data", "[st_code] = " & Val(st_code.Text))
If x <> " " Then

MsgBox (x)
End If

بحيث ال st_code هو اسم الحقل و ال personal data هو اسم الجدول فالمفروض لو رجعت x بقيمة يكون السجل موجودا فيظهر رسالة تفيد ذلك ولكن المشكلة أن x دائما تعود بقيمة .

فلو كانت القيمة موجودة أصلا يعود بها وإلا فيعود بالقيمة الجديدة المدخلة.

2- عند ادخال بيانات خطأ أو غير كاملة وبالرغم من أنى لا اعمل حفظ لها الا انها تحفظ فى الجدول المبنى عليه الفورم والغريب انها لا تظهر فى الفورم نفسها فما هو حل هذه المشكلة بحيث لا يحفظ البرنامج الا البيانات التى اعمل حفظ لها فقط

وجزاكم الله خيرا