مطلوب عرض سجل واحد فقط فى النموذج الفرعى

[عبد الفتاح كيرة]

السلام عليكم

لدى نموذج رئيسى مرتبط به نموذج فرعى

لكل سجل فى الرئيسى سجل واحد فى الفرعى

المطلوب عرض هذا السجل الوحيد فى الفرعى 

المشكلة عند ضغط مفتاح الإدخال أو الجدولة فى الفرعى

يخفى السجل الوحيد و يظهر سجلا فارغا جديدا

كيف يمكن منع ذلك

وإظهار السجل الأول فقط فى الفرعى

وعدم السماح بإظهار سجل آخر و لو فارغا لأنه يخفى السجل الأول

وشكرا لكم

 

 

[ابوخليل]

وعليكم السلام

ما نوع العلاقة بين الجدولين

ان كانت  واحد لكثير  اضبط خصائص النموذج الفرعي :

الخصائص/بيانات/ نوع مجموع السجلات = لقطة

ولكنك لن تستطيع التحرير  في السجل الجديد

او من الخصائص ايضا :

بيانات / السماح بالاضافة =لا

وهذا ايضا لن تستطيع تحرير السجل الجديد

ولكني لم افهم :

اقتباس

يخفى السجل الوحيد و يظهر سجلا فارغا جديدا

اتمنى ترفق مثالا بالمشكلة 

[Shivan Rekany]

حسب فهمي لسؤالك

اعمل بين جدولين علاقة واحد الى متعدد

افتح استعلام مصدر نموذج فرعي في وضع تصميم Sql واضف اليه بعد كتابة select اضف top 1 وفتح في وضع تصميم عادي اكتب في خانة شرط اي واحد تريد يظهر مثلا عندك حقل تسلسلي اكتب ماكس لكي يظهر السجل الاول

هذا حسب فهمي لسؤالك والله اعلم 

[عبد الفتاح كيرة]

أخى أبو خليل

ساجرب ما قلته بعد صلاة الجمعة ان شاء الله

العلاقة واحد لتعدد

يخفى السجل الوحيد

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

المطلوب عدم إخفاء السجل الأول ابدا مع السماح بالتعديل فيه فقط

 

على أرض الواقع

كل موظف له راتب أساسى واحد

 

 

 

 

[عبد الفتاح كيرة]

أخى الفاضل أبو خليل

جربت اللقطة فعلا لم يظهر سوى السجل الأول

لكن لم يسمح لى بالتعديل فيه

فقط يعرض بياناته

 

المطلوب بصيغة أخرى

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

أخى الفاضل 

Shivan Rekany

جارى تجربة حلك

أخى 

Shivan Rekany

طريقةى max مع التجميع

تعرض ما هو موجود

لكن لا تسمح بإضافة سجل لموظف جديد

 

[عبد الفتاح كيرة]

الحمد لله

هديت إلى المطلوب بعد عناء بحث كبير

وشكرا لكم

وهذه هى الطريقة لمن يريدها

هذه وظيفة تمنع أى سجل غير الأول

سواء للإضافة

أو للتعديل

أو حتى مجرد الإظهار

 

إذا كان للموظف سجل فى الفرعى به الأساسى

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

إذا لم يكن للموظف سجل 

يظهر لك سجلا جديدا تضع فيه الأساسى

و إذا حاولت إضافة سجل تالى غير الأول

يختفى السجل الثانى الفارغ

هذه هى الوظيفة التى تقوم بذلك

Public Function LimitRecords( _
                    frm As Access.Form, _
                    Optional RecLimit As Integer = 1)

    ' Limit the number of records in the form passed as
    ' to no more than the number specified by .

    With frm.RecordsetClone
        If .RecordCount <> 0 Then .MoveLast
        frm.AllowAdditions = (.RecordCount < RecLimit)
    End With

End Function

و تستدعى الوظيفة من خلال حدث فى الحالى كما يلى فى النموذج الفرعى

Private Sub Form_Current()

    '*** Substitute your subform control name for "sfMySubform" ***
    LimitRecords Me.Form   ' allow at most 1 record
'    LimitRecords Me.sfMySubform.Form, 5   ' allow at most 5 records

End Sub

و استكمالا للفائدة

هاكم الملف

والمعلومة مفيدة جدا

 

إخوتى الكرام

بعد تحميل الملف حاولوا إضافة أكثر من سجل فى الفرعى لموظف واحد

myway1.rar

تم تعديل فبراير 24, 2017 بواسطه عبد الفتاح كيرة

[رمهان]

السلام عليكم 

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

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

وبه ايضا اختصار لفكرة معالجة خاصية السماح بالاضافة بالكود وهي طبعا فكرتك وتم تعطيل الكود لتجربة الفكره اعلاه

بالتوفيق

 

 

myway1.rar

تم تعديل فبراير 27, 2017 بواسطه رمهان

[عبد الفتاح كيرة]

قبل فتح أى مرفق

أشكرك على الاهتمام و الرد

جارى التحميل و الاطلاع

 

الرد فى الصورة

ولم أعرف بعد ما تم بدون أكواد

https://pbs.twimg.com/media/C5srqzeWAAAu014.jpg:large

https://pbs.twimg.com/media/C5srqzeWAAAu014.jpg

[عبد الفتاح كيرة]

استخدمت خاصية الدورة و ضبطها على السجل الحالى

لكن ماذا عن مفتاح pageup  - pagedown , 

عموما الفكرة جديدة و جميلة أشكرك أن زودتنى بها

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

[رمهان]

منذ ساعه, عبد الفتاح كيرة said:

استخدمت خاصية الدورة و ضبطها على السجل الحالى

بالاضافة الى تصغير ارتفاع النموذج ليظهر سجل واحد 

وكلامك صحيح مشكلة ازرار تنقل الصفحة 

 

[عبد الفتاح كيرة]

وفقك الله

وشكرا لمشاركتك النافعة و اختصار الكود