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

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

سواء بالإضافة أو العرض

وشكرا لكم

الفيديو

الحمد لله

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

وشكرا لكم

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

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

سواء للإضافة

أو للتعديل

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

أخى الفاضل 

Shivan Rekany

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

أخى 

Shivan Rekany

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

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

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

أخى أبو خليل

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

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

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

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

وشكرا لكم

20 دقائق مضت, صالح حمادي said:

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

أخوتي الكرام حياكم الله

أخي محمد بإمكانك إستعمال هذا الكود:

Dim i As String
i = Me.stuname.SelText
Me.fathername = i

بعد ما تقوم بتحديد اسم الأب بمجرد رفع زر الماوس يقوم بلصق الجزء المحدد مباشرة في حقل الأب.

 

 

getfathername.rar

فعلا 

المهم فى كل هذه الأكواد الحدث الذى توضع فيه

و أظنها لا تصلح إلا فى حدث عند رفع الماوس

شكرا لكل من ساهم بالرد

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

و الطريقة عبقرية

شكرا لك و للأخ جعفر

يخيل إلى أن هذا السطر فى الكود يمكن الاستغناء عنه

 'DoCmd.RunCommand acCmdCopy

بهذا السطر

 Selected_Text = Me.stuname.SelText

والله أعلم

مع جزيل الشكر

السلام عليكم

المطلوب إخوتى

كود ينسخ اسم الأب من حقل اسم الطالب

ليلصقه فى حقل اسم الأب

يعنى المستخدم يحدد اسم الأب من حقل اسم الطالب

ثم يقوم الكود بلصق هذا الجزء المحدد فى حقل اسم الأب

استخدمت هذا الكود

Dim i As String
Me.stuname.SetFocus
i = Me.stuname.SelText
Me.fathername.SetFocus
Me.fathername.Text = i

لكن المشكلة أنه ينسخ و يلصق كل الحقل

يعنى يلصق اسم الطالب كاملا

بينما المطلوب لصق اسم الأب المحدد فقط

أرجو المشاركة لمن لديه أفكار

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

والمطلوب فى المرفق

المرفق

getfathername.rar

وفقكم الله

حذف الارتباطات التشعبية من ملف وورد مرة واحدة 

خطوتان

الأولى

حدد كل السطور

الثانية

اضغط

CTRL + SHIFT + F9

بالتوفيق

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

إزالة ارتباط تشعبى 

والله أعلم

وفقكم الله

والله زمااااااااااااااااان

وفق الله الجميع

السلام عليكم

عودة بعد غيبة طويلة جدا عن منتدى الإكسيل

بهذه الطريقة الظريفة 

بدون برامج

وفقكم الله

الفيديو

ممتاز جدا

بحثت عنه طويلا

ملف روعة 

ليس اسما مناسبا للبحث

ملف إكسيل لفهرسة ملفات القرص الصلب

شكرا لك

السلام عليكم

مطلب مهم جداً للكثيرين

وهو عدم ترك حقول فارغة بنموذج

الكود تجدونه أسفل الفيديو

آسف لعدم التمكن من إرفاق الملف

لكن الكود جاهز لوضعه بأى مكان

شاهد هذا

searchforrecord.rar

شكرا لك

فيديو مشابه

نعم معك الحق

وقد اعتدت ذلك

لكن هذه القاعدة تلك المرة بها بيانات

شكرا لك

وفقك الله أخانا العزيز شافان

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

كتطبيق على استخدام دوال التجميع

دالة dlookup - dcount من خلال الكود لعمل الإحصاءات

دالة dlookup  فقط شرح

دالة dcount فقط شرح

بالتوفيق

أهم نقطة فى جملة if

هى أنها تختبر الشروط حسب الترتيب

فإذا وجدت أحد الشروط صحيحا

توقفت و أعطت الجواب الخاص بهذا الشرط

أقصد أنها لا تفحص بقية الشروط

السلام عليكم

شرح فيديو طلب منى

فارتأيت وضعه هنا لتعميم الفائدة لمن يريد

كم عدد الطلاب الحاصلين على مجموع من 22 إلى 35 فيديو للمبتدئين

السلام عليكم

https://www.youtube.com/watch?v=U5AfBSHXzuE&t=16s