*كود* ورسالة تفيد بتكرار الرقم ولا يسمح بأن يترك الحقل فاضي

الأخ فتى الوادي :

http://mypage.ayna.com/ashrafk/db97.mdb

راجع هذه القاعدة على اكسيس 97

أشرف خليل

السلام عيلكم جميعاً ....

ضع هذا الكود عند After Update لرقم الفاتورة مهلاً

Dim i As Integer

i = DCount("[AC-CUSTOMER TRANSACTION]![MOVE_NO]", "AC-CUSTOMER TRANSACTION", "([AC-CUSTOMER TRANSACTION]![MOVE_NO]=Forms![AC-BILL]![MOVE_NO]) AND ([AC-CUSTOMER TRANSACTION]![MOVE_DATE] =Forms![AC-BILL]![MOVE_DATE] )")

If (IsNull(Forms![AC-BILL]![CUS_CODE])) Or (IsNull(Forms![AC-BILL]![sALESMANCODE])) Or (IsNull(Forms![AC-BILL]![MOVE_IN_DEBIT])) Or (i >= 1) Then

MsgBox "هذه الفاتوره موجوده؟يا حبيبي؟ او لم يتم ادخال كافة البيانات يا قمر؟"

DOCMD.Close

Forms![AC-BILL].SetFocus

Forms![AC-BILL]![sALESMANCODE].SetFocus

[m]

طريقة أخري

[/m]

:rolleyes: :rolleyes: :rolleyes:

Private Sub Text0_BeforeUpdate(Cancel As Integer)
'To avoid Null
 If IsNull(Me.Text0) Then
  MsgBox "Null values are not Allowed"
  SendKeys "{ESC}"
  Cancel = True
  Exit Sub
 End If

If Not IsNull(Me.Text0) Then
'if x is a number
 Dim myval As Integer
 myval = Me.Text0
 Dim x
 x = DLookup("ID", "Table1", "[ID]=" & myval)
 If x = Me.Text0 Then
  MsgBox "Value already Exist"
  SendKeys "{ESC}"
  Cancel = True
 End If
End If

:rolleyes: :rolleyes: :rolleyes:

الأخوة الكرام ... أشكركم على تفاعلكم .. ونفع الله بكم وبعلمكم ...

ممكن توضيح الكود بمثال بسيط ... بحيث لا يسمح بتكرار الرقم أو ترك خانة الرقم فاضية .. أما خانة الموضوع فأنه لا يسمح بأن تترك فارغة وتخرج رسالة تفيد بأن لا بد من تعبئة حقل الموضوع أو أغلاق النموذج ..

أكرر شكري للجميع ..

والسلام عليكم ورحمة الله وبركاته .

بالنسبة لعدم ترك حقل الرقم أو الموضوع فارغ فهناك طريقة بدون استخدام أكواد :

افتح الجدول في عرضالتصميم وفي خاصية قاعدة التحقق من الصحة للرقم أو الموضوع ضع Is Not Null وفي خاصية نص التحقق من الصحة اكتب الرسالة المناسبة عند ترك الحقل فارغا لكلا الحقلين .

ولك تحياتي

السلام عليكم ورحمة الله وبركاتة

كل عام وانتم بخير

الله يتقبل منا ومنكم الصيام وسائر الاعمال

شباب عند سؤال

هو عندي جدول اضيف فيه بيانات خاصة بالعميل اي حقول كثيرة

ومن بين هذة الحقول رقم البطاقة الشخصية

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

والله يعيد علينا وعليك شهر رمضان أعوام عديدة وكرات مديدة

انة سميع مجيب الدعاء

الأخ الكريم

(1) ابحث في الصفحات القديمة .

(2) يستحب جدا أن يكون الموضع معبرا عن المشكلة ، ثلاثة من مواضيعك لاتعبر عن مضمونها :

- موضوع هام في الأكسس

- شباب الأكسس

- شباب المنتدى

وهذا يحرم غيرك من الاطلاع على الفوائد الموجودة في هذه المواضيع برجاء التقيد بذلك .

اطلع على الصفحات القديمة وستجد فوائد ومشاركات نافعة جدا .

ولك تحياتي

[تم دمج موضوعك مع هذا الموضوع لتشابه المشكلة]

أخونا الكريم

إجابة سؤالك موجودة باعلي

أن كان هناك مشكلة

ضع البرنامج الخاص بك فى صفحة مجانية ليقوم أحد بتعديله

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