ابوخليل

السلام عليكم وبعد اذن بحار جزاه الله خيرا تفضل ضع الكود في حدث زر الطباعة 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

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

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

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

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

السلام عليكم ركب هذا البرنامج يابوعيد يريح راسك علما ان اعدادات قوقل فيها تحكم تقدر تمنع ظهور مواقع معينة

ارفق مثالك حتي تمكن اخوتك من تشخيص سبب المشكلة

بقي ان تتفقد مكتبات اكسس هل يمكن ان تعرض صورة من المكتبات ؟

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

جرب غير كلمة Recordset الى DAO.Recordset

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

دعنا نعمل على حقل واحد الذي هو الرتبة والحقل ال فوقه الذي هو حقل rotb اولا : مصدر بيانات النموذج هو استعلام داخلي ( ولا بد تدخل وتطلع عليه ) ليش ؟ لانه مكون من عدة جداول ( اخبرني اذا لم تتمكن من الاطاع عليه ) فالحقل الرتبة مصدره الحقل النصي الموجود في الاستعلام وهو ماخوذ من جدول الرتب بينما حقل rotb مصدر السجل الحقل الرقمي الموجود ايضا في الاستعلام وهو ماخوذ من الجدول الرئيس ايضا حقل rotb مصدر الصف فيه هو جدول الرتب فيه شي اسمه مصدر السجل ( وفي الحقول اسمه مصدر عنصر التحكم) وشي اسمه مصدر الصف ( مصدر الصف موجود فقط في القوائم والمنسدلات ) ما الومك خبس الخبش خمس عندي لك نصيحة سريعة ومفيدة لمن يريد سرعة وسهولة التعلم : اجعل تسميات الجداول والحقول بحروف انجليزية حتى تتمكن من فهم الاكواد بيسر ايضا اضطررت لاطلاع على مثالك ان انقله على حاسبة اخرى لان في حاسبتي الاصدار 2003 لذا حاول دائما ان تكون امثلتك على صيغة mdb لتمكن اكبر شريحة من الاطلاع عليها اما كيف جبتها ؟ انقر النقاط الثلاث في مصدر الصف وكما ذكرت لك مصدر الصف هو جدول الرتب

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

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

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

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