بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
12,447 -
تاريخ الانضمام
-
Days Won
231
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابوخليل
-
مطلوب حماية السجلات من التعديل والحذف لوقت محدد
ابوخليل replied to abouelhassan's topic in قسم الأكسيس Access
دعنا ننتهي من هذه نصيحتي ان تبقي النماذج كماهي واذا مصر على التكبير .. اضف هذا السطر لحدث التحميل لكل نموذج DoCmd.Maximize ولاحظ انك ستحتاج الى اعادة ضبط مقاسات الحقول لأنه غير مناسب صفحة تفتح بعرض 30سم والحقول بكامل عرضها لا تتجاوز 10سم على كل حال اليك المرفق .. تم عمل نموذج رئيسي كبداية عدل ما تريد ثم ارفعه لعمل الطلب الرئيسي FinancialPrg1.rar -
الحمد لله اولا وآخرا بقي اللمسات الفنية لإعدا البرنامج للعمل مثل : 1- واجهة جميلة للبرنامج 2- اعداد قائمة مختصرة ( خاصة ) للتقارير للطباعة والتصدير 3- زر لأخذ نسخة احتياطية 4- نموذج دخول وصلاحية مستخدمين بسيطة تؤدي الحاجة 5- تقسيم قاعدة البيانات 6- تحويل الوجهات الى صيغة accde ---------------------------------------------------------------- ارجوا اخي ان نقف عند هذا الحد وتنتقل وتفتح مواضيع جديدة حسب البنود اعلاه ، كل بند بموضوع يخصه اذا اكتمل بند تنتقل لما بعده .. والافضل ان تحاول قبل طرح الموضوع ونترك هذا الموضوع لمن يمر من طلاب المعرفة والعلم لسهولته وعدم تشعبه .
-
اعادة ربط الجداول فى قاعدة بيانات مقسمة(كود الاعادة موجود)
ابوخليل replied to الحلبي's topic in قسم الأكسيس Access
عذرا ..يا دكتور .. انشغلت ووقتها .. ونسيتك تفضل الجداول بجانب الواجهات يتم الربط آليا .. اين ما تنقل المجلد test3.rar -
فقط من المعايير يمكننا جعل البحث حسب الحقل فقط ... ولا تظهر البيانات حتى يتم الاختيار .. وعند التحديث تختفي اولا نحن لا نتعامل في اكسس مع الجداول .. الجداول يجب ان تكون بعيدة عن المتناول الأصل في البرمجة الاحترافية ان تكون جميع البيانات المدخلة في الجداول عبارة عن ارقام تمثل معرفات لنصوص .. سواء كان نوعها نصي او رقمي ، من باب الأمان وايضا لسهولة وسرعة تدفق البيانات عند التعامل معها في الاستعلامات والتقارير على كل حال هذه الارقام كما ترى يتم ترجمتها لنصوص في النماذج والتقارير
-
شباط اللي هو فبراير 3 سنوات يكون28 يوما والرابعة السنة الكبيسة يكون 29 يوما ... على فكرة هذه السنة كبيسة فالاسلم لك لسنوات قادمة اعتبار شهر فبراير 28 يوما حيث السنة القادمة لا يوجد يوم 29 في شهر فبراير سوف احاول اخراج النتيجة لتساوي 28 ملحوظة .. انت ذكرت ان النتيجة منضبطة تماما ولكن لي رأي آخر هي منضبطة في الشهور التي عددها 31 يوما فقط جرب على الشهور ذات الـــ 30 ووافني بالنتيجة من اجل ايجاد حل متكامل منضبط
-
تفضل طريقة حساب البدو Dim m1, ym As Integer Dim idate As Date ym = (Me.iYear * 12) + Me.iMonth If Me.frame1 = 1 Then idate = DateAdd("m", ym, Date_1) Date_2 = DateAdd("d", Me.iDay, idate) ElseIf Me.frame1 = 2 Then idate = DateAdd("m", -ym, Date_1) Date_2 = DateAdd("d", -Me.iDay, idate) - 1 Else Exit Sub End If 30Dates.mdb
-
ههههههههه صحيح كلامكك استاذ فادي ولكن مسألة الــــ 30 يوم حقيقية في بعض الانظمة ويؤكدون عليها والاخ احمد لو حسبها بالحسبة العادية الموظف سوف يخسر 8 ايام من استحقاقه انتظروني الحل يسير باذن الله سأوافيكم به
-
آآآآآه يعني النتيجة تظهر في حقل التاريخ الثاني صحيح؟
-
اعادة ربط الجداول فى قاعدة بيانات مقسمة(كود الاعادة موجود)
ابوخليل replied to الحلبي's topic in قسم الأكسيس Access
ايضا يمكن وضع قاعدة الجدول على قرص (بارتيشن) رئيسي يوجد غالبا في جميع الاجهزة مثل قرص C -
اعادة ربط الجداول فى قاعدة بيانات مقسمة(كود الاعادة موجود)
ابوخليل replied to الحلبي's topic in قسم الأكسيس Access
نعم يوجد بشرط تكون الجداول بجانب الواجهات في المجلد او في مجلد داخل مجلد قاعدة الواجهات تفضل من مكتبتي .. دعواتك لصاحب الوظائف Function BackFile() As String 'مسار القاعده الخلفيه واسم الملف الذي يحتوي على الجداول BackFile = CurrentProject.Path & "\BeBackDb.mdb" End Function Function CheckFile() As Byte 'فحص الملف اذا موجود On Error GoTo Error: Open BackFile For Input As #1 Close CheckFile = 1 Exit Function Error: Exit Function End Function Function AutoLink() If CheckFile <> 1 Then MsgBox "من فضلك ضع ملف القاعدة الخلفية كما هو مبين بالمسار أعلاه", vbOKOnly, BackFile DoCmd.Quit End If 'حذف الجداول المرتبطه On Error Resume Next Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj 'الربط من جديد Dim BackObj As TableDef, BackDB As Database Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False) For Each BackObj In BackDB.TableDefs If Left(BackObj.Name, 4) <> "MSys" Then DoCmd.TransferDatabase acLink, "Microsoft Access", BackFile, acTable, BackObj.Name, BackObj.Name End If Next BackObj Set FrontDB = Nothing Set BackDB = Nothing 'النموذج الافتتاحي DoCmd.OpenForm "Form1" End Function -
ما المطلوب الموجود نموذج فيه : 1- ( اضف / اطرح ) ماذا تعني هذه ؟ 2- سنة / شهر / يوم اشرح المطلوب اذا ادخلت تاريخين ماذا اختار ؟ وما الناتج ؟ اعطني مثالا لنتيجة تاريخين من عندك
-
اخي الكريم انا لم افهم مطلبك في اول مشاركة لك ولكني فهمت انك تريد تتعامل مع التاريخ على اساس الشهر 30 يوما اليك مثالا وجدته في مكتبتي ومن عملي اتمنى ان يحقق طلبك months30.rar
-
افتح موضوعا جديدا في طلبك وارفق جداولك فقط ووضح ماتريد بالضبط ( الادخال/ والنتائج المستخرجة ) ... فمشاريع المدرسة متشعبة وكبيرة اخوانك هنا لن يألوا جهدا في مساعدتك وتوجيهك
-
عملت لك نموذج بداية .. طبعا هو ابتدائي لتسهيل العمل على الخطوات القادمة .. وسيختلف في نهاية البرنامج حيث سنعمل منه واجهة جميلة - انظر وجرب نموذج البحث - انظر وجرب تصفية التقرير من نموذج التقارير 1- التصفية تتم من خلال 5 بنود .. الحساب ونوعه والصنف ... هذه اساسيات في تفصيل التقرير 2- السنة المالية وبند الصرف تظهر في رأس التقرير عند التصفية السبب : واضح ... انه يمكن تصفية بند واحد من بند 2 ولا يمكن العكس ........ جرب افتح التقرير بدون تصفية .. وجرب التصفية ببند او بندين او ثلاثة .... وهكذا ................ Financial_db4.rar
-
عليكم السلام ورحمة الله وبركاته "(" & [class_fsl] & "/" & [Class] & ")"
-
نعم هو الصحيح يكتب المعرف وليس النص راجع مسمياتك تجد فيها اخطاء املائية كثيرة تم الاطلاع __________________________________ كنت اعمل على المرفق السابق واضفت نوع الحساب كنت ااحسبك تقصد بالنوع : جديد قديم هل ابقي عليه ؟؟ اذا نعم ما هو اسمه اذا جعلنا القائمة الجديدة هي التي اسمها النوع وياليتك تشرح لي النوع الجديد هذا ايش يعني ... وكأن له صلة بالارصدة
-
استفسار حول الفاتورة الاليكترونيه المرحلة الثانيه
ابوخليل replied to سلمان الشهراني's topic in قسم الأكسيس Access
لن يفيدكم الا مبرمج يعمل على مثل هذا على ارض الواقع وقام بالمحاولة بالربط وأعتقد انكم بحاجة الى اداة خارج اكسس كما هو الحال في المرحلة الأولى .. وتطويرها -
هدية: المدة بين تاريخين ، و اضافة/خصم سنوات واشهر وايام
ابوخليل replied to jjafferr's topic in قسم الأكسيس Access
الموضوع قديم جدا وصاحبه لا يتواجد حاليا في المنتدى وهذا غير جيد يمكنك طرح موضوعك كموضوع جديد والاشارة الى هذا الموضوع او ادراج رابط له يغلق ،،،