mrnooo2000

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

اخى الكريم لا اجد فارق بين الصورتين

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

غير خصائص التقرير ايضا و ضع هذا الكود عند الفتح docmd.maximize

بالتوفيق

تقضل اخى ما طلبت تسلسل الارقام المفقودة لكل اسم4.rar

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

مشاركة متميزة اخ ابو عمر و ننتظر منك الكثير ان شاء الله و اهلا بك فى المشروع لكن لو امكن ان ترفق الصور ( مجموعة صور لو امكن ) مع البرنامج حتى يمكن ربطها بالنموذج حتى لا يزيد الحجم بهذا الشكل و يمكننا جعل الخلفية اختيارية من المستخدم هذه الاعدادات يتم حفظها تلق…

بالضبط اخى هذا ما اقصده

شكرا على التنويه اخى

الاخ/الاخت سما مثال جيد و بالتوفيق

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

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

استخدم هذا الكود حيث تريد Forms!form1.Text2 = DSum("num", "totals")

اخى وضح مل تريد اكثر

اخ سلمان بارك الله فيك بالنسبة لموضوع الاذان الصوت يبدأ بمجرد فتح النموذج frm-azan و الذى يفتح عند دخول وقت الصلاة و حيث ان النموذج يفتح عندك فى الوقت المحدد فاعتقد ان المشكلة عندك 1- هل ملف الصوت ( الاذان ) موجود بمجلد البرنامج 2- هل الصوت عندك مفتوح 3- هل كا…

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

اخوانى الكرام هذه اخر التعديلات على البرنامج 1- تم ضبط لوحة التبديل من هجرى الى ميلادى 2- تم اضافة رسائل تذكيرية ( اذكار - ايات قرءانية - ..... ) 3- تم اضافة مؤشر ليشبر الى اتجاه القبلة 4- تم اضافة نموذج الاعدادات ( لم يفعل بعد ) الكتاب الموقوت-last.rar

تمام اخى الكريم و لكن اعتقد انك ستحتاج الى ربط جدول المنطقة zone عموما سنكمل و نرى بعد ذلك لكن لماذا لم تضف الجدول المطلوب لذلك؟

تفضل اخى Dim stLinkCriteria As String Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset) rs.MoveLast rs.MoveFirst if rs.RecordCount=0 then msgbox "لا توجد سجلات قيد الاصدار" exit sub end if For i = 1 To rs.RecordCount If txtCount > 1…