نجوم المشاركات

السلام عليكم تم التعديل على الملف بتغيير المعادلات حتى يتم جلب البيانات المطلوبة مباشرة إلى السند... أرجو أن يفي الغرض المطلوب... بن علية حاجي الايجارات.xlsm

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

لك ما تريد salim_formula1.xls

اخي الكريم ارفق مثال بسيط لقاعدة البيانات التي لديك لكي يتسنى العمل عليها

:أستاذ رمهان ** ....جزاك الله كل خير * .حقيقة حل مثالى وعبقرى لدرجة لم أكن أتصورها وهذا ليس بغريب عليك * .وملاحظة حضرتك فى محلها فعلا بأن وضعت حلا لاحتمالات ما قد يكون * .كذلك سرعة أداء الكود فى العمل مع ما يقرب من 160.000 سجل؛ لا تتجاوز الـ 30 ثانية تقريباً ** .زادك الله علماً وأعطاك خير الدنيا والآخرة ***

إخوتي الاعزاء فكرة اليوم التحكم بالوقت ( الساعة ) Time Control كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود التطبيق جزء من تصور شامل اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2 ( من أعلى اليمين) حقل غير ممكن لليوم يظهر اسم اليوم حقل غير ممكن لليوم يظهر تاريخ اليوم حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer) حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة ثم مجموعة ازرار وحقل غير منضم ( في الوسط ) حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام) ( يمين من الاعلى للأسفل +) زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يسار من الاعلى للأسفل -) زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يمين أسفل الوسط) زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي ( يسار أسفل الوسط) زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية T1 = DateAdd("h", 1, T1) ولسان حال الكود يقول في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1 وكفى ... وفي التطبيق مزيد توضيح NA_TimeControl.rar

حبيت اشاركك استاذ جعفر بكود يعمل السكونس للجميع بعد التحديث للكمبو Private Sub txtH_AfterUpdate() Set rsg = CurrentDb.OpenRecordset("SELECT tbltqwem.dateH FROM tbltqwem GROUP BY tbltqwem.dateH HAVING (((tbltqwem.dateH) Is Not Null))"): rsg.MoveFirst Do While Not rsg.EOF Set rs = CurrentDb.OpenRecordset("select seq from tbltqwem where dateH='" & rsg(0) & "' order by id"): rs.MoveFirst Do While Not rs.EOF x = x + 1 rs.Edit rs(0) = x rs.Update rs.MoveNext If x = 20 Then x = 0 Loop x = 0 rsg.MoveNext Loop Me.Requery End Sub وباقي عليك تغيير الشرط between حسب التاريخ ! تحياتي

كيف يتم اجراء المقارنات مع ايام الشهر المعني او الفترة المعنية لاستخراج ايام الغياب من فضلك أريد مثال على قاعدة بيانات أكسيس وشكرا مرفقة بقاعدة بيانات كمثال pointage.rar

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

الف شكر اخي ابو ياسين فعلا هو المطلوب طريقة جميله وضبطت ماشاء الله الله يسعدك ويبارك فيك

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

بما ان الطن الواحد يساوي الف كيلو قم بتحويل الكمية من الطن الى الكيلوات m(kg) = m(t) × 1000 ثم اعمل معادلة لانقاص المباع بالكيلوات من الكمية المحولة

تفضل Dim strFrm1 As String, strFrm2 As String strFrm1 = "Cus_Sub" strFrm2 = "Y2017" Sub_Manth_Casher_V = Forms(strFrm1)(strFrm2)(Boxname) & "_Casher" DoCmd.RunSQL "INSERT INTO Test ( Test ) SELECT Sub_Manth_Casher() AS Expr1 ;" waztest.rar

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

المعذرة اخي الكريم انا استخدم 2003 طلبت منك التعديل لان صيغة الملف mdb ولكنه لن يفتح عندي لانه تم عمله على اصدار احدث اكرر اعتذاري عن التعديل على الملف . وانا في خدمتك

مهما قلت من شكر فلن أوفيك حقك لذا جزاك الله كل خير

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

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

اخوانى واحبابي وتحياتي عملت تعديل فى استعلام1 وضفت الدالة last على باقي الحقول وعدلت فى النموذج Eshtrak1 خلاص مفيش التكرار الحمدلله كده ممكن مش ناقص غير الخطوة المهمة وهى المقارنة عن طريق مفتاح الترحيل دون الحذف وانتظركم ان شاء الله نكمله عشان نخلصصصصصصصصصصصصصصصص جمعية 22.rar

غير اعدادات جهازك للوقت الى شكل 24 ساعة بحيث لا يظهر حروف تدل على الصباح او المساء بالوقت وخصوصا عمود emp_time

بارك الله فيك أستاذ سليم وجزاك الله خيرا وجعله فى ميزان حسناتك فعلا كود فى غاية الفن والإتقان والسرعة وايضا جلب الأرقام بدون تكرار ابداع ودائما الى الأمام والتفوق -وجعلك الله زخرا لمن يحتاج المساعدة منك أخى الكريم وفقك الله لما يحب ويرضى

تم التعديل على الكود ليعمل بسرعة اكبر بكثير (9000 رقم في 2.3 ثانية) الكود Option Explicit 'Excel VBA to generate random number 'Created by Salim on 21/3/2018 Sub Generate_Uniq_Random() If ActiveSheet.Name <> "Salim" Then GoTo Exit_sub With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim myStart As Long Dim myEnd As Long Dim x As Byte Dim i As Long Dim lr_B: lr_B = Cells(Rows.Count, 2).End(3).Row If lr_B < 2 Then lr_B = 2 Range("b2:C" & lr_B).ClearContents Dim a() myStart = [G2] myEnd = [H2] ReDim a(0 To myEnd - myStart) For x = 1 To 2 If x = 1 Then With CreateObject("System.Collections.SortedList") Randomize For i = myStart To myEnd .Item(Rnd) = i Next i For i = 0 To .Count - 1 a(i) = .GetByIndex(i) Next End With Range("b2").Resize(UBound(a) + 1).Value = Application.Transpose(a) Else With CreateObject("System.Collections.SortedList") Randomize For i = myStart To myEnd .Item(Rnd) = i Next i For i = 0 To .Count - 1 a(i) = .GetByIndex(i) Next End With Range("c2").Resize(UBound(a) + 1).Value = Application.Transpose(a) End If Next Exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Fix_randbetween.xlsm

1- حدد كل اخلايا المطلوبة 2 اضغط على مفتاح Alt 3- مع الاستمرار بالضغط على هذا المفتاح اضغط على المفاتيح التالية بالتوالي H,S,S ( بداية H ثم S مرتين) 4- ما خلاص بقى سيب المفتاح Alt , و شوف العجايب عفواً لم انتبه الى السؤال جيداً - هذا الطريقة تستعمل لترتيب الارقام تصاعدياً ( وانت تريدها عشوائية) سوف ارسل ملفا نموذج لما تريد