أمجد جمالي

اخي الكريم خيول الفجر السلام عليكم في الأستعلام اذهب الى خانة التاريخ وضع الكود التالي Between #01/09/2004# And #30/09/2004# بفرض ان صاحب البرنامج يريد الاستعلام عن شهر سبتمبر الحالي اما اذا كان يريد الاستعلام عن شهر اخر فقط بدل التاريخ من والى وسلملي على صاحب البرنامج وقله تحب اجي حركلك الماوس بنفسي وافتحلك الاستعلام :p مع تحياتي

صباح الخير استاذ سهل إليك بعض أنواع المركبات وهذا كل ماأستطيع حتى الأن سوف اوافيك بالجديد إن أمكن أنشاء الله مع تحياتي لك ابو نعيم وانت أطلب بس TypeOfCar.zip

السلام عليكم ورحمة الله راجع هذا الرابط http://www.officena.net/ib/index.php?act=ST&f=18&t=342 وهذا الرابط http://www.officena.net/ib/index.php?showtopic=3981 تحياتي

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

السلام عليكم مرفق مثال أخر يوضح كيفية حماية قاعدة البيانات وذلك بإغلاقها, اذا لم يحرك المستخدم مؤشر الماوس او الكتابة على لوحة المفاتيح خلال فترة زمنية يتم تحديدها مسبقاً واترك لباقي الزملاء التعديل او طرح طرق أخرى مع تحياتي SecureDatabase.zip

تم تعديل ملفك المرفق مع المشاركة بالتوفيق r3d.zip

أشكرك أخ سهل على هذا الكلام الجميل وهذا جزء بسيط من المجهود الذي تبذله سواء انت اوالأعضاء و المشرفين و كل القائمين على هذا الموقع الاكثر من ممتاز

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

السلام عليكم في الخانة X ضع هذا الكود في الحدث عند الدخول x = [a] * [c] مع تحياتي

هههههههههههههه والله انك عسل وروحك مرحه ومثالك والكود غاية في الروعه وانا ماقلت شي اعتذرت ياخي والله اعتذرنا ها شوف :h سلام

من بعد التحية السيد ساجد لله عذراً لم استطع فهم ماتريد بالضبط ياريت تكتب ماتريد باللغة العامية(لهجتك المحلية) او بالأنجليزية كماتحب وثق تمام انني سوف اساعدك انشاء الله والسلام عليكم

السلام عليكم تفضل Dim Result As Long Result = DCount("[FldName]", "YourTbl", "[FldName] = '555'") If Result = 10 Then MsgBox ("Your message here") End If

يوجد موضوع مشابه لموضوعي في هذا المنتدى للمهتمين http://www.officena.net/ib/index.php?act=ST&f=18&t=342

مرحبا أخت ليلى تم تعديل الملف بإمكانك تحميله من هنا سلام

السلام عليكم لقد توصلت الى حل المشكلة والحمدالله هذا المثال للإطلاع Dim StrBackEndPath, StrBackEndName As String Dim CnnNet As New ADODB.Connection Dim RstBEDefault As New ADODB.Recordset '-- Open a connection to the backend database CnnNet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrBackEndPath & "\" & StrBackEndName & ";Jet OLEDB:DataBase Password=123" '-- Open the database properties table RstBEDefault.Open "TblClient", CnnNet '-- Your code '-- After Finish clean up RstBEDefault.Close CnnNet.Close Set RstBEDefault = Nothing Set CnnNet = Nothing حيث ان StrBackEndPath مسار الملف StrBackEndName أسم قاعدة البيانات المراد الأتصال بها TblClient اسم الجدول المراد الاتصال به '-- Your code مجموعة الاوامر المراد تنفيذها مع تحياتي ال جميع اعضاء المنتدى

شكراً لك أخ ابو هادي ولكن في مشروعي اقوم بربط الجداول وليس بنسخها واعتذر ربما انني لم اذكر هذا في سؤالي وشكراً

أشكرك أخ عبدالله بالفعل من بعد البحث وجدت موضوع مشابه لموضوعي شكراً وهذا هو الرابط للمهتمين http://www.officena.net/ib/index.php?showtopic=1164&hl=

أخواني الأعزاء من بعد التحية لدي برنامج بقاعدتين بيانات ولتكن الأولى BackEnd والثانية FrontEnd في ال BackEnd يوجد فيها الجداول فقط في ال FrontEnd يوجد فيها النمازج والتقارير ووحدات الماكرو والأكواد موقع ال BackEnd على سيرفر الشبكة ال FrontEnd موزع على جميع اجهزة المستخدمين في الشركة تم برمجة كود يقوم بالمرور على الجداول واحد تلو الأخر واستيرادها من ال BackEnd الى FrontEnd عند تشغيل FrontEnd لأول مرة وهو يعمل من دون مشاكل والحمدالله . مؤخراً قمت بحماية قاعدة البيانات ال BackEnd بكلمة المرور فلم استطع استيراد تلك الجداول سؤالي الأن هو :هل أستطيع برمجة كود يفتح قاعدة البيانات المحمية بكلمة المرور ويستورد الجداول ومن ثم يغلقها تم اقتباس هذه الفكرة من كتاب Access2002 للمطوريين للمهندس Scott Barker ترجمة واعداد المهندس رامي القضماني و الغرض الرئيسي من هذه العملية عدم فقدان البيانات في حالة تحديث البرنامج .

الاخ واضح 2002 مرحبا اقدم لك هذا المثال لعلى وعسى ينال اعجابك بس بدي الحلوان من هنا اوعك تنسا الحلوان ها :pp:

الاخ حسان السلام عليكم لم استطع فهم ما تريد لكن اليك الدالة لإحصاء عدد السجلات وهي Dcount

الأخ احمد السلام عليكم اشتريت هذه النسخة وهي مؤلفة من 7 اقراص ولكن من دون فائدة ومن بعد البحث في الأنترنت توصلت الى هذه البرنامج من موقع Mivrosoft Microsoft Office Access 2003 Developer Extensions من هنا وهذه البرنامج موجود في الحزمة Visual Studio Tools for the Microsoft Office System MSDN Universal وحتى تاريخ اليوم لم اجد هذه الاصدارات وشكراً

يعطيك العافية يامزوق

تعدل من SupForm الى أسم النموزج الفرعي وليس الأساسي أو بالعكس تضع هذه الشفرة في النموزج الفرعي وتشير الى أسم النموزج الأساسي حسب احتيجاتك كما أنصحك أخي الكريم أن تسمي النمازج والجداول والتقارير باللغة الأنجليزية بالمناسبة هذه الكود يفيدك في حال تعديل سجل مضاف بالأصل لتزامن النموزج الفرعي مع الأساسي في حال إضافة سجل جديد عدل الشفرة من Refresh الى Requery

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

جرب هذه الكود عند الحدث After Update في النموذج الأساسي Forms!SupForm.Refresh