ابوخليل

تمام واضح الآن ومن اجل ضبط العملية يجب ان نعمل حسب الثواني فيتم تقسيم هذه الثواني على العدد الموجود .. اياً كان 45 في 60 قسمة عدد الموظفين والناتج هو هذا الفرق سهلة .. يسيرة .. الى ترى سوف اعملها لك ان لم يسبقني احد سباقي الماراثون 😄

الطلب غير واضح الموظفون 300 والدقائق 45 لو عملت في المثال توزيع يدوي تقريبي حتى تقرب فهم المطلوب

يقصد الاستاذ منتصر ان يتم تعميم هذه البادئة على كائناتك .. بحيث تأخذ الجداول بادئة واحدة .. والنماذج كذلك .. الخ.. حتى يمكنك التمييز بينها عند كتابة الأكواد فمثلا انا دوما اسمي النموذج والجدول والاستعلام والتقرير بالاسم نفسه تماما ولكن مع اختلاف البادئة . وبقي ملحوظة صغيرة وهي مهمة : تجنب تسمية الكائنات او العناصر بأسماء محجوزة لأكسس مثل name او no او count او close ... اخ لأنه ستظهر لك مشكلات برمجية يخفى عليك سببها وهذا المرفق سيساعدك على تجنب هذه الأسماء Downloads.rar

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

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

وفيت وكفيت .. بارك الله فيك .. حل محكم شروحاتي ليست موجهة للسائل بعينه وانما اثراء للموضوع لمن يمر من هنا

مرحبا اخي العزيز انت من المحاربين القدامى .. عمرك في هذا المنتدى اكثر من عشرين عاما وعادتي اني لا اعطي حلولا فورية اذا لم تعجبني طريقة السائل في التنفيذ وانما استبدل ذلك بالنصيحة والتوجيه الى الطريقة السليمة الصحيحة . أولا : وهو المهم .. لا تستخدم تنسيقات الوقت بتاتا في عملية التوقيع بمعنى يجب ان يكون حقل الحضور تاريخا تاما ( Now ) تاريخ ووقت ستكتشف مستقبلا فائدة ذلك وستدعو لي . ثانيا : عملية الحضور والانصراف هي عملية واسعة وعلى المصمم ان يأخذ بعين الاعتبار القابلية للتطوير لو طلب منه ذلك مثل اتاحة الاستئذان والعودة لأكثر من مرة في الجلسة الواحدة نأتي لطلبك : من اجل تجعل الحضور والانصراف في حقلين ضمن سجل واحد .. هذا يتم من خلال فورم التوقيع بمعنى يتم عمل الضوابط اللازمة .. هذه الضوابط يدخل فيها : 1- المصدر استعلام معياره تاريخ اليوم 2- تفحص الوقت وهل هو ضمن وقت الجلسة ام ان الوقت خارج وقت الدوام 3- وجود توقيع حضور في حقل الحضور .. ويكون حقل الانصراف خاليا .. وإلا سيتم تسجيل حضور جديد في سجل جديد هذا ما يحضرني الآن من هذه الضوابط .. علما اني سأعمل لك استعلاما وقد يسبقني احد الأخوة لما يحقق مطلوبك حسب مثالك المرفق ان شاء الله

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

هذا حل حسب الفكرة الثانية Database2.rar

او الطلب بطريقة أخرى استخراج وعرض سجل واحد فقط السجل الأكبر ( التاريخ) لكل شخص

السلام عليكم احبتي في المرفق جدولان 1- جدول الاسماء 2- جدول التفاصيل يشتمل جدول التفاصيل على سجلات مكررة لكل شخص اريد طريقة يسيرة لحذف هذه السجلات المكررة والابقاء على سجل واحد والذي يحمل احدث تاريخ Database1.rar

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

اكتب اي شيء ثم انتر 2baseR.rar

انا اعمل على اوفيس 32 بت وندوز 10 64

ها انت عثرت على سبب المشكلة اولا تأكد ان الأوفيس 23 بت وليس 64 وإلا انت مضطر لإصلاح وتهيئة الاكواد للعمل على 64

المسألة مثل ما يقولون ما تبي مطوع اضف حقل للحركات يكون اسمه التحويل

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

تمام التمام استاذي دكتور أكسس .. لا هنت .. اريد نتيجة التشخيص والعلاج

بارك الله فيك اخي محمد الأولى تمام الثانية جزيت خيرا انت غيرت اتجاه الفورم عندي اتجاه الفورم الفرعي من اليمين الى اليسار .. وهذه اساس المشكلة

السلام عليكم في المرفق تقرير رئيسي داخله تقرير فرعي تم تنسيق التقرير الفرعي لعرض 12 سجل مقسمة على 3 اعمدة عند فتح التقرير الفرعي مستقلا كل شيء تمام . ولكن عند فتح التقرير الرئيسي تختلف الأمور وتظهر مشكلتين : الأولى : يتم عرض اكثر من 12 سجل .. كيف يحدث هذا ؟ وفي الاصل السجلات في الفرعي منفردا =12 الثانية : السطر العلوي من السجلات ( الذي هو حرف الألف والباء والتاء ) ينحرف الى اليسار .. واريد ضبطه الى اليمين Database1.rar

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

العفو حبيبنا واستاذنا الكريم للمزيد حول المعلومة : هذا مرجع لحروف البدل في اكسس

استخدم هذا المعيار : Like "*" & "[#]" & "*" لأن # من احرف البدل لذا يجب احاطته بقوسين مربعين لتمييزه

عليكم السلام الطرق لتحقيق طلبك كثيرة منها استعلام تحديث استنادا لمعرف السجل ومنها العمل على مجموعة السجلات وادراج القيمة في الحقل الهدف وحيث ان النموذج منضم الى الجدول ؛ يوجد طريقة بسيطة كنت استخدمها في وقت ما وهي تؤدي الغرض كالتالي : اعمل حقلا مخفيا في النموذج وليكن اسمه s2 منضما الى حقل code_r وخلف الزر اكتب : s2=s

لفصل الحروف والارقام داخل الاستعلام انت بحاجة الى دالة مثل هذه 'فصل الحروف Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then Else lets3 = lets3 & lets End If Next textNum = lets3 End Function 'فصل الارقام Public Function Numtext(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets End If Next Numtext = lets2 End Function ولإنشاء جدول جديد يمكنك استخدام الاستعلام نفسه انظر المرفق فصل الحروف عن الارقام دالة2 .rar