أبو آدم

أخي العزيز آمل أن يفي هذا الإستعلام بحاجتك ...!! ........... NA_count.rar

الحمدلله الذي علّمنا ما ينفعنا ونسأله أن ينفعنا و إياكم بما علّمنا أتمنى إستمرار الحوارات الطيبة ... ونتعلم من تواجدكم بيننا والشكر الموصول لكم (تمت الاجابة)

أخي العزيز أنشيئ وحدة نمطية جديدة وإنسخ اليها: 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) جرّب ووافني بالنتيجة والله من وراء القصد ... وهو حسبي

أخي العزيز مصطفى ما معنى العناوين الفرعية ؟ و اين مصدر السجلات؟ ...........

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

أخي العزيز أنا شخصياً و أعذرني ... لم أفهم شيئاً من طلبك ومن المرفق أسعفنا ببعض التوضيح .......... .........

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

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

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

أخي الحبيب Bluemind لا غنى لي عن رفقتك ولكنني كنت عزمت على لفت نظر أخينا Elsedik للموضوع المعني

قيد النظر ...... ..................

تقرير بنتائج التصفية ضمن نموذج مستند لإستعلام .... كطلب الأخ Lordring ، وتطبيق نارت لبزو http://www.officena.net/ib/index.php?showforum=89 ..................

أخي العزيز عذراً ... ولكنني غالباً أقوم بإجراء تعديلات شخصية للتطبيقات لأطبق بالطريقة التي أرتاح لها ، لذا أصبحت لا أفضل إعادة إرفاقها إلا للضرورة ، منعاً للإحراج .. بالنسبة لي هنا وحسب الغاية التي حددتها ... التطبيق لا يسمح بالطباعة الا بعد إجراء التصفية ، كون الطباعة لنتائج التصفية !! تفضل ... ............. NA_za-17-3_2-UP2.rar

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

وطبعاً أنا في خدمتك وخدمة إخوتنا وللحديث بقية ... بعد تعليقك وسؤالك ... ومتابعتك ..............

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

بارك الله بك أخي العزيز Bluemind... ونفع بك وبعلمك وبانتظار استكمال النقاش مع الأخ العزيز كيماس !! .........

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

جزيت خيراً أخي الحبيب رفع الله من قَدرِك ... سنسعى ما قُدِر لنا ...... ..............

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

أخي العزيز الكود المرفق يعتمد على تسخير خاصية الفلترة لنفس النموذج قم بانشاء تقرير وليكن Query1Rep مستندا بمصدر سجلاته على نفس الاستعلام مصدر سجلات النموذج وانسخ الكود التالي في حقل عند النقر لزر أمر الطباعة للتقرير : If Me.Filter = "" Then MsgBox "Apply a filter to the Form first.", vbExclamation, "Note ... Nart Lebzo" Else DoCmd.OpenReport "Query1Rep", acViewPreview, , Me.Filter End If Me.Filter = "" تم تطبيق الكود على المرفق والتأكد من فاعليته جرب ووافني بالنتيجة معك ......... والله من وراء القصد ... وهو حسيبي .........

جاري النظر ........ ............

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

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

أخي العزيز بعض التعديلات التي أجدها بمعرفتي البسيطة وخبرتي المتواضعة (نموذجية) وهي ضرورية للقادم من أيام استخدام القاعدة وتتعلق بالعلاقات و مصادر بيانات الحقول للجدول main داعياً لك بالتوفيق والفلاح ................ .............. NA_up_test7.rar