اذهب الي المحتوي
أوفيسنا

حسام السوري

02 الأعضاء
  • Posts

    60
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو حسام السوري

  1. السلام عليكم ... للأسف بعد البدء بالمشروع , تبين لي أنه بحاجة لتحضير و دراسة أكثر ...لذلك انسحب من المشروع و ارجو من الاخوة تقبل مروري ...
  2. السلام عليكم ... نحن لم نعمل على التوزيع بعد ... هذا في الخطوة التالية ... كما أشرت لك أنا سأحاول برمجته ببرنامج منفصل ...من نافذة منفصلة لأنني لست ماهرا بالــ VBA الخاصة بالأكسس . بالنسبة للمنع , فقط افتح نموذج الامام , و عندما تنتقل في السجلات سيظهر لك المنع الخاص بكل إمام , تضيف و تحذف و تعدل به ما تشاء ... هل هذا صعب ..أي كل ما يخص الامام موجود بنافذة واحدة !!!! لدينا منع بحسب الاشهر - منع من مساجد معينة - تثبيت في مساحد معينة .... بالنسبة للمشاركة المذكورة , اطلعت عليها مسبقا .. لا تضارب بعملنا معها ... هل تجد تضارب ؟؟؟
  3. السلام عليكم أخ محمود ... هل وضعت الملف msajed_be.mdb المرفق في المسار (D:\مساجد) كما هو مفترض ... هل الجداول مربوطة ؟؟؟ هل تشاهد فورم مثلا اسمه (FrmEmamMasjedFix_Main) ..(اضغط مفتاح الــ Shift عند الفتح) ..
  4. السلام عليكم و رحمة الله و بركاته ... قمت بمساعدة بسيطة , بإنشاء جداول المنع و التثبيت و تعديل بيانات المساجد و الأئمة ...بقي الجزء الأكبر و هو التوزيع . اقترح ان يكون لدينا قاعدة بيانات لكل سنة كما هو حاليا ... حسب الجداول الموضوعة سيكون لدينا توزيع واحد في الشهر ... لسهولة استخراج التقارير ... انا أتعامل مع الأكسس كـــ back end فقط .. يعني كجداول أما الــ front end فإني بمستوى متوسط (وضح من منظر التصميم المرفق) . أنا شخصيا ارى صعوبة إجراء التوزيع باستخدام الــ VBA في الاكسس ضمن هذه الشروط المعقدة (ليس مستحيل بل يحتاج خبير) , أنا شخصيا سأحاول تصميم نافذة التوزيع بالــ C# و تحفظ التوزيع بالقاعدة .. لأنني أولا اعتبر نفسي متمكنا من الــ C# .... سأقوم بمحاولة إجراء التوزيع كــ مشروع شخصي , أي ربما الأخ محمود لا يريد العمل على نافذتين .. فأتمنى أن يقوم الاخوة خبراء الأكسس بمساعدته .. مساجد.rar
  5. السلام عليكم ... يتألف مستند الوورد من section واحد أو أكثر ... (section = جزء) , بشكل افتراضي لدينا section واحد يمثل كامل المستند . بعض التأثيرات (مثل اتجاه الصفحة) تطبق على الــ section .. بمعنى أنك لو حاولت تغيير اتجاه صفحة في مستند ستجد أن الصفحات التالية لها قد تغيير اتجاهها أيضا !!!! الحل هو إنشاء section يحوي تلك الصفحة و تغير اتجاه الصفحة ... ضع المشيرة في الصفحة السابقة للصفحة المطلوب تغيير اتجاهها ثم من التبويب page layout اختر breaks ثم next page .. ضع المشيرة في الصفحة المطلوبة ثم من التبويب page layout اختر breaks ثم next page ... هكذا اصبح لدينا section مكون من صفحة واحدة ضع المشيرة في الصفحة المطلوبة ثم من التبويب page layout اختر orientation ثم Landscape ... الفيديو التالي (هو بدون صوت) يوضح الخطوات المذكورة : https://www.youtube.com/watch?v=PEgNmZOntK4
  6. السلام عليكم ... ريثما تجد المساعدة من الاعضاء , ألق نظرة على الموضوع التالي : نموذج فاتورة على الفورم (هدية لجميع الاعضاء)
  7. حاولت تطبيقه فأعطاني خطأ , أنا فقط وضحت الفكرة و حبراء الاكسس سيجدون حلا بالتأكيد للموضوع ... أو يمكن عمل استعلام (union) بين الاستعلامين السابقين .. بالتوفيق .
  8. السلام عليكم ... للتوضيح اين يحصل الخطأ ... في الصورة السابقة لديكم مايلي : اقتطاع الهيئة - الموظفين - يعرض الشهر الحالي حسب تاريخ النموذج - و هذا صحيح . اقتطاع الهيئة - المتعاقدين - يعرض الشهر السابق لتاريخ النموذج - و هذا صحيح . اقتطاع الهيئة - الكل - يعرض الشهر الحالي للكل حسب تاريخ النموذج - و هذا خطأ لأنه يحوي خليط من (الموظفين + المتعاقدين) .. الحل المقترح : انت بحاجة لدالة مثل : Public Function GetMyDate(pDate As Date, pDetach As String) As Date If IsNull(pDetach) Then GetMyDate = pDate Else GetMyDate = IIf(pDetach = "متعاقد كامل" Or pDetach = "متعاقد جزئي" Or pDetach = "عون نظافة", DateAdd("m", -1, pDate), pDate) End If End Function ثم عدل الاستعلام ليكون : HAVING (((Format([Payment_Month],"mmmm yyyy"))=Format(GetMyDate([Forms]![FrmDiscountReport]![txtMonth] ,[detach]) ,"mmmm yyyy"))) ما ذكرته أنا ليس حلا كاملا , حاول بناء الحل الذي تجده مناسبا .. ^_^ ...
  9. السلام عليكم .... لا يمكن فتح ملفات mdf دون تثبيت سيكوال سيرفر ... اكثر من ذلك , لا يمكن فتح قواعد بيانات سيكوال سيرفر حديثة على سيكوال سيرفر بإصدار أقدم ... يمكن تثبيت سيكوال سيرفر , الاصدار المجاني express ...(في حالة حجم قاعدة البيانات أقل من 10 جيغا على ما أذكر) ..
  10. السلام عليكم ... هذه محاولة مني .. Sub Button2_Click() Dim LastRow LastRow = Sheets(2).Cells(Sheets(2).Rows.Count, "B").End(xlUp).Row Dim theSelection As Range Set theSelection = Selection If theSelection.Columns.Count <> 9 Then MsgBox "please select 9 columns " Exit Sub End If Dim usr_Date1 As Date Dim usr_Date2 As Date Dim TheString As String, FromDate, ToDate As Date TheString = Application.InputBox("Enter the date1:") If IsDate(TheString) Then FromDate = DateValue(TheString) Else MsgBox "Invalid date" Exit Sub End If TheString = Application.InputBox("Enter the date2:") If IsDate(TheString) Then ToDate = DateValue(TheString) Else MsgBox "Invalid date" Exit Sub End If For i = 1 To theSelection.Rows.Count 'MsgBox theSelection.Cells(i, 4) If theSelection.Cells(i, 4) <> "" And theSelection.Cells(i, 4).Value >= FromDate And theSelection.Cells(i, 4).Value <= ToDate Then 'MsgBox "ok" LastRow = LastRow + 1 ' Sheets(2).Cells(LastRow, 1) = theSelection.Cells(i, 1) Sheets(2).Cells(LastRow, 2).Value = theSelection.Cells(i, 2).Value Sheets(2).Cells(LastRow, 3) = theSelection.Cells(i, 3) Sheets(2).Cells(LastRow, 4) = theSelection.Cells(i, 4) Sheets(2).Cells(LastRow, 5) = theSelection.Cells(i, 5) Sheets(2).Cells(LastRow, 6) = theSelection.Cells(i, 6) Sheets(2).Cells(LastRow, 7) = theSelection.Cells(i, 7) Sheets(2).Cells(LastRow, 8) = theSelection.Cells(i, 8) Sheets(2).Cells(LastRow, 9) = theSelection.Cells(i, 9) End If Next End Sub الاشهر ترحيل.rar
×
×
  • اضف...

Important Information