أبو أحمد

أخي الكريم / شكرا على سعة صدركم 

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

فهل عملت تقرير فرعي في النموذج  فقط

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

استاذي الكريم / 

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

وأسف على أنني ثقلت عليكم وشكرا على سعة صدرك 

استاذي الكريم / جزاكم الله خيرا هذا ما كنت أريده 

ولكن هناك مشكلة في القاعدة فكلما دخلت على التصميم تظهر لي رسالة المرفق لكم فما الحل 

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

untitled.rar

ما سبب المشكلة  ؟ جزاكم الله خيرا

اين المساعدة الاساتذة الكرام 

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

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

لدي سؤال هل يمكن جعل الترقيم التلقائي في النموذج لا يزيد عن رقم معين وليكن 10000 بحييث لا يسمح بتسجيل أي سجل بعد ذلك

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

 Shivan Rekany / استاذي الكريم

 هل يمكن التعديل في الملف الخاص بكم بحيث يمكن البحث كما هو ولكن يكون البحث بجزء من الكلمة وليس الجملة بالكامل 

بمعنى عند البحث عن كتاب فقه السنة هل يمكن البحث بكلمة واحدة وليكن فقه ، أو بالبحث بكلمة السنة مثلا

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

مرفق لكم الملف الخاص بكم مرة ثانية

db2.rar

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

الاساتذة الكرام / في انتظار المساعدة زادكم الله علما

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

اين المساعدة الأساتذة الكرام 

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

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

أستاذي الكريم / أسف إذا كنت أثقلت عليكم 

ولكن اذا كان في صعوبة في التعديل على الملف السابق فهل يمكن التعديل في الملف الخاص بكم بحيث يمكن البحث كما هو ولكن بجعل البحث بجزء من الكلمة وليس الجملة بالكامل 

بمعنى عند البحث عن كتاب فقه السنة هل يمكن البحث بكلمة واحدة وليكن فقه ، أو بالبحث بكلمة السنة مثلا

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

مرفق لكم الملف الخاص بكم مرة ثانية

db11.rar

On ٤‏/٣‏/٢٠١٧ at 3:52 PM, Shivan Rekany said:

هل هذا هو ما تبحث عنه ؟
استخدمت هذا الكود

If Me.Search1 = "" Then
MsgBox "ãÑÈÚ ÇáÈÍË ÎÇáíÉ .. åá ÊÈÍË Úä Ôí .. ÇßÊÈå "
Me.Search1.SetFocus
Exit Sub
End If
If Me.comb = "" Then
MsgBox " ßæãÈæÈÈæßÓ ÝÇÑÛÉ .. ÇÎÊÇÑ Ýí Çí ÓÌá ÊÈÍË "
Me.comb.SetFocus
Exit Sub
ElseIf Me.comb = "Title" Then
DoCmd.OpenReport "report", acViewPreview, , "[title]='" & Me.Search1 & "'"
ElseIf Me.comb = "Outher" Then
DoCmd.OpenReport "report", acViewPreview, , "[Outher]='" & Me.Search1 & "'"
ElseIf Me.comb = "Subject" Then
DoCmd.OpenReport "report", acViewPreview, , "[Subject]='" & Me.Search1 & "'"
ElseIf Me.comb = "Publisher" Then
DoCmd.OpenReport "report", acViewPreview, , "[Publisher]='" & Me.Search1 & "'"
End If

 

db1.rar

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

ولكن أليس هناك امكانية في التعديل على هذا المرفق 

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

db3.rar

استاذي الكريم / 

في النموذج الذي وضعته لا يوجد 

Text17 

وهو الذي يستفسر عنه عند الضغط على زر بحث 

هذا هو الخطأ الذي وضحته 

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

اين المساعدة الاساتذة الكرام 

الاستاذ الكريم المشكلة ما زالت قائمة ولا أعلم لها حل

اين المساعدة الاساتذة الكرام 

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

ولكن فيه مشكلة في الكود ويعطي لي رسالة المرفقة هنا 

أسف للتعب ولكن "يقول رسول الله صلى الله عليه وسلم إن الله يحب إذا عمل أحدكم عملا أن يتقنه" 

أو كما قال رسول الله صلى الله عليه وسلم 

وطلب أخير وأكون مشكور أن تكون الكلمات باللغة العربية 

بمعنى بدلا من Title تكون العنوان

Outher  تكون المؤلف وهكذا 

يعني البحث في العنوان ، المؤلف ، الموضوع ، بيانات النشر ، عنوان السلسلة ، الرقم العام فقط 

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

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

هذا يؤدي المهمه

ولكن ليس هذا هو المطلوب

انا رأيت ذلك في إحدى قواعد البيانات 

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

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

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

جزاكم الله خيرا لما تقدمونه من مساعدات جليل جعلها الله تعالى في ميزان حسناتكم ونفع بكم المسلمين

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

مرفق لكم قاعدة بيانات مبسطة للتعديل عليها وجزاكم الله خيرا 

db1.rar

الاخوه الكرام / أعضاء المنتدي

ما هي خطوات الوصول للماكرو في 2010 لخفض مستوى الامان 

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

جزاكم الله خيرا أستاذي الكريم وزادكم علما

أستاذي الكريم جزاكم الله خيرا لو تم تحويل الملف إلى اكسل 2003 

الاساتذة الكرام أعضاء المنتدى

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

هل من كود لتصفية عمود ومعرفة عدد البنين وعدد البنات في هذا العمود

بمعنى يوجد عمود بعنوان الجنس يحتوي على " ذكر" و"انثى

المطلوب في احد الخلايا ظهور عدد الذكور وفي خلية أخرى يظهر عدد الانثى

أرجو أن أكون وضحت الفكرة 

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

الأساتذة الكرام / أعضاء المنتدى 

لا يسعوني إلا أن أتقدم لكم بالشكر

وكما قال الرسول الكريم صلى الله عليه وسلم " من قدم لكم معروفا فكافئوه فإن لم تجدوا  فقولوا له جزاك الله خيرا " أو كما قال الرسول صلى الله عليه وسلم 

فجزاكم الله خيرا وعفوا إن كنت قد كلفت عليكم 

أستاذي الكريم / أبو براء بارك الله فيكم

أنا لم أستطع وضع الكود الذي أرشدتني إليه فهل يمكنكم المساعدة 

علما بأن ما أريد تحويله قد يكون باللغة العربية أو باللغة الإنجليزية 

مرفق مثال للتوضيح 

Ex.rar

Ex.rar

طبعا أستاذي الكريم

شكرا أستاذي أبو براء وأستاذي سليم   

ولكن أنا أسف كنت مشغول في تجربة الكود 

وهذا سبب تأخري

كيف نجعل المثال السابق ينطبق على اللغة الإنجليزية 

بمعنى لو الجملة هكذا 

Giza : nahdet miser , 2006.

وأردت أن أحصل على جملة 

nahdet miser

فقط فكيف نحول المعادلة هذه 

IF(A3="";"";MID(LEFT(A3;FIND("،";A3)-1);FIND(":";A3)+1;500))

أستاذي الكريم 

جزاكم الله خيرا وزادكم علما ونفع بكم المسلمين 

هذا هو المطلوب

استاذي الكريم مرفق لكم مثال بسيط وجزاكم الله خيرا Insert other media

Ex.rar