عند تسجيل بيانات شخص تظهر معلومات اقاربه

[alriashi]

اسعد الله اوقاتكم بكل خير

 

اساتذتي الكرام ارجو مساعدتكم في التالي

في نموذج ادخال البيانات يوجد ثلاثه نماذج مصدرهن ثلاثه جداول

الأول اسم الشخص وجنسيته وبطاقته ونوع الجنس

الثاني معلومات كثيرة عن نفس الشخص

الثالث اسما اقاربه

المطلوب بارك الله فيكم

اليوم سجلت احمد ومعلوماته وأسماء اقاربه

بعد شهر او سنه اكثر او اقل جاني اسم احد أقارب احمد مثال صالح

انا الحين ما اعرف انه قريب احمد وانه سبق وان تم تسجيله في أقارب احمد وأريد اسجله في النموذج الأول

اريد تظهر رساله عند تسجيل رقم بطاقة صالح تخبرني ان هذا الاسم يوجد في نموذج أقارب احمد

 

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

Database2.rar

[ابو جودي]

وفين الحقل الخاص برقم البطاقة اصلا ؟

هل هو الرقم الشخصى ؟!.......

ياريت تحدد طلبك رقم البطاقة هاد يخص مين تحديد وهل موجود باكثر من جدول واللا لاء
وماذا تقصد بالنموذج الاول 

ولو فى اكثر من اسم متشابه ايه الحل ؟؟؟؟  - يعنى مثلا فى محمد وله قريب اسمه صالح  ههههههه صالح يجى مع مين محمد واللا احمد ؟!

 

تم تعديل أكتوبر 25, 2021 بواسطه ابا جودى

[alriashi]

بارك الله فيكم على سرعة الاستجابه

انا كنت حاسس ان السؤال كان غير واضح. انسى كل اللي فات وانسى الجداول اللي انا عملتهم وعدل من من عندك. 

اولا ضيف لي خانات الاقارب حسب خبرتك في اي جدول تراه مناسب.

الحين السؤال

جاتني معاملة احمد ادخلت بياناته ورقمه الشخصي 123 وقريبه صالح ورقمه الشخصي 666

بعد فتره تكررت معاملة احمد فعند ادخال رقمه الشخصي وهو 123 هذا سوف يظهر لي بيانات احمد واقاربه حسب الكود الموجود في حقل الرقم.

المطلوب الله يوفقك

بعد فترة جتني معامله لصالح اريد عند ادخال رقمه الشخصي اللي هو 666 تظهر رساله تخبرني هذا احد اقارب احمد.

ارجو ان اكون قد وفقت في توضيح السؤال.  وشكرا

 

[Moosak]

تفضل أخي العزيز ..

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

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

هذا حسب ما فهمت من المطلوب ..

 

 

الأقارب.accdb

[د.كاف يار]

5 ساعات مضت, alriashi said:

بعد فترة جتني معامله لصالح اريد عند ادخال رقمه الشخصي اللي هو 666 تظهر رساله تخبرني هذا احد اقارب احمد.

 

اذا كانت صلة القرابة تعرف بآخر الإسم فتفضل هذا الكود

انشئ Module جديد و الصق فيه الشفرة التالية

Public Function StrLast_name(FullName As String)
On Error Resume Next
Dim name As String
Dim first_name As String
Dim mid_name As String
Dim last_name As String
    name = FullName
    first_name = Left(name, InStr(name, " ") - 1)
    mid_name = Mid(name, InStr(name, " ") + 1, InStrRev(name, " ") - InStr(name, " ") - 1)
    last_name = Right(name, Len(name) - InStrRev(name, " "))
    StrLast_name = last_name
End Function

في الإستعلام اضف الحقل التالي

Strlast_name([ename2])

و ضع له المعيار التالي

Strlast_name([Forms]![eform1]![ename])

و يكون بهذا الشكل

و ستكون  النتجية بهذا الشكل

 

الإستعلام بناء على الإسم الأخير و كل من له علاقة بالإسم الأخير

Database2.accdb

[ابو جودي]

السلام عليكم 

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

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

 

 

Data Registration.mdb

تم تعديل أكتوبر 25, 2021 بواسطه ابا جودى

[alriashi]

الله يجزاكم كل خير اساتذتي الكرام

كل اللي طرحتوه جميل جدا وتشكروا عليه غاية الشكر

والذي طرحه الاستاذ ابا جودي هو ما اريده بالضبط .. فاكمله بارك الله فيك وزادك علما.

الف الف شكر لكم جميعا اساتذتي الاعزاء

منتظر تكملة المشروع استاذي ابا جودي .. الف تحية وتقدير

[ابو جودي]

اتفضل يا استاذ @alriashi

فى انتظار ردك بعد التجربة 

Data Registration (v. 2).mdb

[alriashi]

3 ساعات مضت, ابا جودى said:

اتفضل يا استاذ @alriashi

فى انتظار ردك بعد التجربة 

Data Registration (v. 2).mdb 696 kB · 3 downloads

احسنت جزاك الله خير.. هذا هو المطلوب بالفعل

باقي تفضل علي استاذي الكريم واجعل الرسائل بالعربي

وشكرا

[saaad 213]

عمل ممتاز ولكن الصورة لا تظهر في التقرير 

[ابو جودي]

2 ساعات مضت, saaad 213 said:

عمل ممتاز ولكن الصورة لا تظهر في التقرير 

نسيت

[ابو جودي]

تمت كتابة الرسائل بالعربية ولضيق وقتى لم احولها لـ unicode  ولكن لا انصح بكتابة العربى داخل محرر الاكواد

تم تنقيح وتعديل بعد الاخطاء

تم تفعيل الحذف ويتم معه حذف السجلات الفرعية والمرتبطة بالسجل الرئيسي والصورة

تم تعديل ظهور الصورة بالتقرير 

Data Registration (v. 3).mdb

تم تعديل أكتوبر 27, 2021 بواسطه ابا جودى

[alriashi]

احسنت استاذ ابا جودي

شغل عدل لا عدمناك يالغالي

 

تقبل اجمل تحية وتقدير

[ابو جودي]

2 ساعات مضت, alriashi said:

تقبل اجمل تحية وتقدير

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

[alriashi]

اسعد الله اوقاتكم بكل خير

 

حاولت اظهار الصوره في التقرير

وحتى تاريخه بائت محاولاتي بالفشل.

 

ارجو المساعده .... وشكرا

[ابو جودي]

3 ساعات مضت, alriashi said:

اسعد الله اوقاتكم بكل خير

 

حاولت اظهار الصوره في التقرير

وحتى تاريخه بائت محاولاتي بالفشل.

 

ارجو المساعده .... وشكرا

طيب ليه ما قولت من وقتها 

اتفضل جرب الطريقة الجديدة دى ان شاء الله كله يكون تمام 

علشان تبقى عارف انا عملت روتين عام يعمل مسار للصورة ومن خلال مصدر بيانات النموذج او الجدول يتم استدعاء الروتين الخاص بالمسار لينشئ مسار الصورة 

 

انا باعتذر لحضرتك 

Data Registration (v. 4).mdb

[ابو جودي]

طيب علشان لو حابب تنقل التعدل لقاعدتك انت

هذا الروتين الذى تم اضافته الى الموديول  والذى ينشئ مسار للصورة تبعا للرقم الشخصى

Public Function ImgPath(ByVal intProNo As Integer)
  ImgPath = CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\" & Dir(CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\")
End Function

وفى مصدر بيانات النموذج والجدول كذلك تم عمل استعلام واضافة الجزء الذى يستدعى الروتين كالاتى 

ImgPath([PersonalNumber])

وقمت بعمل تسمية لهذا الحقل فى الاستعلام ليكون الحقل باسم  Pic    فيكون السطر السابق من الكود بالشكل 

Pic : ImgPath([PersonalNumber])

وفى كل من النموذج ,  والتقرير نجعل عنصر التحكم فى الصورة يساوى الحقل Pic

تم تعديل نوفمبر 7, 2021 بواسطه ابا جودى

[alriashi]

احسنت استاذي العزيز

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

 

شكرا جزيلا

[khaled1962]

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

If DCount("*", "qryUnionPrsNo", stLinkCriteria) > 0 Then

هنا stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber ------------------> هنا اريد أي يكون المعرف نصي وليس رقمي 

لأن الرقم الذي أريد أن يتطابق مع رقم الادخال يوجد فيه روف وليس أرقام فقط  حين طبقت الدلة هذه يعطيني خطأ 

مع خالص تحياتي

[ابو جودي]

58 دقائق مضت, khaled1962 said:

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

If DCount("*", "qryUnionPrsNo", stLinkCriteria) > 0 Then

هنا stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber ------------------> هنا اريد أي يكون المعرف نصي وليس رقمي 

لأن الرقم الذي أريد أن يتطابق مع رقم الادخال يوجد فيه روف وليس أرقام فقط  حين طبقت الدلة هذه يعطيني خطأ 

مع خالص تحياتي

اتفضل
 

نستخدم ذلك مع الارقام'
stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber

نستخدم ذلك مع النصوص'
stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'"

نستخدم ذلك مع التواريخ'
stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

 

[khaled1962]

بارك الله فيك  اخي الكريم  مشكور جدااا على المعلومة الله يرحم والديك