ابوخليل

تفضل نسخة احتياطية.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

( 0سم!2سم ) لاحظ انك وضعت علامة تعجب والصيح انها فاصلة منقوطة جرب اجعل عرض العمود صفر فقط سيظهر الحقل الثاني آليا اما بالنسبة لتحديث النموذج فيمكنك وضع هذه العبارة في المكان الذي تراه مناسب me.refresh هذه لتحديث النموذج من غير تغيير لمجموعة السجلات me.Requery وهذه لتحذيث النموذج ومجموعة السجلات والوقوف على اول سجل

صحيح حقق الله مقاصدك لم انتبه لاول مشاركة ، والا كنت اشرت اليها

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

صدقوني حملت المرفقات ولم افتحها ومع ذلك استمتع واتابع هذا الابداع و العطاء

وعليكم السلام من خصائص التقرير / لسان التبويب تنسيق الاتجاه / اجعله من اليسار الى اليمين

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