أبو آدم

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

أخي العزيز لديك في النموذج مربع تحرير وسرد للصنف ، اجعل مصدر الصف حقلي اسم الصنف والسعر على التوالي، وفي حدث عند التغيير للمربع ضع الكود التالي : Me![Price] = Me![Product].Column(1) في مربع النص للسعر سيظهر لك سعر الصنف الذي اخترته جرب ووافني بالنتيجة ..............

أخي عبدالله قد وفيت بما حمِلت ، وصدقت الوعد ، وانجزت العهد ، وانت عليها أمين ، جزاك الله عنا وعن إخوتك خيرا قال تعالى (إِذَا جَاءَ نَصْرُ اللَّهِ وَالْفَتْحُ . وَرَأَيْتَ النَّاسَ يَدْخُلُونَ فِي دِينِ اللَّهِ أَفْوَاجًا . فَسَبِّحْ بِحَمْدِ رَبِّكَ وَاسْتَغْفِرْهُ إِنَّهُ كَانَ تَوَّابًا) (النَّصر). ورد في سبب هذه السورة عن أبي هريرة رضي الله عنه قال: « لما نزلت: (إِذَا جَاءَ نَصْرُ اللهِ وَالفَتْحُ)؛ قال رسول الله صلى الله عليه وسلم: أتاكم أهل اليمن هم أرق قلوباً، الإيمان يمان، والفقه يمان، والحكمة يمانية » صحيح: أخرجه عبد الرزاق في تفسيره (2/404)، وأحمد في المسند (7709) من طريق عبد الرزاق أيضاً، وصححه الألباني في الصحيحة (3369). عن أبي أمامة رضي الله عنه قال: قال رسول بالله صلى الله عليه وسلم: «إن الله استقبل بي الشام، وولي ظهري اليمن، وقال لي: يا محمد، إني جعلت لك ما تجاهك غنيمة ورزقاً وما خلف ظهرك مدداً» صحيح: أخرجه الطبراني في الكبير (7642)، وصححه الألباني في صحيح الجامع (1716) أَمَّن يُجِيبُ الْمُضْطَرَّ إِذَا دَعَاهُ وَيَكْشِفُ السُّوءَ وَيَجْعَلُكُمْ خُلَفَاء الأَرْضِ أَإِلَهٌ مَّعَ اللَّهِ قَلِيلا مَّا تَذَكَّرُونَ (النمل 62) (وَقَالَ رَبُّكُمُ ادْعُونِي أَسْتَجِبْ لَكُمْ إِنَّ الَّذِينَ يَسْتَكْبِرُونَ عَنْ عِبَادَتِي سَيَدْخُلُونَ جَهَنَّمَ دَاخِرِينَ) (غافر 60) (وَلَنَبْلُوَنَّكُمْ بِشَيْءٍ مِّنَ الْخَوْفِ وَالْجُوعِ وَنَقْصٍ مِّنَ الأَمْوَالِ وَالأنفُسِ وَالثَّمَرَاتِ وَبَشِّرِ الصَّابِرِينَ . الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ . أُوْلَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِّن رَّبِّهِمْ وَرَحْمَةٌ وَأُولَئِكَ هُمُ الْمُهْتَدُونَ (البقرة 155-157) الَّذِينَ قَالَ لَهُمُ النَّاسُ إِنَّ النَّاسَ قَدْ جَمَعُواْ لَكُمْ فَاخْشَوْهُمْ فَزَادَهُمْ إِيمَانًا وَقَالُواْ حَسْبُنَا اللَّهُ وَنِعْمَ الْوَكِيلُ . فَانقَلَبُواْ بِنِعْمَةٍ مِّنَ اللَّهِ وَفَضْلٍ لَّمْ يَمْسَسْهُمْ سُوءٌ وَاتَّبَعُواْ رِضْوَانَ اللَّهِ وَاللَّهُ ذُو فَضْلٍ عَظِيمٍ ) ( آل عمران 173-174 ) إنّي دَاعٍ فَأمِّنُوا اللهم إنا عبيدك ابناء عبيدك ابناء إمائك نواصينا بيدك ماضٍ فيّناَ حكمك عدل فيّناَ قضاؤك اللهم إني أسألك بكل اسم هو لك سميت به نفسك أو أنزلته في كتابك أو علمته أحداً من خلقك أو أستأثرت به في علم الغيب عندك ،أن تتقبل منا دعاءنا وتضرعنا اللهم أعز الإسلام والمسلمين . اللهم أعز الإسلام والمسلمين . اللهم أعز الإسلام والمسلمين. وأذل الشرك والمشركين ودمر أعداء الدين اللهم آمنا في أوطاننا . اللهم آمنا في أوطاننا . اللهم آمنا في أوطاننا وأصلح أئمتنا وولاة أمورنا واجعلهم هداة مهتدين واجعل اللهم ولايتنا فيمن خافك واتقاك واتبع رضاك يا أرحم الراحمين. اللهم أصلح حال المسلمين . اللهم أصلح حال المسلمين. اللهم أصلح حال المسلمين. اللهم ارفع مقتك وغضبك عنا . اللهم ارفع مقتك وغضبك عنا . اللهم ارفع مقتك وغضبك عنا اللهم اجمع كلمتنا على الحق وردنا إلى دينك ردا جميلا. اللهم إخوتنا في اليمن ... اللهم ثبت أقدامهم وأربط على قلوبهم وقوِّ شوكتهم وأنزل السكينة عليهم وانصرهم ، إنك على كل شيء قدير. اللهم أبرم لهذه الأمة أمر رشد يعز فيه أهل طاعتك ويذل فيه أهل معصيتك ويؤمر فيه بالمعروف وينهى فيه عن المنكر. اللهم رب جبرائيل وميكائيل وإسرافيل فاطر السموات والأرض عالم الغيب والشهادة أنت تحكم بين عبادك فيما هم فيه مختلفون، اهدنا لما اختلف فيه من الحق بإذنك إنك تهدي من تشاء إلى صراط مستقيم. وصلى الله وسلم وبارك على سيدنا محمد وعلى آله وصحبه أجمعين. وسبحانك اللهم وبحمدك أشهد أن لا إله إلا أنت أستغفرك وأتوب إليك. ....

أخي العزيز يرجى ارفاق قاعدة للتطبيق والتعديل ليتمكن الاخوة من مساعدتك

حياك الله (تمت الاجابة)

أخي العزيز قيما أعرف وما جربت لا بد من تجزئة القاعدة ، بانشاء قاعدة للجداول وتثبيتها على الخادم (السيرفر) انشاء قاعدة بالنماذج وبقية محتويات القاعدة الام ، وتثبيتها على أجهزة المستخدمين ربط قاعدة البيانات المثبتة على اجهزة المستخدمين بالجداول في القاعدة الموجودة على السيرفر والله أعلم

أخي العزيز في مرربع الخيارات لكل زر أمر قم باجراء التعديل التالي: Display When لتصبح Screen Only 6.bmp >>>>>

أخي العزيز بعد فتح القاعدة باستخدام Shift اذهب الى Tools ثم StartUp وقم بازالة نموذج بدء التشغيل وتأكد من إختيار الخيار (نعم) لجميع الخيارات في مربع الحوار وافق على التعديلات 22-09-2011 08-09-47.bmp أعد تشغيل التطبيق

حياك الله وبارك بك ما يهمنا ، ان حاجتك قضيت باذن الله ، واننا تشرفنا بمعرفتك ووجودك بيننا والباقي تفاصيل ... متداولة وبسيطة واهلا وسهلا بك ............

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

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

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

الأخ الفاضل محمد طاهر تشرفنا بمرورك الطيب ولا شكر على واجب ، فنحن يشتد عضدنا بالمتميزين من إخوتنا ................

تفعيل صفحة الكترونية باسم مستخدم وكلمة مرور برمجيا ... كطلب الرايق بيك ... وتطبيق نارت لبزو http://www.officena....showtopic=38496 إنشاء تقرير بنتائج بحث ... كطلب الأخ كمال .... وتطبيق نارت لبزو http://www.officena....showtopic=38483 التحكم في مصدر بيانات التقرير وإظهار قسم التفصيل ... كطلب الأخ أبو بنسيانا ... وتطبيق نارت لبزو http://www.officena....showtopic=38484 إظهار التقارير مع إخفاء خلفية الأكسيس ... كطلب Cha3iR.... وتطبيق نارت لبزو و مداخلة إحترافية من الأخ يوسف المعطي http://www.officena....showtopic=38392 أيقونة للتطبيق على سطح المكتب http://www.officena.net/ib/index.php?showtopic=39156 >>>>>>>>>>>>>>>>>>

بارك الله بك ولك ونفعنا و اياك بما علمنا ، وفتح بالخيرات علينا وعليكم شكرا لمرورك ولكلماتك الطيبة ..........

أخي العزيز تم بعون الله كل ما فعلناه ، بعد التعريفات والسلام والكلام ... انتقلنا للصفحة الالكترونية حسب السجل في الجدول ثم تفاهمنا معها لنقل اسم المستخدم ثم اقنعناها بقبول كلمة السر ثم ضغطنا زر الامر signed in Private Sub &#195;&#227;&#209;36_Click() Dim sURL As String Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library Dim htmlInput As MSHTML.HTMLInputElement Dim htmlColl As MSHTML.IHTMLElementCollection With wbbWebsite .Navigate Me!CompanyWebsite ' Main page .Visible = 1 Do While .ReadyState <> 4: DoEvents: Loop 'set user name and password Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("INPUT") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If htmlInput.Name = "Email" Then htmlInput.Value = Me.MName Else If htmlInput.Name = "passwd" Then htmlInput.Value = Me.Pass End If End If Next htmlInput 'click login Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("input") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If Trim(htmlInput.Type) = "submit" Then htmlInput.Click Exit For End If Next htmlInput End With End Sub فقط لا غير .... ببساطة ... قضيت الحاجة بإذن الله وفضله وهكذا أصبح التطبيق ولي عندكم دعوة خير طيبة بظهر الغيب والله من وراء القصد ..... والسلام ختام NA_ActivateWebpage.rar

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

الحمدلله الذي بفضله تقضى الحاجات ، وردك وادراجك للحل ينم عن حسن خلقك ومتابعتك . ان كان ما ارفقته يفي بحاجتك فلا بأس ولكن فضولي ما زال حول بنية الجدول ، فاذا زادت مرات الايداع (ريال1 وهللة1 , ......،......) عن الحد او العدد الوارد بالجدول فماذا تفعل؟؟؟ لماذا لا يكون الامر غير ذلك ببنية اخرى ، وتستخدم الارقام بشكلها الرياضي الطبيعي ، وتفصل الهللات عن الريالات ضمن النموذج والتقرير (شكلا) ؟؟؟ وذلك حفاظا على قوة وصحة قاعدة بياناتك !!! ...........

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

حياك الله الأمر واضح ، سانظر فيه بإذن الله ............

معرفة الطابعة الإفتراضية ....... Default Windows Printer عبر الشبكة المحلية نستخدم أكثر من طابعة بالاضافة للطابعة الافتراضية PDFCreator ، أثناء استخدام التطبيق العامل في الشركة احتاج قبل الطباعة أن أعرف ما هي الطابعة الإفتراضية الفاعلة . للوصول لحاجتنا ببساطة ، ننشيئ وحدة نمطية ندرج بها الكود التالي: Option Compare Database Option Explicit Public Declare Function apiGetProfileString Lib "kernel32" Alias "GetProfileStringA" _ (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long) As Long Function fDefaultPrinter() As String Dim strBuffer As String * 254 Dim lngReturn As Long Dim strDefaultPrinter As String lngReturn = apiGetProfileString("WINDOWS", "DEVICE", ",,,", strBuffer, Len(strBuffer)) fDefaultPrinter = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1) End Function ثم نقوم باستدعائها من حيث نشاء ، في مصدر الصف في مربع نص : =fDefaultPrinter() على شكل رسالة خلف زر أمر باستخدام: Private Sub DPr_Click() Dim strDfPr As String strDfPr = fDefaultPrinter() MsgBox strDfPr, vbInformation, "Default Prenter" End Sub قضي الأمر ... بسيطة ..............

وقوف المؤشر عند أول النص في مربع النص .... moves the cursor to the text starting position عندي في النموذج مجموعة من مربعات النص ، بعضها مضبوط بقناع ادخال سواء للوقت او التاريخ او رقم الهاتف وغيره. المستخدم غالبا ينتقل باستخدام الماوس لمربع النص الذي يريد ان يضيف البيانات اليه او تعديلها ، فيقف غالبا في مكان ما من النص وليس في اوله ثم يبدا بكتابة البيانات بما يخالف ضبط قناع الادخال للحقل ، مما يسبب ظهور رسائل الخطأ ، نحتاج لطريقة نلزم فيها المؤشر للوقوف دائما عند أول النص .... جيد ... الامر متاح .... اليك الحل الجذري أنشيئ وحدة نمطية وأدرج بها الكود التالي: Function fCursorToStartOnClick() '* Move cursor to start of text field when clicked On Error Resume Next If Len(Screen.ActiveControl.InputMask) > 0 Then If IsNull(Screen.ActiveControl) Then Screen.ActiveControl.SelStart = 0 End If End If On Error GoTo 0 End Function ومقابل حدث عند الضغط لمربع النص المعني أدرج الجملة: =fCursorToStartOnClick() نفذ التطبيق وحاول - بالضغط داخل الحقل - الوقوف بالمؤشر في اي مكان من المربع (غير بدايته) وكفى ... قضي الأمر ...................

تكبير إطار النص .... ZoomBox في نموذج ادخال البيانات لدي حقل نصي أحتاج ان ادخل به معلومات تشكل مجموعة أسطر وليس لدى مساحة كافية في النموذج تكفي لمساحة الحقل الذي افكر به ، وفي اي نموذج آخر احتاج عرض البيانات المدخلة كاملة مع تميز النص المدخل في هذا الحقل بخط مختلف ولون مختلف بحيث تسهل قراءتها.... مهلا ... مهلا نتحدث هنا عن ZoomBox ، في نموذج إدخال البيانات وخلف مربع النص المعني استخدم الكود: Private Sub Text2_GotFocus() DoCmd.RunCommand acCmdZoomBox End Sub وفي اي نموذج وعند أي مربع نص وحين تحتاج عرض ZoomBox إضغط Shift+F2 ، وإقرأ البيانات بشكل مريح ، وإضبط خيارات النص بالضغط على Font… في ZoomBox ، وغير نوع الخط و الحجم واللون وشكل الخط مائل ... عريض ... ، وكما تشاء جرب هذه الفكرة فهي جديرة بتجربتها واستخدامها

إسدال مربع التحرير والسرد .... combo box drop down في النموذج الخاص بادخال البيانات وعند الوصول لمربع التحرير والسرد نحتاج احيانا ان تنسدل محتويات المربع فورا دون الضغط على مؤشر المربع... !! لمحة جمالية واحترافية وملفتة لنظر المستخدم. استخدم الكود التالي : Private Sub cboName_GotFocus() Me!cboName.DropDown End Sub قضي الأمر ....... ...........

أخي يوسف شكرا لثنائك الطيب ، ومرورك أعتز به جزيت خيرا ...............