ابوخليل

هذا التصميم خاص بإكسل أكسس يختلف لتطبيق الفكرة واظهار النتيجة على طريقة أكسس انظر المثال. Database3.accdb

حقل الاجمالي لا يوضع في الجدول وانما مكانه الاستعلام تفضل النتيجة Database2.accdb

كان الخلل في قراءة رقم الكتاب هذه تحدث احيانا وليست على اطلاقها .. وهي ان الكود لا يقرأ قيمة الحقل الا مع التركيز عليه لذا اخذت بالاحتياط وتم التحايل على فرق الوقت الذي تأخذه عملية المسح بين ملف وآخر ، بالاستعانة بعداد النموذج بدلا من sleep او wait وهذه هي الجمل البرمجية كاملة ... Option Compare Database Option Explicit Dim i As Integer Dim mypath As String '--------------------------------------------------------------------------------- Private Sub Form_Timer() Me.Refresh If funDirFile = 0 Then If i = 0 Then Me.bookNumber.SetFocus Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(" & Me.bookNumber.Value & ",,,,," & mypath & " ,pdf,0) /scanhidden") i = 1 End If Else Me.TimerInterval = 0 End If Call Form_Current End Sub '---------------------------------------------------------------------- Private Sub scanpdf_Click() i = 0 Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = Trim(bookNumber.Value) & ".pdf" mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" DirFile = Dir(Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile) Me.TimerInterval = 3000 End Sub '--------------------------------------------------------------------------- Function funDirFile() Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = bookNumber.Value & ".pdf" DirFile = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile funDirFile = Len(Dir(DirFile)) End Function '------------------------------------------------------------------------------------ Private Sub Form_Current() Dim sMyFileName As String sMyFileName = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & Trim(bookNumber.Value) & ".pdf" WebBrowser1.Navigate (sMyFileName) Me.Refresh End Sub test6.rar

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

الحل جاهز عندي النسخ سيكون مرة واحدة سواء قصرت المدة او طالت نسخة او اكثر اقصد تنفيذ الحدث فقط لدي مشكلة في مسألة التأكد من وجود الملف .. dir لا تعترف بالمتغير الذي يمثل رقم الكتاب تريد رقما او اسما صريحا الدالة هذه صغيرة تأخذ سطرا واحدا فقط وبضم len اليها تفيد اذا الملف موجود ام لا سأكمل العمل غدا ان شاء الله وابحث عن طريقة اخرى اذا لديك كودا جاهزا للتأكد من وجود الملف من عدمه فزودني به

انت تتكلم عن مبالغ والرابط اعلاه خاص بالزمن الافضل ان ترفق مثالا بسيطا لتمكن اخوانك من مساعدتك علما ان طلبك يسير جدا لو فرضنا الحقل الاول اسمه A والحقل الثاني اسمه B وحقل المجموع اسمه C سيكون الحل كالتالي C = NZ([A]) + NZ([B]) هذا اذا كان الكود في محرر الفيجوال ، اما ان كان الكود داخل مصدر عنصر الحقل فيكون كالتالي : = NZ([A]) + NZ([B])

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

ما فيه شي اسمه تنطرح كما تفضل اخوي موسى : ولكن بدون استعلامات تخصيص جدول لتفاصيل الاجازات عمل حقلين فيه: 1- حقل الاستحقاق السنوي ، ويتم الادراج فيه بداية كل سنة 30 يوما 2- حقل المنصرف او الاستمتاع او المستقطع "" سمه ما شئت"" يرصد فيه عدد ايام الاجازة التي يتمتع بها الموظف من خلال مجموع الحقلين يمكنك معرفة الارصدة المتبقية واجراء العمليات من واقعها

من اجلك ومن اجل الفائدة العلمية ركبت برنامج اكروبات ريدر والسبب انه عند بحثي عن حلول وجدت ان سبب عدم ظهور الملف موجود في خصائص المتصفح اكسبلورر لذا وضعت لك في رأس المحرر رابط يشرح طريقة تفعيل الريدر داخل اكسبلورر اليك المثال بعد نجاح عملية العرض test6.rar

اخيرا تمكنت من سحب ملفات pdf من دون برنامج اكروبات الآن ومن اجل اظهار الملفات : كيف تريد صفة العرض ؟ 1- هل لكل ملف سجل خاص ؟ 2- ماهو معرف الصورة في السجل ؟ هل هو رقم الكتاب ؟ 3- اذا جميع الملفات التي يتم سحبها دفعة واحدة تخص سجل واحد (رقم الكتاب ) فهذا يستلزم وجود جدول فرعي يرتبط بمعرف الصورة في الرئيسي راجع استفساراتي وبناء عليها ارفع مرفقا معدلا

نعم يمكن ضع الرسالة في حدث قبل التحديث ولكن سؤالك عائم حدد المطلوب بالضبط .. فارغ او تكرار او خطأ معين وارفق مثال بسيط اذا لم تتمكن

لو جعلت خصيصة الحقل في الجدول مطلوب = نعم لتحقق طلبك

اخي الكريم احب اساعدك بطريقة اكاديمية البرمجة تتم تنفيذا لتصور عملية او فكرة محددة فانت هنا تريد ان تمنح الزبون قطعة مجانية مقابل شراء قطعتين ، واحيانا تمنح قطعة مقابل قطعة ، واحيانا قطعة مقابل 3 او 4 او 5 .... الخ ومن اجل تكون العملية مرنة عند البيع وعند الحسابات يلزم وضع آلية وتحكم لهذا الإجراء اسهل واقرب آلية هي : في جدول الاصناف : عمل حقل تضع فيه نسبة محددة امام الصنف المستهدف ، يتم تحديثه او حذفه حسب الحال عمل حقل آخر للحد الأدنى لعدد القطع المشتراه ما زاد عن ذلك يكون السعر تبعا للنسبة .. في مثالك اذا اشترى ثلاث سيدفع قيمة اثنتين واذا اشترى 6 سيدفع قيمة اربع اذا اشترى 5 او 7 فالدفع سيكون حسب النسبة وبهذه الطريقة تكون الأمور دقيقة وواضحة امام مدقق الحسابات

تم نقل الطلب الى موضوع جديد هنا

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

اخي الكريم يجب الاهتمام بكتابة العنوان المناسب الذي يصف الموضوع وصفا مختصرا تم تعديل العنوان ،،

شوفي كذا ووافيني بالملاحظات lab3.rar

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

بالنسبة للملاحظة الثانية استبدل السطر بهذا وسوف يتم ترقيم الصور Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(Ahmed,1,1,2,1," & mypath & " ,jpg,1) /scanhidden") اما الملاحظة الاولى او الخطوة الاخيرة فكما ذكرت لك لا املك اكروبات في جهازي

اخي احمد صحيح النظام له يد قمت بازالة البرنامج الوسيط 64 ونصبت نظام 32 .. وعمل القبيح على اكمل وجه وبما اني لا ملك في جهازي اكروبات جعلت عملي على الصور .. واكيد ما ينطبق على الصور سينطبق على pdf وابشرك نجحت في اختيار مكان الحفظ Dim mypath As String mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_Pictures\" Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(Ahmed,,,,," & mypath & " ,jpg,0) /scanhidden") جرب الصور .. ثم افحص الـــــ pdf هذه هي الخطوة الأولى الخطوة الثانية وهي اظهار الملف على النموذج اذا لم تتمكن من اظهار pdf .. فلكي اعينك يتوجب علي تركيب اكروبات

مش حاجة بل حاجات lab2.rar

يتم تحديثه فعلا بعد الاضافة والحفظ انظر في الشجرة

هو نفسه الكود لا يحتاج تغيير بعد التحويل الى مربع تحرير .. يختفي دليل الحدث (بعد التحديث) من الخصائص : لسان التبويب حدث .. فقط : يتم اعادة اختيار الحدث : (بعد التحديث) وسيذهب مباشرة الى الكود المكتوب

الموضوع قديم جدا .. له عقدين من السنين ومع ذلك تفضل الحل يكون في خصائص الجدول db3.rar

في الصورة الأولى ... من اجل هذا قلت ان رقم الهوية افضل والسبب هو اني اضفت الجدول الأول قبل رفع المثال مباشرة وغفلت عن بعض الاحترازات تم اصلاح الخلل وفي الصورة الثانية : الإسم في الجدول السادس و يبدو انك نقرت على زر اضافة ، وهنا يجب ان يكون هناك جدول سابع وهذه تم عمل الضوابط اللازمة . طبعا عند اعداد البرنامج للاستخدام يجب الاحتياط باضافة جداول احتياطية حتى لو وصلت الى الدرجة العاشرة او اكثر شجرة أوفيسنا.rar