ابوخليل

تفضل 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" ولنسخ مجلد بكامل محتوياته من مكان الى مكان آخر انظر هنا

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

تفضل نسخة احتياطية.rar

السلام عليكم احبتي الكرام يمكن ان تظهر " بن " في التقارير وغيرها بدون ادراجها في الجدول او ظهورها في النموذج عند ضم الحقول الاربعة ولنفرض انها fld1 , fld2 , fld3 , fld4 يتم الضم هكذا : [fld1]& " " & "بن" & " " &[fld2] & " " & [fld3] & " " & [fld4]

&H2 &H1 &H8 &H100 &H200 هذه قيم هكس ,يمكنك معرفة ناتجها عن طريق استخدام كود مثل هذا MsgBox(&H20) اما هذه فهي مثل صاحبتها FO_COPY ويمكننا التطبيق من خلال اجراءات مشابهة نضيفها الى الوحدات والاجرءات السابقة كالتالي : Public Function ulkill(PATH As String, Optional RECYCLE As Boolean = True) As Boolean If Right(PATH, 1) = "\" Then PATH = Left(PATH, Len(PATH) - 1) If Len(Dir$(PATH)) <> 0 Or Len(Dir$(PATH, vbDirectory)) <> 0 Then Dim SHFileOp As SHFILEOPSTRUCT With SHFileOp .wFunc = FO_DELETE .pFrom = PATH .fFlags = FOF_NOCONFIRMATION Or FOF_FILESONLY If RECYCLE Then .fFlags = .fFlags Or FOF_ALLOWUNDO End With ulkill = (SHFileOperation(SHFileOp) = 0) End If End Function Private Sub ShellRenameFile(sOldName As String, sNewName As String) Dim SHFileOp As SHFILEOPSTRUCT Dim r As Long With SHFileOp .wFunc = FO_RENAME .pFrom = sOldName .pTo = sNewName .fFlags = FOF_SILENT Or FOF_NOCONFIRMATION End With r = SHFileOperation(SHFileOp) End Sub Private Sub zerDell_Click() ulkill "d:\folderName" End Sub Private Sub RnmFile_Click() ShellRenameFile "d:\oldName", "d:\newName" End Sub الأولى للحذف والثانية لتغيير التسمية علما ان اكسس يشتمل على دالتين تقومان بالعمل نفسه .. هنا ولكني وضعت هذه الوحدات لمن يريد استخدامها المصدر

حتى لا يتشعب الموضوع سنبقى في مجال نسخ الملفات والمجلدات داخل اكسس وسأعدل العنوان حتى يكون اشمل في الدلالة بالنسبة لنسخ الملفات من مكان لآخر فاكسس لديه اداة جاهزة وهي filecopy مثال : FileCopy "C:\filename", "C:\filename" اما نسخ المجلدات فالصق هذه في المكان المناسب حيث يمكنك جعلها في النموذج او في وحدة نمطية عامة ونقل حدث الزر الى النموذج Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS End Type Private Const FOF_MULTIDESTFILES = &H1 Private Const FOF_CONFIRMMOUSE = &H2 Private Const FOF_SILENT = &H4 Private Const FOF_RENAMEONCOLLISION = &H8 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_WANTMAPPINGHANDLE = &H20 Private Const FOF_CREATEPROGRESSDLG = &H0 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_FILESONLY = &H80 Private Const FOF_SIMPLEPROGRESS = &H100 Private Const FOF_NOCONFIRMMKDIR = &H200 Private Const FO_MOVE = 1 Private Const FO_COPY = 2 Private Const FO_DELETE = 3 Private Const FO_RENAME = 4 Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long Public Function CopyFolder(ByVal strSource As String, ByVal strDest As String) As Boolean '========================================================================================== Dim varFOS As SHFILEOPSTRUCT With varFOS .fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOCONFIRMMKDIR .wFunc = FO_COPY .pFrom = strSource .pTo = strDest End With Call SHFileOperation(varFOS) CopyFolder = (varFOS.fAnyOperationsAborted = 0) End Function Private Sub Command1_Click() CopyFolder "d:\foldeName", "d:\foldeName" End Sub

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

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

السلام عليكم بالبحث داخل المنتدى خرجت ببعض النتائج : هنا ، وهنا ، وهنا ، وهنا

اعرض موضوعك في قسم الوورد