ابوخليل

قيد النظر ...

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

مطلوبك واضح ويبدوا يوجد مشكلة في المثال جراء التحويل الى mdb فضلا اعد ارفاق المثال الاصلي قبل التحويل

لا يوجد بيانات في المثال فضلا اضف بعض البيانات وبين بالضبط السجل التي تريد حذفه والسجلاات التي تريد الابقاء عليها

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

تفضل اضفنا شرط وللعلم السجل يغني عن الاسم Dim i As Boolean i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda And [Emp_No]= forms!nam!Emp_No"), 0) If i = True Then MsgBox " مكرر !! لا يمكن ادخال الشخص والسنة والشهر" Exit Sub End If ويمكنك كما ذكرت لك في البداية ان تجعل الحقول في الجدول مفاتيح ونستغني عن هذه الاكواد

يا لطيف 7 شهور .. الحق انك مناضل تفضل : باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id اعمل مربع نص غير منضم في النموذج واجعل اسمه text1 افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور الصق هذا الكود Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Me![text1] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

تم التعديل وعمل المطلوب Dim i As Boolean i = Nz(DLookup("EmpID", "tblEmployeess", "[status]= forms!nam!status And [sdasda]= forms!nam!sdasda"), 0) If i = True Then MsgBox " مكرر !! لا يمكن ادخال السنة والشهر" Exit Sub End If الترحيل4.rar

تفضل DataUp2.rar

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

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

السبب واضح فانت تحذف سجل في جدول بجملة استعلام وفي نفس الوقت الفورم مرتبط به وايضا التركيز على هذا السجل داخل الفورم ومادام التركيز على السجل عند الالحاق : جرب الحذف بواسطة اكسس عن طريق الفورم بمثل هذا DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

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

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

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

السلام عليكم لو فرضنا انك ستطبع التقرير للشخص نفسه والبيانات نفسها مرة ثانية ؟ هل فهمت تساؤلي ؟ لان التقرير الموجود هو عبارة عن تعريف اسم ورقم وظيفة وصورة ، ومنطقيا امكانية طبعه مرة اخرى والسؤال الثاني : هل سيطبع للشخص اكثر من تقرير مستقبلا

فقط اجعل الحقول الثلاثة في جدول الارشيف مفاتيح اليوزر والشهر والسنة ومهما كررت عملية الترحيل فلن يتم الترحيل الا حسب الشرط تم التعديل الترحيل2.rar

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

السلام عليكم الحل ان تجعل حاصل الفرق داخل الاستعلام تفضل التعديل تكلفة2.rar

السلام عليكم وبعد اذن بحار جزاه الله خيرا تفضل ضع الكود في حدث زر الطباعة Me.Refresh Dim r, i As Integer Dim rs As Recordset Set rs = Me.SExtendedDetails3.Form.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For i = 1 To r rs.Edit rs!Printed = "s" rs.Update rs.MoveNext Next rs.Close Set rs = Nothing سيتم تعبئة الحقول بحرف s ويمكنك تغييره الى الرقم او النص الذي تريد

شكرا لكم احبتي هذا الدعاء والثناء ، ولكم بمثل ذلك

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

جميل ايها البحار وحل رائع ولا اجمل وعندي بعض النقاش اولا الوقت الفارق الحقيقي الموجود في الجداول هو 8 ساعات والسبب عدم ايجاد علاقة بين الجدولين ولنفرض ان ان التكرار الموجود حقيقي وليس تكرار فالمجموع في مثالك 24 ساعة ودقيقة يعني يوم وحيث ان اليوم الوظيفي غالبا يكون 8 ساعات او 7 حسب النظام فغالبا نحتاج ايجاد الحضور او الغياب بالايام لهذا ذكرت في مشاركتي السابقة ايجاد الفرق بالدقائق فقط وطبعا تكون داخل الاستعلام للرجوع اليها عند الحاجة لمرونتها لاجراء العمليات عليها ما رأيكم ؟

السلام عليكم ورحمة الله وبركاته احبتي الكرام اليكم بعض الدوال الصغيرة والمهمة والتي لا غنى للمبرمج عنها ولم آت بجديد فهو بعض مما عندكم ولكني احببت ضمه في مكان واحد اولا : اعاد تسمية لملفات او المجلدات هذه للمجلد Name "c:\oldName" As "c:\newName" ولتغيير اسم الملف والمتداد Name "c:\folderName\a.mdb" As "c:\folderName\b.txt" ولحذف ملف معين Kill "c:\fileName\a.txt" ولحذف كافة الملفات داخل مجلد Kill "c:\fileName\*.*" ولحذف مجلد شريطة ان يكون خاليا لا يحتوي على ملفات RmDir "c:\folderName" ولنسخ ملف من مكان الى مكان آخر FileCopy "C:\filename", "C:\filename" ولنسخ مجلد بكامل محتوياته من مكان الى مكان آخر انظر هنا

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