ارجو الرد .. تحويل الارقام من انجليزي لعربي عند الكتابة؟؟؟؟

الأخ /يرموك

سراحة أنا لم استطيع التمييز بين أغلب الجداول !؟

ما المقصود بالمستبعدين ؟

سجل طلبات المنح هل تقصد به من تقدم بطلب منح أرض أم من تم منحه أرض

عموماً سأفعل ما استطيع فعله على حسب فهمي لطلبك0

رأي فقط0

أولاً لماذا لم تعمل جدول أساسي وتسميه جدول الممنوحين أراضي0

ثانياً : جدول وتسميه الأراضي الممنوحة0

ثالثاً : جدول غير المسموح لهم بمنح أراضي0

وجميع الجداول تحتوي على رقم الهوية ويكون رقم الهوية في جدول الممنوحين أراضي مفتاح اساسي وتربط جدول الأراضي الممنوحة به وإذا كان مسموح للشخص منح أرض مرة واحدة تجعل رقم الهوية في جدول الأراضي الممنوحة مفتاح اساسي وبدون تكرار0

يفيدك ذلك بأنه لوا تقدم احداً بطلب منح أرض وقمت بتسجيل هويته سوف تظهر لك رسالة تفيد بأن هذا الشخص مكرر0

عموماً هذا مجرد رأي لا يقدم ولا يؤخر 0

سوف أقوم الأن بإضاح الحل لطلبك0

في الأكسيس توجد خاصية من خصائص مربع النص في النموذج أو التقرير في البند تنسيق اسمها أشكال رقمية أختر دولي إذا كان الأوفس لديك أكس بي أو 2000 وأختر هندي إذا كان الأوفس لديك 97 هذا بالنسبة للأرقام0

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

Dim R As Integer
R = Dlookup("[رقم الهوية]", "سجل طلبات المنح", "[رقم الهوية]=[forms]![سجل الأراضي الممنوحة]![رقم الهوية]")
If Not IsNull® Then
MsgBox " هذا الشخص مسجل مسبقاً ", vbCritical + vbMsgBoxRight, "تنبيه"
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.رقم الهوية.SetFocus
End If

وبالمثل بالنسبة للبقية0

لك تحياتي

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

لا شكر بين الأخوة

اخبرنا بما تتوصل إليه يهمنا أن تستفيدوا

السلام عليكم

اخي مصلح فعلت ماقلت لي ووضعت الكود لكن طلع خطا ما لاادري ماهوPrivate Sub أمر52_Click()

On Error GoTo Err_أمر52_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.PrintOut acSelection

Exit_أمر52_Click:

Exit Sub

Dim R As Integer

R = DLookup("[رقم الحفيظة]", "سجل طلبات المنح", "[رقم الحفيظة]=[forms]![سجل الأراضي الممنوحة]![رقم الحفيظة]")

If Not IsNull® Then

MsgBox " هذا الشخص مسجل مسبقاً ", vbCritical + vbMsgBoxRight, "تنبيه"

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Me.رقم الحفيظة.SetFocus

End If

Dim R As Integer

R = DLookup("[رقم الحفيظة]", "سجل طلبات المنح", "[رقم الحفيظة]=[forms]![سجل الأراضي الممنوحة]![رقم الحفيظة]")

If Not IsNull® Then

MsgBox " هذا الشخص مسجل مسبقاً ", vbCritical + vbMsgBoxRight, "تنبيه"

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Me.رقم الحفيظة.SetFocus

End If

Err_أمر52_Click:

MsgBox Err.Description

Resume Exit_أمر52_Click

End Sub

ارجو توضيح الأمر لي وعدل عليه ...

مع الشكر لك

لحظات وسوف اوافيك بالرد

لقد وضعت كود على المثال على رقم الحفيظة في النموذج المسمى "سجل الأراضي الممنوحة" كرر رقم الحفيظة مرتين وشاهد النتيجة0

هذا المثال

sgl.zip

السلام عليكم

تعبناك معنا

شكرا لك اخي مصلح وأمل التواصل معك و مع رواد المنتدى

الشكر لله

لا يهمني التعب ولا كثرت الأسئلة ولكن يهمني إذا تعبت في موضوع ما أن اصل مع صاحبه إلى غايته التي يرجوها

:D ;)