أبو آدم

شكراً أخي الحبيب

أخي العزيز أيمن ما رأيك أن تحاول الإستعانة بما ورد في الموضوع ... http://www.officena.net/ib/index.php?showtopic=34271 وللحديث بقية ... ...................

أخي العزيز معتز تحياتي لك ... وكل التقدير و الإحترام لمواظبتك أنا شخصياً معلوماتي في MySQL محدودة جداً ، لذا أجلس و أتعلم من النتائج ، ومن مواظبتك وسوف نستجلب لك العون ما إستطعنا إستمر ... بارك الله بك في المحاولة .............

إخوتي الفضلاء أخي محمد أيمن أرفق لك كود VBA يحقق ما تريد -على ما أظن- عموماً ، وفيما أعرف ، هذا أقصى ما يمكن إستخراجه من Win32_DiskDrive ، كانت رحلة طويلة ومتعبة ولكن أتمنى أن تكون مجدية لك ، فقد كانت غنية ومفيدة وممتعة بالنسبة لي ...... تفضل ... ووافني بالنتيجة ..... Dim objWMIService, objItem, colItems, strComputer On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" _ & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive") For Each objItem In colItems MsgBox "Computer: " & objItem.SystemName & vbCr & _ "Status: " & objItem.Status & vbCr & _ " ==================================" & vbCr & _ "Name: " & objItem.Name & vbCr & _ "Description: " & objItem.Description & vbCr & _ "Signature: " & objItem.Signature & vbCr & _ "Manufacturer: " & objItem.Manufacturer & vbCr & _ "Model: " & objItem.Model & vbCr & _ "Size: " & Int(objItem.Size / (1073741824)) & " GB" & vbCr & _ "Number of Partitions: " & objItem.Partitions & vbCr & _ "Total Cylinders: " & objItem.TotalCylinders & vbCr & _ "Tracks PerCylinder: " & objItem.TracksPerCylinder & vbCr & _ "Total Heads: " & objItem.TotalHeads & vbCr & _ "Total Sectors: " & objItem.TotalSectors & vbCr & _ "Bytes PerSector: " & objItem.BytesPerSector & vbCr & _ "Sectors PerTrack: " & objItem.SectorsPerTrack & vbCr & _ "Total Tracks: " & objItem.TotalTracks & vbCr & _ "Total SerialNumber: " & objItem.SerialNumber & vbCr & _ " -------- DeviceID Info ---------- " & vbCr & _ "PNPDeviceID: " & objItem.PNPDeviceID Next والله من وراء القصد ... وهو حسبي

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

الإستيراد والربط من المشاكل التي تؤرق الكثيرين ... وتكون محور ضعف ... دعونا نبدأ مع الإكسيل نستورد أو نربط ملف الإكسيل وتتعدد المناهج والطرق وبين أخذ وردّ ، والورقة الأولى و الثانية و ...... دعونا نختصر الموضوع ... نربط أو نستورد جميع الأوراق ... وحين يتم الربط نختلف على مكان الملف وبحث وذهاب وإياب و ... و... ، دعونا نختصر الموضوع ونضع ملف الإكسيل في نفس مجلد القاعدة ، ونقوم بما يسميه أبو آدم "الربط الممنهج " ونقوم بالربط حين نحتاجه ، ثم حين تنتهي الحاجة ، نسقط ونلغى عملية الربط . كل هذا بهدوء وبدون ضغط قاعدة البيانات أو ازعاجها وبضغطة زر يتم الربط وباخرى ينتهي الربط ، و لجميع الأوراق Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String Dim strPassword As String On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 blnHasFieldNames = True strPathFile = CurrentProject.Path & "\Book1.xls" strPassword = "passwordtext" blnReadOnly = True Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , _ strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, _ "tbl" & colWorksheets(lngCount), strPathFile, blnHasFieldNames, _ colWorksheets(lngCount) & "$" Next lngCount Set colWorksheets = Nothing End Sub ولنودع الربط ... Public Sub DetachAllTables() Dim db As Database Dim tdf As Object Set db = CurrentDb() For Each tdf In db.TableDefs If tdf.Attributes = dbAttachedTable Then DoCmd.DeleteObject acTable, tdf.Name End If Next tdf db.TableDefs.Refresh Set db = Nothing End Sub والسلام ختام ........... ........... ........................................

أخي العزيز سعيد إخوتي الفضلاء كُنتَ أخي سعيد من أوائل المنادين و المناضلين في هذا الباب ، فالشكر الموصول لك وللمتابعين معك ومن بعدك ومن باب النقاش وبهدوء شديد ... ولكل مقام مقال كنت مَرّرتُ خلال مساهماتي بمواضيع الإخوة لأكثر من مرّة "وبحذر" تلميحات برغبتي في مشاهدة الإسم الحقيقي بدلاً من الإسم الرمزي غير المفهوم. وللأمانة كان التجاوب طيباً ، وتَغيّر منها مع التصريح بعضها فأرى أن يبذل الجميع ، جهوداً "حذرة" لمعالجة المسألة وإنهائها ببساطة وبتعاون من الجميع والأمر ما ترون ...........

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

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

إخوتي الفضلاء تأييداً لدعوات الأخ الحبيب سعيد بيرم والأخ أحمد فضيلة ، وتماشياً مع سياسة المنتدى قمت بتغيير إسم الظهور لدي ليصبح "أبو آدم" رغم أن "Nart Lebzo" "نارت لبزو" هو إسمي الحقيقي وليس إسماً رمزياً أو غامضاً .... ولكنني فعلت من باب التاييد و الموافقة ، ولأكون معكم ولا أكون عليكم حجة ... مع تقديري وإحترامي لكافة الدعوات الطيبة التي تدعو للوضوح و الشفافية و المحبة و التآخي و التعارف والتواصل للأفراد و الجماعات في هذا الموقع المتألق الراقي بإدارته و برواده والسلام عليكم ورحمة الله وبركاته .....................

أخي العزيز يمكنك الإستفادة من خاصية البحث في المنتدى ، و الاستفادة من الخبرات المتراكمة للأعضاء كما يمكنك الاستعانة بالموضوع على الرابط ...... http://www.officena....showtopic=10102 ..............

جزيت خيراً أخي aimanano ومن باب الفضول ... اذا كان متصلاً أكثر من فلاش ميموري ..!!؟؟ ...........

الحلّ موجود بإذن الله أخي أحمد ... أرغب أن توضح لي المسألة من وجهة نظرك وحسب حاجتك ... بانتظار توضيح مشكلتك ...............

كلّ ذلك وأكثر يمكن أن يتم من خلال ضوابط وآليات لا محدودة عبر الكودات في النماذج المستندة للجدول المعني. جرب وباشر ... خطوة ... بخطوة وسيكون إخوتك معك ولن يبخلوا عليك فيما لديهم ... الله المستعان ... وهو حسبنا ونعم الوكيل ............

أخي العزيز علي إطلعت على المرفق ... وطبعاً وبفضل من الله فكل ما تتحدث عنه متاح ولكن الفرق في طريقة التحليل و التفكير والنظام والأدوات المستخدمة نعم يمكن ضّم جدول المرتبات للقاعدة والتعديل عليه من خلال الأكسيس ، من خلال الربط أو الأستيراد الدائم أو المؤقت الممنهج ، وذلك تبعاً لروتين العمل و الإستخدام ومتطلباته و آلياته. أما بخصوص عمل جدول مرتبات في الأكسيس (نعم) يمكن ذلك ، ويتم السيطرة والتعامل مع المعدلات والمعادلات من خلال النموذج سواء من خلال الكودات او من خلال ضوابط الأسستعلام.

أخي العزيز تعبك راحة الإستعلام الذي أرفقته لك يفي بالغرض تماماً كما توقعت الحقل الأول هو للتكرار 1..2..4 الحقل الثاني هو مجموع التكرار الحقول الباقية تبين لك إسم الشخص أو الأشخاص الذين يشكلون أفراد هذا المجموع فمثلاً عند عدد أفراد الأسرة 2 ، مجموع التكرار 2 وأرباب الأسر هم ahmed - sayed هل إتضح التطبيق ...!؟؟ ..................

نحتاج أحياناً لإستخدام ملفات صوتية من امتداد WAV ، وفي أحوال معينة نحتاج للتعرف على الفترة الزمنية للتشغيل (طول الملف بالدقيقة) ، وللحصول على هذه المعلومة أنشيئ وحدة نمطية جديدة وإنسخ اليها: Option Compare Database Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Function GetMediaLength(FileName As String) Dim MediaLength As Long Dim RetString As String * 256 Dim CommandString As String 'open the media file CommandString = "Open " & FileName & " alias MediaFile" mciSendString CommandString, vbNullString, 0, 0& 'get the media file length CommandString = "Set MediaFile time format milliseconds" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Status MediaFile length" mciSendString CommandString, RetString, Len(RetString), 0& GetMediaLength = CLng(RetString) 'close the media file CommandString = "Close MediaFile" mciSendString CommandString, vbNullString, 0, 0& End Function وعند الحاجة إستدعي الوحدة النمطية كما يلي: Dim Seconds, Minutes As Integer Dim MilliSeconds As Long ' replace "E:\working.wav" with the path to your media file MilliSeconds = GetMediaLength("E:\working.wav") ' the function GetMediaLength return the media length in milliseconds, ' so we will calculate the total minutes and seconds Seconds = Int(MilliSeconds / 1000) Mod 60 Minutes = Int(MilliSeconds / 60000) MilliSeconds = MilliSeconds Mod 1000 TotalTime = Minutes & ":" & Seconds & ":" & MilliSeconds MsgBox (TotalTime) جرّب ...... والله من وراء القصد ... وهو حسبي

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

أخي العزيز كلّ هذا متاح وأكثر ... للإستمرار والاستفادة لك ولإخوتك ، ... قم باختصار نسخة من التطبيقات بعدد محدد من الموظفين ، وأرفق الملفين للتطبيق و التعديل وحدد سؤال واحد أو سؤالين مرتبطين في مشاركتك ، ليتم إفادتك بالنتيجة والله من وراء القصد ... وهو حسبي ...........

أخي aimanano مع تقديري لرغبتك فما هي الفائدة المرجوة من تضمين ملفات تنصيب الأوفيس مع البرنامج ..!!؟؟ فهو ليس برمجية متفردة أو مفقودة أو خاصة ، فهي في غالب الأمر منظومة إفتراضية لمعظم الأجهزة ، ومن النادر عدم توفرها على الأجهزة ، وحال عدم توفرها فهي متاحة ، ... ولا أرى أن عدم تضمينها مع برنامجك ، يضير البرنامج ،، أو أن تضمينها يميز برنامجك. الردّ محض رأي ولك ما ترى ... وأنا أميل لتأييد رأي الاستاذ صالح .. وشكراً .................

أخي العزيز التاريخ في الجدول movemnt يفترض أن يكون محدداً بالساعة و اليوم ، أو اليوم على الأقل ، لكلا التوقيتين توقيت الحيازة وتوقيت الإعادة ، لأن ربط توقيت حيازة المركبة ومقارنته مع تاريخ ووقت المخالفة لا يستوي أن يكون بالطريقة الحالية لذا لا بد من أن يكون كل سجل بين توقيتين ... يرجى التعديل للملاحظتين و اعادة التحميل للمرفق ...... .............

أخي العزيز رقم المركبة Kt في الجدول movemnt : نص رقم المركبة Kt في الجدول traffic fines: رقم وهذا غير مقبول وغير متناسق ، حيث يمنع الاختلاف إجراء الربط .... تعدّل ................

أخي مصطفى لا يمكن للأفكار التي نتعامل بها أن تكون من باب لزوم ما لا يلزم ، وإلا دخلنا في مسألة الإفتراضات و العبثية وضياع الجهد و الوقت ... هذه تقدمة وليست نقداً هنا لا بد من أن تكون لنا حاجة محددة ، وروتين واضح وغاية مدركة متصورة قابلة للتحقق المسألة التي تبحث بها نابعة بالضرورة عن حاجة لديك ... وتتخيل لها روتيناً ومسيراً واضحاً ... وهي - من عندي - قابلة للتحقق ولكن ... لا بد من توضيح العنصرين الأولين من قبلك انت تحتاج تقريراً مرناً قابلاً للقولبة والسيطرة والتعامل مع منظومة من الخيارات ... هذا متاح ، ولكن هذه الحاجة لا تستند لمجموعة من الفرضيات التي ليس لها ضابط ، فهي ليست مستندة الى ... لا شيئ ، وتضم عناصر غير معروفة ، وباسلوب وطريقة لا أعرف ما هي ... لا بد من مصدر للمعلومات وبدلا من أن يكون جدولا ... لماذا لا يكون استعلاما !!! وهذه الحقول غير المنضمة التي لا نعرف عددها ولا مصدر سجلاتها ، لماذا لا تكون معروفة ومحددة ، ارتباطاً بالغاية من التقرير وحين نريد بعد توضيح مرحلة من النتائج في الاستعلام مصدر المعلومات ،،، ننتقل لتحديد وضبط نهائي بخيارات مرونة التقرير ما رأيك ..... !!!؟؟ .......

أخي العزيز بغض النظر عما فعلته في الاكسيل أو الأكسيس إشرح لي ما الذي يسبق الخروج بنتائج التكرار ، أصل الموضوع حسب تحليلك ، كي اتمكن من مساعدتك -إن قُدِّر لي ذلك-

إخوتي في الله آخر رسالة من أبو الحارث 8 ابريل يطمئنكم هو بخير ... ندعوا لهم بالثبات ...... ..........