نجوم المشاركات

هذا حل لجميع مشكلاتك افتح الوحدة النمطية mod_PN_All استبدل السطر التالي : Public Function PN_All(N As Integer) As Integer بهذا Public Function PN_All(N As Double) As Double

جزاكم الله خيرا اخوانى واساتذتى @ابوخليل و @husamwahab 💐

بعد اذن اخي حسام انت بحاجة لمثل هذا Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم rs1.Edit: rs1!tech_code = المراقب الثاني rs2.Edit: rs2!tech_code = المراقب الأول rs1.Update: rs2.Update لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط tabdeel2.rar

اما هذه فعندي تجربة بها 🙂 بنت اختي كانت عندنا في البيت ، وقالت لي شوف كيف شاشة الكمبيوتر تتغير بيدي ، وقبل ان اعرف شو اللي صاير ، واذا في يدها مغناطيس ، واخذت تلف يدها على الشاشة ، وما شاء الله ، الوان الشاشة صارت بلون الطيف ، ومن هذاك اليوم ، كل شيء نشوفه على الشاشة كان كوكتيل 🙂 جعفر

هو عند الاشتراك يعطوك 5 رسايل او 3 للتجربه

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

ولا يهمك اخى اتجدعن وربنا يعينك ويوفقك ولكن متنساش اخواتك بطله بارك الله فيك واعانك ويسر لك امورك كلها انت وجميع اخوانى واساتذتى

السلام عليكم 🙂 هذه قيم الصفحات في جدولك (ولا اعرف لماذا النقدية لها رقم 12 ، بينما المنطق يقول بأنها رقم 1 🙂 ) : . طريقة اخي احمد هي الرجوع الى مصدر البيانات ، اخذها من هناك ، والبدء بتصفيتها ، بينما انا احب ان العب بالبيانات التي تم استيرادها وتصفيتها 🙂 . حاليا معادلة جمع الحقل هي : جمع جميع السجلات ، ما عدا السجل رقم 1 ، وانا سألت اخوي ابوحسان لما عملت هذه المعادلة ، اذا كان يريد يستخدم انواع الصفحات (هذه التسمية القديمة قبل ان يبدلها الآن الى "الحساب") ، فكان رده : لا . اما الآن ، فهو برمجيا يريد جمع السجلات ، بشرط "الصفحة" ، كالتالي (انا سأقوم بحذف شرط عدم جمع السجل الاول في المعادلات التالية) : اذا كانت الصفحة = الايراد (رقم 2) = اجعل قيمتها صفر اذا كانت الصفحة = النقدية (رقم 12) = اجعل قيمتها صفر اذا كانت الصفحة = التمويل (رقم 3) = اجعل قيمتها صفر واجمع بقية انواع الصفحات عليه ، المعادلة ستكون للمستودع رقم 1 : =Sum(IIf([iPage]=2 Or [iPage]=3 Or [iPage]=12,0,[Store_1])) جعفر

وعليكم السلام @abouelhassan اتفضل ان شاء الله يكون ما تريد =Nz([Store_1];0)+Nz([Store_2];0)+Nz([Store_3];0)+Nz([Store_4];0)+Nz([Store_5];0)+Nz([Store_6];0)+Nz([Store_7];0) بالتوفيق DATA12(1).mdb

تفضل -------->>>>>> Database_kan.accdb

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

شكرا للاخ ابو خليل علي فتح الموضوع مره اخري وتغيير العنوان شكرا للاخ biskra علي الرد وجاري التجربة

انتم الخير والبركه اخى واستاذى خالد وكل اللى تتمنوه جاهز وموجود باذن الله نورونا انتوا بس

كفو والله ابو بسملة احنا الشباب العشاء لبن زبادي وعسانا نسلم

الله يسعدكم ويجازيكم خير اخوتى واساتذتى العشا عندى تنورونى والله

الله يسعدك يبو عبد الله كوكتيل وانا ما تعشيت على العموم انا افترضت ان الشاشة لديه ليست قديمة علما بان بعض الشاشات من نوع CRT القديمة لا تدعم اكثر من 8 الوان

اشكرك

الاستعلام مرتبط بالدالة PartOfName (يعني بالكود في VBE) ، والظاهر ان هذه الطريقة (ربط الاكسل بالاكسس) لا تسمح بأي استعلام فيه اشارة الى خارجه من الدوال او القيم (حتى قيمة موجودة في نموذج) !! جعفر وعليكم السلام 🙂 انت وضعت سؤال اكسل في منتدى الاكسس ، وصحيح اننا نفهم في الاكسل ، ولكن الدعم اللي ممكن تحصل عليه من منتدى الاكسل يكون افضل لك 🙂 هذا رابط قسم الاكسل : منتدى الاكسيل Excel - أوفيسنا (officena.net) فرجاء كتابة موضوع جديد هناك 🙂 جعفر

تم تعديل الكود لكن هناك بعض الملاحظات 1- البيانات غير مكتملة (الكثير من الجداول تحتوي على صفوف فارغة) قمت يتعبئة بعضها عشوائياُ لذلك أعتدر عن المتابعة اذا لم تكتمل الجداول بالشكل المطلوب (دون صفوف فارغة ولا بهم عدد الصفوف أو عدد الاوراق) وفي نفس المكان في كل صفحة (ابنداء من A1 ) 2-تم حذف بعض الصفحات غير المكتملة للتدقيق في عمل الكود (يمكن اعادة وضعها) 3 الاسم الذي تفتش عنه (يأول حرف او عدة حروف) يتم تلوينه بكل الصفحات 3- اكتب حرفاً أو عدة جروف ثم اضغط الزر بحث و تدرج كل الاسماء التي تبدأ بهذه الحروف في الليست بوكس مع عناوينها (اسم الصفحة و غنوان الحلية) وبذلك يمكنك الذهاب الى اي شيت وتقوم بتعديل ما تريد قي الصفوف الخصراء) Shibl_new.xlsm

شكرا لك استاذي الفاضل ابو ياسين واعتذر عن اي تقصير من جانبي تحياتي

تقريبا الف ريال سعودي يساوي 264 لانه الصرف اتوقع 3.79

دائما ارفق برنامجك للتعديل عليه

الله يحفظك أخي أحمد للأسف العمل أخذ منا كل شيء

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

وعليكم السلام اخى واستاذى صالح عودا حميدا وجزاك الله خيرا

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

هنا وقعت في المحظور !! هذه الارقام يجب ان لا تغيرها ، وانما تقدر ان تغير القيمة في النموذج !! اذا لاحظت الآن ، فجميع اكواد اخوي احمد ، وكودي انا يعتمد على ان : النقدية = 12 !! فرجاء ، قم بتصحيح النقدية في الجدول الى 1 ، وتغيير كودي ، بتغيير الرقم من 12 الى 1 ، هكذا : =Sum(IIf([iPage]=1 Or [iPage]=2 Or [iPage]=3,0,[Store_1])) جعفر

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

طيب اعطنى مرفق اختى ومعلمتى الغاليه لاضيفه عندى ربما لم تقع عينى عليه واتعلم منه جزاها الله عنا كل خير وارى التعديلات المطلوبه واوفيك بها ان شاء الله عما قريب باذن الله بالتوفيق اخى

اتفضل اخى الفاضل @abouelhassan الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا ان شاء الله يكون ما تريد Sub inDsum() If Me.srch_All = "Negative" Then Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) ElseIf Me.srch_All = "Positive" Then Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) Else Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) End If End Sub DATA14.mdb

احسن الله اليك استاذي الغالي @احمد الفلاحجي واياك .... بارك الله فيك ....

في هذا السطر من الكود استبدل B:B بـــ C:C

اتفضل اخى الفاضل @abouelhassan ان شاء الله يكون ما تريد تم اضافه الكود لاستدعائه مع التحميل وعند التغيير والضغط ع زر السيرش Sub inDsum() If Me.srch_All = "Negative" Then Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]") Else Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]") End If End Sub DATA14.mdb

ان شاء الله أحد اخواننا واساتذتنا يفهم المطلوب بشكل واضح ويقدملك المساعده بالتوفيق

جزاك الله خيرا معلمنا العزيز فلم التوصل لمكان الخلل فالمره الأولى عند فحصه ولكني قد علمت بأنه فكود ما لأنني قمت بتغير المبلغ لقيمه ١٠٠٠ ففتح جزاكم الله عنا كل خير

حرب هذا الملف Shibl.xlsm

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل هل هذا ما تريد DSum("iAmount";"[tbl_Items]";"[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]") DATA14.mdb

احسنت اخى واستاذى العزيز @kanory جزاك الله خيرا 💐

وعليكم السلام @abouelhassan اتفضل محاوله منى ان شاء الله تلبى طلبك قمت بوضعها فى حقل Store_1 للنموذج frm_Items_Dates معذرة فالسؤال هو ابو الحسن ولا ابواحسان ونتشرف باسم حضرتك DATA14.mdb

السلام عليكم اخوانى قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس ) بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات ) الدالة الثانية اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض الدالة الثالثة الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض قاعدة البيانات AcxListview_V1.00.rar

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

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

اخي ناصر 🙂 الطريقة 1: لو فتحت برنامجي ، لرأيت اني وضعت البيانات العربية في الجدول ، وعليه تقدر ان تعمل التفقيط العربي و الانجليزي (المثال الذي ارفقته لك في مشاركتي السابقة) على اي جهاز فيه حروف عربية ، ولا علاقة له بضبط لغة الجهاز ، بقي ان تضبط التفقيط الفرنسي وتجعل الكلمات الفرنسية في جدول ، وسيكون عندك 3 لغات للتفقيط ، العربية والانجليزية والفرنسية. ------------------------------------------- الطريقة 2: ومثل ما اقترح اخي ابوعبدالله ، بإستخدام برنامجي اخونا @ابا جودى لتحويل الكلمات الى Ascii ، فرجاء ارفق برنامجك الذي فيه تفقيق عربي وتفقيط فرنسي ، وخلينا نساعدك 🙂 جعفر

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

أخي امير نصيحة مني لك من اخوك الصغير """ دائما في المنتدى 1- تقيد بقوانين المنتدى 2- اسأل بوضوح 3- ارفق مثال 4- تجد الاجابة ( الاستجابة ) من الاعضاء والخبراء درس تعلمته من مواضيعي السابقة اخوك الصغير / ناقل

تفضل التعديل ارجو ان يكون طلبك tabdeel-1.rar

وعليكم السلام ورجمة الله وبركاته تفضل اخي الكريم كود ابسط في موديول جديد ضع الكود التالي Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وللاخفاء استخدم الكود التالي Call HideAccess وللاظهار استخدم الكود التالي Call ShowAccess db101.rar تحياتي

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

أهلا @سلمان الشهراني في هذا التعديل أنشأت وظيفة تعيد بيانات الاستعلامين التي أشرت إليها في المرفق، وضمنتها ببطاقة التعريف بالشكل التالي Function CardDetails(ID As Long) On Error Resume Next Dim P1 As dao.Recordset, P4 As dao.Recordset Dim H As String Set P1 = CurrentDb.OpenRecordset("select * from qr_p1 where Apartment_No4=" & ID) Set P4 = CurrentDb.OpenRecordset("select * from qr_p4 where id=" & ID) H = H & "<p class='first'>" & P1!Name1 & "</p>" H = H & "<p><span>تاريخ الدخول</span>" & Format(P1!Date_Entry, "yyyy/mm/dd") & "</p>" H = H & "<p><span>المبلغ المدفوع</span>" & P1!Mdfo3 & "</p>" H = H & "<p><span>المبلغ المتبقي</span>" & P1!Residual & "</p>" H = H & "<p><span>مبالغ أخرى</span>" & P4!Total2 & "</p>" CardDetails = H End Function إليك المرفق: Dashboard2003.mdb

يمكن عمل ذلك باختيار الشيت ثم طباعته و يكون الاختيار باسم الشيت كما فى الكود الاول أو رقمه كما فى الكود الثاني و هما لطباعة الثلاث شيتات فى الملف أما الكود الاخير فهو لطباعة جميع أوراق العمل مع ملاحظة أن يكون فى الورقة أي بيان قابل للطباعة ( ليست خالية ) Sub Print3Sheets() ActiveWorkbook.Worksheets("sheet1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets("sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets("sheet3").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub Print3Sheets2() ActiveWorkbook.Worksheets(1).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets(2).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Worksheets(3).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub PrintAllsheets() For i = 1 To ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets(i).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub PrintSheets2.rar