أبو آدم

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

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

الحمدلله الذي بفضله تقضى الحاجات تمت الاجابة

الحمدلله الذي بفضله تقضى الحاجات تمت الاجابة .............

هل يمكن أن تحدد لنا مصدر التقرير؟ ...........

حياك الله أخي العزيز حبذا لو زودتنا ببعض التفاصيل حتى نتمكن من تلبية طلبك وأهلاً بك بين إخوتك .................

تفضل أخي العزيز ترتيب الطلاب حسب العلامات ورقم متسلسل في النموذج حسب الترتيب والله من وراء القصد ... ............. NA_SortStudentsAndCurrentRecord.rar

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

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

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

أخي العزيز لا علاقة للعبقرية بالمسألة طرحت طلبك ، ولم تحاول حلّ الأسئلة ليكون إخوتك في عونك ويبدو أن الإخوة يريدون منك بادرة أو محاولة فما رأيك !!!

عَنْ أبي هُريرةَ ، رضي اللَّه عنْهُ قالَ : قالَ رَسُولُ اللَّهِ صَلّى اللهُ عَلَيْهِ وسَلَّم : « كَلِمتَانِ خَفِيفَتَانِ عَلى اللِّسانِ ، ثَقيِلَتانِ في المِيزَانِ ، حَبِيبَتَانِ إلى الرَّحْمنِ : سُبْحان اللَّهِ وَبِحَمْدِهِ، سُبحانَ اللَّه العظيمِ » متفقٌ عليهِ . وعَنْهُ رضي اللَّه عنْهُ قال : قالَ رَسُولُ اللَّه صَلّى اللهُ عَلَيْهِ وسَلَّم : « لأن أَقُولَ سبْحانَ اللَّهِ ، وَالحَمْدُ للَّهِ ، ولا إلَه إلاَّ اللَّه ، وَاللَّه أكْبرُ ، أَحبُّ إليَّ مِمَّا طَلَعَت عليهِ الشَّمْسُ » رواه مسلم . وعنهُ أنَّ رسُولَ اللَّه صَلّى اللهُ عَلَيْهِ وسَلَّم قالَ : « منْ قال لا إله إلاَّ اللَّه وَحْدَهُ لا شرِيكَ لَهُ، لهُ المُلكُ ، وَلهُ الحَمْدُ ، وَهُوَ عَلى كُلِّ شَيءٍ قَدِيرٌ ، في يومٍ مِائةَ مَرَّةٍ كانَتْ لَهُ عَدْل عَشر رقَابٍ وكُتِبَتْ لَهُ مِائَةُ حَسَنةٍ ، وَمُحِيت عنهُ مِائة سيِّئَةٍ ، وكانت له حِرزاً مِنَ الشَّيطَانِ يومَهُ ذلكَ حتى يُمسِي ، ولم يأْتِ أَحدٌ بِأَفضَل مِمَّا جاءَ بِهِ إلاَّ رجُلٌ عَمِلَ أَكثَر مِنه » ، وقالَ : «من قالَ سُبْحَانَ اللَّهِ وَبحمْدِهِ ، في يوْم مِائَةَ مَرَّةٍ ، حُطَّتْ خَطَاياهُ ، وإنْ كَانَتْ مِثْلَ زَبَدِ البَحْر » متفقٌ عليهِ .

عَنْ ابْنِ مَسعُودٍ رضي اللَّه عنه أَنَّ النَّبِيَّ صَلّى اللهُ عَلَيْهِ وسَلَّم كَانَ يَقُولُ : «اللَّهُمَّ إِنِّي أَسْأَلُكَ الْهُدَى وَالتُّقَى وَالْعفافَ والْغِنَى » رواه مسلم . عَنْ ابْن عبَّاس رضي اللَّه عنهما أيْضاً أَنَّ رسول اللَّهِ صَلّى اللهُ عَلَيْهِ وسَلَّم كانَ يقُولُ : «اللَّهُم لَكَ أسْلَمْتُ وبِكَ آمنْتُ ، وعليكَ توَكَّلْتُ ، وإلَيكَ أنَبْتُ ، وبِكَ خاصَمْتُ . اللَّهمَّ أعُوذُ بِعِزَّتِكَ ، لا إلَه إلاَّ أنْتَ أنْ تُضِلَّنِي أنْت الْحيُّ الَّذي لا تمُوتُ ، وَالْجِنُّ وَالإِنْسُ يمُوتُونَ» متفقٌ عليه .

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

نسخ التطبيق الحالي مباشرة (للفلاش ميموري) - قرص متحرك مع مجموعة من الكودات الخاصة بالتعرف و التعامل مع الأقراص الثابتة و المتحركة المثبتة على الجهاز كطلب الأخ ahmeeg_eg وتطبيق أخوكم نارت لبزو http://www.officena.net/ib/index.php?showtopic=40877 .......................

إخوتي الفضلاء إنما التوفيق من الله ، فالحمدلله رب العالمين أخي العزيز ترك الأمر لأي قرص مضاف للجهاز فيه خطورة على أمن المعلومات ، لذا سنلتزم بخطتنا و الروتين المقترح وبالتجربة وجدته الأفضل ، بإذن الله ... وفوق كل ذي علم عليم نقوم بزرع ملف بأي إسم نختاره أو إمتداد نختاره ضمن القرص المستهدف (فلاش ميموري) نتأكد من تثبيت هذا الإسم ضمن الكود في التطبيق المرفق ، وهنا مفترض بالاسم (hh.txt) إضغط زر الأمر وأترك الكود يقوم بالمهمة ... إسم النسخة على الفلاش ميموري تتحكم بها من الكود وهي هنا مقترنة بإسم إفتراضي مع اليوم و الساعة جرب ووافني بالنتيجة ...... تطبيق صغير وجهد وتجارب ولكن وبفضل الله أداء دقيق وجيد والله من وراء القصد ...... ............. NA_BackUpToRemovableDrive.rar

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

شكراً أخي أحمد على التوضيح الحمدلله الذي بفضله تقضى الحاجات .......... تمت الاجابة

أخي الحبيب حامل المسك ، طيب الله الأنفاس عزيزي ، رقم دلالة الإصدار للإصدار 2007 هي : acSpreadsheetTypeExcel12 أما الإصدار 2003 فقد استخدمنا : acSpreadsheetTypeExcel19 مع إختلاف إمتدادات الملفات بين xls , xlsx وكما تفضلت ... ولعموم الفائدة ... اليكم المرفق والله من وراء القصد .............. NA_LinkToExcel0307.rar

الحمدلله الذي هدانا وعلّمنا ما لم نكن نعلم بانتظار تطبيقات تجريبية منكم ........ .....................

ضع قيمة في الحقل اذا كان فارغاً ، فكيف يتم تحديث حقل في سجل غير موجود !!

ولتتعرف على موقعك (موقع تطبيقك العامل على الجهاز) Private Function CurrentDriveType() As String Dim fso As Object ' File System Object Dim drv As Object ' Drive Set fso = CreateObject("scripting.filesystemobject") Set drv = fso.GetDrive(fso.GetDriveName(CurrentProject.Path)) CurrentDriveType = Choose(drv.DriveType + 1, "Unknown", "Removable", "Fixed", "Network", "CD-ROM", "RAM Disk") MsgBox drv & " " & CurrentDriveType Set drv = Nothing Set fso = Nothing End Function Private Sub Command3_Click() CurrentDriveType End Sub

وهذا أدق وأشمل ويحل مشكلة التعرف على CD لبعض الأجهزة Private Sub Command2_Click() ' On Error GoTo ErrMsg ShowAllDriveInfo ("K:") ' Exit Sub ' ErrMsg: MsgBox Err.Description End Sub ' ' Sub ShowAllDriveInfo(DriveName As String) ' Dim Drive As Object, Info As String, DriveTypeIs As String ' Set Drive = CreateObject("Scripting.FileSystemObject").GetDrive(DriveName) ' Select Case Drive.DriveType Case 0: DriveTypeIs = "Unknown" Case 1: DriveTypeIs = "Removable" Case 2: DriveTypeIs = "Fixed" Case 3: DriveTypeIs = "Network" Case 4: DriveTypeIs = "CD-ROM" Case 5: DriveTypeIs = "RAM Disc" End Select ' If Drive.VolumeName = Empty Then Drive.VolumeName = "(None)" Info = "Drive " & Drive.DriveLetter & ": " & vbNewLine & _ "Drive Type: " & DriveTypeIs & vbNewLine & _ "Drive Name: " & Drive.VolumeName & vbNewLine & _ "Total Size: " & FormatNumber(Drive.TotalSize / 1024, 0) & " Kbytes" & vbNewLine & _ "Available Space: " & FormatNumber(Drive.AvailableSpace / 1024, 0) & " Kbytes" ' If Drive.IsReady Then Info = Info & vbNewLine & "Drive " & Drive.DriveLetter & " is Ready." ' MsgBox Info ' Set Drive = Nothing ' End Sub

وهذا الكود يستخرج معلومات الأقراص (قرص محدد) ، وفي حال كونه Ready يكون جاهزاً للحفظ والتخزين .. Sub ShowDriveInfo(DrivePath As String) ' Dim FSO As Object, Drive As Object, Info As String, DriveType As String ' Set FSO = CreateObject("Scripting.FileSystemObject") Set Drive = FSO.GetDrive(DrivePath) ' Select Case Drive.DriveType Case 0: DriveType = "Unknown" Case 1: DriveType = "Removable" Case 2: DriveType = "Fixed" Case 3: DriveType = "Network" Case 4: DriveType = "CD-ROM" Case 5: DriveType = "RAM Disk" End Select ' Info = "Drive " & Drive.DriveLetter & ": " & DriveType & vbNewLine & _ "Name: " & Drive.VolumeName ' If Drive.IsReady Then Info = Info & vbNewLine & "Drive is Ready." Else Info = Info & vbNewLine & "Drive is not Ready." End If ' MsgBox Info ' End Sub Private Sub Command1_Click() ShowDriveInfo ("K:") End Sub

إخوتي الفضلاء من باب التحليل ، و وضع المتاح بين يديك لإعانتكم على التطبيق ، الكود التالي يميز الأقراص المتبدلة (القابلة للإزالة) - فلاش ميموري Option Compare Database Option Explicit ' Sub ShowDriveLetter() ' Dim Drive As Object, MyDrives As String ' For Each Drive In CreateObject("Scripting.FileSystemObject").Drives If Drive.DriveType <> 2 Then '< DriveType 2 is the hard drive MyDrives = Drive & vbNewLine & MyDrives End If Next ' MsgBox MyDrives ' End Sub Private Sub Command0_Click() ShowDriveLetter End Sub