ابوخليل

تفضل طرح وقسمة تاريخين2.rar

كما تلاحظون الحلول التالية افضل فانا احيل الطلب الى اساتذتنا الكرام مع الشكر والتقدير

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

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

السلام عليكم تفضل تم عمل اللازم البيانات كثيرة جدا لذا ستلاحظ الوقت الذي يستغرقه تنفيذ الكود Private Sub zer1_Click() On Error Resume Next DoCmd.Hourglass True Dim rs1 As Recordset Dim rs2 As Recordset Dim i, ii, iii As Long Dim r As Integer Dim rr As Integer Set rs1 = CurrentDb.OpenRecordset("SELECT Students.Group FROM Students GROUP BY Students.Group ORDER BY Students.Group") Set rs2 = CurrentDb.OpenRecordset("SELECT Students.sery, Students.Group, Students.kolaf, Students.mazroof FROM Students ORDER BY Students.Group") rs1.MoveLast: rs1.MoveFirst rs2.MoveLast: rs2.MoveFirst For i = 1 To rs1.RecordCount r = rs1!Group For ii = 1 To rs2.RecordCount rr = rr + 1 For iii = 1 To 50 If rs2!Group = r Then rs2.Edit rs2!kolaf = rr rs2.Update rs2.MoveNext End If Next iii Next ii rr = 0 rs1.MoveNext Next i DoCmd.Hourglass False MsgBox "تم التوزيع بنجاح" Set rs1 = Nothing Set rs2 = Nothing End Sub Private Sub zer2_Click() On Error Resume Next DoCmd.Hourglass True Dim rs1 As Recordset Dim i, ii As Long Dim r As Integer Set rs1 = CurrentDb.OpenRecordset("SELECT Students.sery, Students.mazroof FROM Students ORDER BY Students.sery") rs1.MoveLast: rs1.MoveFirst For i = 1 To rs1.RecordCount Step 50 r = r + 1 For ii = 1 To 50 rs1.Edit rs1!mazroof = r rs1.Update rs1.MoveNext Next ii Next i DoCmd.Hourglass False MsgBox "تم التوزيع بنجاح" Set rs1 = Nothing End Sub رقم الغلاف والمظروف2.rar

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

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

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

السلام عليكم مشاركة معكم احبتي انا استخدم هذا الاسلوب وهو توظيف NZ : يعرض جميع التواريخ ، ويمكن التصفية ايضا Between nz([forms]![frmReports]![txtStartDate];"01/01/1900") And nz([forms]![frmReports]![txtEndDate];"01/01/2100")

يوجد في المنتدى دروس تعليمية كثيرة للمبتدئين ، ومنها صوت وصورة انظر هنا اعانك الله ووفقك

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

اثناء فتح البرنامج او قبل تنقر على البرنامج اضغط على زر shift واستمر ضاغط وانت تفتح البرنامج سيفتح لك التصميم

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

فك الضغط عن المرفق . ستحصل على ملف تنفيذي + مجلد بداخله قاعدة بيانات (افتح قاعدة البيانات لتطلع على محتواها ) القاعدة تشتمل على نموذج واحد انقل المجلد وضعه على قرص C ارجع الى الملف التنفيذي وانقر عليه ( جعلت التحديث صامتا _ بسبب العلم المسبق بموقع ومكان قاعدة البيانات ) عد الى المجلد وافتح قاعدة البيانات وانظر ان اعجبتك الطريقة فبرامج التحزيم متنوعة ومتوفرة بكثرة .. عليك فقط البحث test1.rar

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

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

انظر في هذا الرابط ان كنت ستطبق التحديث باستخدام اعادة تشغيل الجهاز

جرب تضع سطر امر تشغيل الملف عند اغلاق قاعدة البيانات انا لم اجرب

تفضل تم اصلاح الخل .. لاحظ الفرق بين هذا السطر و السطر الموجود في مثالك : For M = 1 To MOALEM![الاحد] And MOALEM![الاثنين] And MOALEM![الثلاثاء] And MOALEM![الاربعاء] And MOALEM![الخميس] توزيع الحصص2.rar

بالنسبة لاكواد رصيد الصنف فهذه فقط التي كانت في برنامجي : Rsnf: (Nz(DSum("Alkmiah","Qrymaster","Nwaha=11" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=12" & " and ID_Sanf=" & [ID_Sanf]))) -(Nz(DSum("Alkmiah","Qrymaster","Nwaha=13" & " and ID_Sanf=" & [ID_Sanf])) +Nz(DSum("Alkmiah","Qrymaster","Nwaha=14" & " and ID_Sanf=" & [ID_Sanf]))) وزيادة الاسطر من عمل ابو زاهر واعتقد السطر الاخير خطأ مني يجب ان تكون العلامة بالموجب وهو كما ذكر ابو زاهر 11 للمشتريات 12 لمرتجع المشتريات 13 للمبيعات 14 لمرتجع المبيعات فالاسطر الثلاثة الاولى العملية طرح لان مرتجع الشراء عبارة عن بيع ولكن السطر الاخير يجب ان تكون العلامة (+) لان مرتجع البيع عبارة عن شراء

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

تقصد قاعدة الجداول الخلفية ؟

عودا حميدا استاذ جعفر .. و مع العودة هدايا شكرا لك

شكرا لك يا عاشق الرقي وقريبا ان شاء الله نراك من الخبراء المحترفين تفضل البحث يتم بسرعة فائقة Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim r As Boolean Dim rr As Boolean On Error Resume Next Set rs = CurrentDb.OpenRecordset("SELECT data.crn FROM data WHERE (((data.name1)=meyar()))") Set rst = CurrentDb.OpenRecordset("SELECT out.crn FROM out WHERE (((out.name1)=meyar()))") r = rs!crn rr = rst!crn MsgBox r & "-" & rr If r = True And rr = True Then MsgBox "العميل موجود ضمن الحاليين والسابقين" ElseIf r = True And rr = False Then MsgBox "العميل موجود ضمن الحاليين فقط" ElseIf r = False And rr = True Then MsgBox "العميل موجود ضمن السابقين فقط" End If rs.Close: Set rs = Nothing rst.Close: Set rst = Nothing End Sub لاحظ وجود دالة في الوحدة النمطية العامة البحث في جدولين(select).mdb

تفضل رسالة بثلاث احتمالات Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim i, ii As Integer Dim r As Boolean Dim rr As Boolean Set rs = CurrentDb.OpenRecordset("data") Set rst = CurrentDb.OpenRecordset("out") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount r = Nz(DLookup("crn", "data", "name1 ='" & Me.txtsearch & "'"), 0) Next i rst.MoveLast rst.MoveFirst For ii = 1 To rst.RecordCount rr = Nz(DLookup("crn", "out", "name1 ='" & Me.txtsearch & "'"), 0) Next ii If r = True And rr = True Then MsgBox "العميل موجود ضمن الحاليين والسابقين" ElseIf r = True And rr = False Then MsgBox "العميل موجود ضمن الحاليين فقط" ElseIf r = False And rr = True Then MsgBox "العميل موجود ضمن السابقين فقط" End If Set rs = Nothing Set rst = Nothing البحث في جدولين.mdb