jjafferr

هل جربت طريقتي؟ أخي ناصر ، مثل ماقلت لك ، في قاعدة البيانات يجب ان تستعمل الفرز والتصفية في اي شئ تريد جعفر

حياك الله

السلام عليكم انا فكرتي تختلف عن فكرة أخي سعيد ، وهذه ميزة أكثر من مشاركة في موضوع واحد فكرتي هي: 1. عمل جدول مؤقت باسم tbl_Temp ، ونُدخل فيه جميع الاشهر ، ابتداء من الشهر بعد تاريخ التوظيف ، الى الشهر الماضي ، لكل موظف ، 2. ثم نستعمل الاستعلام في مقارنة هذه الاشهر ، مع الاشهر المدفوعه ، ونطلب من الاستعلام ان يعطينا قائمة بالاشهر الغير موجودة الكود التالي يعمل العمل رقم 1: Private Sub cmd_Go_Click() On Error GoTo err_cmd_Go_Click Dim rstF As DAO.Recordset Dim rstT As DAO.Recordset 'empty tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") 'table To Set rstT = CurrentDb.OpenRecordset("Select * From tbl_Temp") 'table From Set rstF = CurrentDb.OpenRecordset("Select * From akad_amel") rstF.MoveLast: rstF.MoveFirst RC = rstF.RecordCount 'Loop from table From, 'and get the w-code, and his starting date For i = 1 To RC Date_From = rstF!bad_akd 'Starting date Date_To = DateSerial(Year(Date), Month(Date), 0) 'Last month How_Many_Months = DateDiff("m", Date_From, Date_To) 'How many months in-between Last_Day_Of_Last_Month = DateSerial(Year(Date_From), Month(Date_From), 30) 'Last_Day_Of_Last_Month 'we will generate All the months for each Employee, from his start date to Last month For j = 1 To How_Many_Months 'start adding rstT.AddNew rstT!w_code = rstF!w_code 'w_code rstT!iDate = DateAdd("m", j, Last_Day_Of_Last_Month) 'the month rstT.Update Next j rstF.MoveNext Next i rstF.Close: Set rstF = Nothing rstT.Close: Set rstT = Nothing MsgBox "Done" Exit Sub err_cmd_Go_Click: If Err.Number = 3021 Then 'No Records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub ثم النتيجة تكون في الاستعلام qry_Temp Without Matching raetb_tamb ، والذي يُفضل ان تعمل تقرير على اساسه ** ملاحظة ، بسبب استعمال الجدول المؤقت ، والذي يتم حذف جميع بياناته واضافة بيانات جديدة ، هذا يجعل حجم قاعدة البيانات تكبر ، فيجب استخدام الضغط والاصلاح بين كل فترة لإرجاع الحجم الى حقيقته جعفر 240.الشهر الغير موجود.mdb.zip

السلام عليكم والله يا أخوي حربي ، انا ضايع في البرنامج بس اعمل هذه الملاحظات ، وان شاء الله يتم الازم: جدول "ترميز_استقطاعات" ، يجب ان: 1. تعمل صح في حقل "كل الموظفين" ، 2. النوع "1" ، 3. وتضع النسبة "3" ، للسجل "رعاية القاصرين": . وهذا هو كود الحدثين: الكود للحدث 1 If قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 End If الكود للحدث 2 ElseIf قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 . ثم شغل البرنامج بالطريقة العادية ، وان شاء الله تلقى النتيجة المطلوبة جعفر

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

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

وعليكم السلام أخي ممكن تعطينا مثال على الاجابة الصحيحة ، من بياناتك جعفر

اذا انت ما تعرف ، واويلاه بما انك قلت "بمجرد فتح البرنامج" ، طيب في البرنامج الاصلي ، 1. هل هناك ماكرو بإسم autoexec ، اذا في ، رجاء ترفقه لي ، 2. وماذا اسم النموذج الاول اللي ينفتح (من خلال هذا النموذج سنرى في الكود اسم الاستعلام) ، وكذلك اريدك ترفقه جعفر

هلا والله

وعليكم السلام اقول ابوالشباب ، ياريت تخبرني اسم الاستعلام اللي يحدث 10% حق كل الموظفين جعفر

. في هذه الحالة ، يجب ان يكون الكود في الحدث تنسيق الجزء الصحيح من التقرير ، وهو ذيل التقرير ، لاحظ هذا الفيديو : . جعفر

وعليكم السلام انا قلت: . وانت اضفتها الى الحقل الخطأ ، الحقل استقطاعات_الموظف!!: . المفروض تكون هنا: جعفر

وعليكم السلام اذا كان اسم الحقل الذي تريد نسخ المعلومة التي فيه Text0 ، فيصبح الكود: Me.Text0.SetFocus DoCmd.RunCommand acCmdCopy والان تستطيع ان تلصق هذه القيمة في اي برنامج جعفر

المتغير مكتوب بعد الجملة: "code_items=" سواء للنص او الرقم او التاريخ ، او اذا القيمة مأخوذة من النموذج .... فيجب ان تعرف نوع الحقل PrinterID ، وعلى اساسة تختار اي كود مناسب له الامثلة كلها هناك جعفر

وعليكم السلام المشكلة ليست في اصدار الاوفيس ، وانما البرنامج كان معمول على اكسس 32بت ، وانت الان تستعمل اكسس 64بت ، راجع هذا الرابط لبعض المعلومات: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر

وعليكم السلام هذا الرابط به الامثلة والطريقة التي تحتاج لها: http://www.officena.net/ib/topic/61469-امثلة-بسيطة-للدالة-dlookup/ جعفر

عفوا اخي سعيد قصده msgbox me.page جعفر

1. نعم مافي مشكلة 2. بعمل لك موضوع خاص علشان يستفيد منه الجميع جعفر

أمس ما قدرت اوضع الكود بالطريقة الصحيحة ، لذا وبعد التجربة ، هذا الكود الصحيح (وقد عدّلت الكود في مشاركتي الاولى): Me.نص155 = DMax("Val([رقم العميل])", "البيانات") . والكود بظهوره الصحيح: جعفر

السلام عليكم أخي حربي في نموذج الرواتب / الاستقطاعات / مربع سرد الاستقطاعات ، وفي حدث الضغط على الزر enter ، اضف معادلة elseif التالية (المعادلة بالمقلوب هنا بسبب الكلمات العربية في الكود ، ولكن عند نسخها الى البرنامج ستصبح تمام ان شاء الله): If الاستقطاعات = 1 Then الاستقطاع_الشهري = Int((راتب_الاستقطاع + Nz(فرق_الراتب2)) * 0.1) نسبة_الاستقطاع = 10 مبلغ_الاستقطاع = الاستقطاع_الشهري ElseIf الاستقطاعات = 22 Then الاستقطاع_الشهري = Int(Me.الراتب_الاصلي * Me.الاستقطاعات.Column(5) / 100) نسبة_الاستقطاع = 3 مبلغ_الاستقطاع = الاستقطاع_الشهري لوسمحت تجرب النتائج ، لأني ماقدرت اشغل البرنامج وكان يطلع لي اخطاء!! بس المعادلة المفروض انها تكون صحيحة جعفر

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

وعليكم السلام أخي حسين اسهل طريقة ، انك تعمل جدول خاص بالارقام من 1-255 ، كما هو في الجدول tbl_IP (وعملت لك حقل رقم وحقل نص) ، ومن ثم تستخدم استعلام ، كالتالي: لاحظ الارقام المفقودة في الجدول الذي على اليمين : . والان خطوات الاستعلام: . . . . . . ونتيجة الاستعلام ، والذي به الارقام المفقودة: . جعفر 247.IP.mdb.zip