نجوم المشاركات
Popular Content
Showing content with the highest reputation on 06 فبر, 2020 in all areas
-
بعد كوب الشاي الرائع والنظر الى الأفكار والتحليل للمرفق مع الاخذ في الاعتبار هذه الملاحظة ومع الاطلاع على الموضوع تم بحمد الله تعالى تم الوصول الى هذه النتيجة اتركم مع التجربة على اى ملف إكسل مع انتظار آرائكم Ju_ Import Frome Excel File.zip4 points
-
4 points
-
وهذه مشاركة العبد الفقير مساهمة مع استاذى الجليل الأستاذ خالد سيسكو Ju_ Dsum.accdb4 points
-
يا مليون اهلا بأستاذي الفاضل واخى الحبيب اما عن النور فذاك من اهل المنتدى الطيبين3 points
-
أولا : منور ياريس ثانيا : ماشاء الله يعمل مية المية3 points
-
اخي العزيز abdulmajid اولا : هل تريد التجميع بالاستعلام هكذا ام لا انت وضعت ( "" ) علامتي تنصيص بدالة iif دلالة على نص حيث لايمكن عمل (sum) للنصوص بهذه الطريقة ضع صفر بدل التنصيص وقم بالتجميع تحياتي Database1 (3).rar3 points
-
السلام عليكم ورحمة الله تعالى وبركاته أساتذتي الكرام إخواني وأحبابي في الله اوفيتم وكفيتم جزاكم الله الحير كله ورزقكم الجنة ان شاء الله اسمحوا لعبد الله المسكين ان يساهم في هذا الخيـر يا أستاذ nabil2255 شرح ع السريع 1- اعلان عن متغير نصى سوف يستخدم لاسم الجدول المؤقت Dim TblNm As String 2- تم اسناد اسم الجدول TblNm = "tblTemp" 3-حذف الجدول المؤقت DoCmd.DeleteObject acTable, TblNm 4-وهنا يتم معالجة البيانات من خلال الاستعلامات الإستعلام الأول هنا لحساب العمر وتعديله في الجدول المؤقت الإستعلام الثاني هنا لإلحاق البيانات في الجدول الرئيسي DoCmd.SetWarnings False DoCmd.OpenQuery "qryckEgeToExel" DoCmd.OpenQuery "qryAppendToSourctbl" DoCmd.SetWarnings True 5- JU_01_ import From Excel To Acces.zip3 points
-
3 points
-
3 points
-
كيف يمكن تعبئة جدول مرتيب ابجديا فقط من خلال الكتابة في الصف رقم 2 للمزيد انظر الى هذا الملف WRITE_JUST IN ROW_2.xlsm2 points
-
معك حق يبدو أني أرفقت الملف قبل التعديل النهائي مع أنه مع ذلك لا يحفظ في ملف جديد. على العموم انظر في المرفق الجديد و أعتذر مجدداً2 points
-
2 points
-
أساتذتي الكرام وإخواني وأحبائي جزاكم الله خيـرا وافر التحية والإحترام لكم استاذى القدير kha9009lid وافر التحية والإحترام لكم استاذى القدير أحمد الفلاحجى2 points
-
نورتنا @ابا جودى حمدالله على السلامه ونحن الذين نستسمح اخانا واستاذنا فى طلب العلم جزاك الله كل خير ولى عوده بعد حضور حفل حنه وعقبالكم اخوانى مره اخرى هههههههههههههههه2 points
-
اخي العزيز @abdulmajid الدالة iif تسخدم بالجداول المحسوبة والاستعلامات والنماذج والتقارير والوحدات النمطية بالاكسيس منها بشرط ومنها باكثر من شرط تحياتي2 points
-
2 points
-
تفضل لك ما طلبت واعلم ان المعادلة ليس بها أخطاء ولكن المشكلة من عندك عند تنفيذ المعادلة .... فهذه معادلة صفيف فلابد من الضغط على Ctrol+Shift+Enter وليس Enter فقط كباقى المعادلات تكاليف عملاء1.xlsx2 points
-
السلام عليكم تفضل اخي العزيز / عند وجود بيانات مكررة بالجدول فان الاستعلام لايظهرها على سبيل المثال (حقل الاسم الكامل ) موجود مكرر بالجدول ولايتم اظهاره بالاستعلام المعيار موجود في جملة SQL 'تستخدم العبارة DISTINCT للحصول على قيمٍ فريدةٍ غير مكررة، وغالبًا ما تستخدم في استعلام SELECT للحصول على سجلات لا تتكرر القيم فيما بينها، إذ يصبح الاستعلام بالشكل الآتي: SELECT DISTINCT [الاسم الكامل] FROM table1; اتمنى هذا هو طلبك حسب مافهمت من سؤالك التكرار-2.rar2 points
-
جزاك الله خيرا اخى صلاح عالتعديل جميل حذف جدول الاخطاء ومفيش فضايح ولا حاجه ههههه الحمدلله واحنا بنتعلم فظهور الاخطاء يعلمنا اكثر واكثر جزاك الله خيرا DoCmd.DeleteObject acTable, "ورقة1$_أخطاء الاستيراد" قمت بتجربه ملفك مره اخرى الان اخى صلاح لم يعمل برضه هل ممكن توضح لى طريقه العمل لعى اعمل شىء خاطىء جزاك الله خيرا اخى خلف على هذه المعلومات القيمه لانى اول مره اتعامل مع الاكسس والاكسيل وان شاء الله ربنا ييسر الامور وتتقرب المسافات بتوضيحكم اخوانى تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق2 points
-
2 points
-
2 points
-
2 points
-
وعليكم السلام-لا يمكن هذا الا بهذه المعادلة =IF(OR(TRUNC(A60-R60,2)-TRUNC(A60-R60,1)>=0.05,TRUNC(A60-R60,-1)-TRUNC(A60-R60,0)>=0.5),TRUNC(A60-R60,0)+1,TRUNC(A60-R60,0)) abc1.xlsx2 points
-
وعليكم السلام-اهلا بك بالمنتدى تفضل لك ما طلبت بارك الله فيك اخى الكريم بالنسبة لكيفية وضع التاريخ والوقت , تم عمل كود لذلك حتى لا يتغير .... كل ما عليك هو تقوم بعمل كليك يمين على اسم الصفحة VisitDetails ثم بعد ذلك تختار View Code وبعد كده تقوم بلصق هذا الكود فى النافذة التى ظهرت لك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 2) = Now End If End If End Sub أما بالنسبة للعمود الثانى B الخاص بالترقيم فتم فقط استعمال ووضع هذه المعادلة بداية من الخلية B11 والسحب للأسفل =IF(A11="","",SUBTOTAL(3,$A$11:A11)) وشكرا لك Date & Timing.xlsm2 points
-
السلام عليكم جزاكم الله أخوتي وبارك الله بجهودكم لم أطلع بعد على المرفقات، ولكن بالنسبة لـ جدول الأخطاء يظهر عند وجود مشاكل بنوع البيانات في الإكسل، ففي الأكسس لكل حقل نوع فعند استيراد من ملف إكسل بيانات وإحدى الخلايا في العمود المقابل لعمود التاريخ في أكسس. كتبت بطريقة خاطئة أو حوت أحرفاً مثلاً لن يستورد السجل وسيظهر في جدول الأخطاء. جدول الأخطاء فيه عمود يتضمن أرقام الصفوف ذات الأخطاء، لو قارنت بين جدول الإكسل و جدول الأكسس الذي استوردت إليه لما وجدتها في الثاني. الآن، هناك حالتان للاستيراد وهما: جدول أكسس جاهز: وفي هذه الحالة قد حددت نوع البيانات في الأعمدة مسبقاً جدول أكسس يتكون عند الاستيراد: هنا يقوم أكسس بتحديد نوع البيانات في الخلايا بناء على قيمة أول خلية بعد رؤوس الجدول. أكسس من " قواعد البيانات العلائقية " التي تحتاج إلى ضبط نوع البيانات. فعلى من يرغب باستيراد البيانات إليه" تنظيف الداتا " قبل الاستيراد إما يدوياً أو باستخدام الـ VBA ضمن ملف المصدر أو بتطبيقها من الأكسس على ملف المصدر. آسف على الإطالة.2 points
-
السلام عليكم ورحمة الله اخي العزيز حاولت ان اعدل على ملفك وتوجد كثير من رسائل الخطاء ولهذا لم اعدل عليه 🙂 عملت قاعدة بيانات صغيرة عملها كتالي عند الدخول الى جدول الاصناف ستجد ثلاث اصناف كتجربة ويحتوي الجدول على اسم الصنف رقم الصنف السعر الخ.. الفواتير لا ادري لماذا قمت بعملة !! لكن لعله يفيدك في البيانات ثالث جدول وهو معالج الفواتير عند الدخول على نموذج الفواتير وقمت بتعبئة البيانات في النموذج الفرعي رقم الصنف 1 سيقوم بجلب كافة بيانات الصنف من جدول الاصناف عنما تقوم بتغيير السعر في جدول الاصناف الى سعر جديد فلن تتاثر الحركة السابقة وستحتفظ بكافة البيانات السابقة وفي الجديد سيتغير السعر تلقائيا ارجو ان يكون هذا مرادك تحياتي فاتورة.rar2 points
-
اهلا استاذ احمد لا ادري ما المشكلة في في النموذج مع انه يعمل لدي بشكل جيد !! عدلت على ملفك ارجو ان اكون قد افدتك وان يعمل لديك ايضاً لا يعمل لنا فضايح تحياتي لك Desktop.rar2 points
-
يمكنك استخدام معادلة الصفيف هذه ولابد من الضغط على ctrol+Shift+Enter =IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$K$5,ROW(A$3:A$5000)-ROW(A$3)+1),ROWS($L$5:L5))),"") البحث لاكثر من شرط1.xlsx2 points
-
2 points
-
2 points
-
وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة وكلمة السر عند الحاجة هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("C6:G8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm2 points
-
تفضل هذا هو المطلوب بالفعل-جرب بنفسك الكمبوبوكس1.xlsm2 points
-
اخى @ابوصلاح قبل تشغيل النموذج انظر للجدول الثانى ستجده فارغ شغل النموذج سيتم الحاق ID للجدول الثانى وتحديث بيانات الرقم القومى بالجدول الثانى وظهور البيانات كامله بالنموذج بعد الالحاق والتحديث تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تحديث تاريخ الميلاد من الرقم القومي.rar2 points
-
اخى الحبيب Khalf اشكرك جدا جدا جدا تم عمل المطلوب بنجاح جزاك الله خيرا ..... سوف يساعدنى الملف جدا جدا فى عملى بجد اشكرك جدا وجعله الله فى ميزان حسناتك1 point
-
1 point
-
اهلا بعودة استاذنا ومروض اكسس المهندس / @ابا جودى عودة بالخير ان شاء الله لعلك تكون بصحة جيدة1 point
-
مرزق ياعم 3 اساتذه مره واحده @خالد سيسكو و @ابا جودى و @kha9009lid جزاكم الله خيرا اخوانى واساتذتى الافاضل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق1 point
-
السلام عليكم يبدو أنكم لم تطلعوا على المرفق لذا أعيد رفعه للتوضيح بعد أن تستورد البيانات من ملف الإكسل الذي اخترته وذلك بالضغط على زر استيراد قم بتعديل بعض البيانات في عمود الرواتب قم اضغط زر تصدير سيقوم البرنامج بفتح ملف الإكسل الذي استوردت منه ويقوم بلصق البيانات فيه ما عليك ثم حفظه و إغلاقه الكود لا يصنع ملفاً جديداً بل يعيد فتح الملف القديم و النسخ على عمود الرواتب ExportImportExcel.accdb1 point
-
وعليكم السلام هل هذا ما تقصد ان لم يكن ارفق مثال لما لديك تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Forms-فتحى اكثر من نموذج من خلال نموذج رئيسى.rar1 point
-
شكرا استاذ @أبو إبراهيم الغامدي شكرا استاذ @ابا جودى الله يبارك لكم فى علمكم1 point
-
نحن نعمل معك مليون لايك اختنا عبق الرياحيين لعوده استاذنا الحبيب محمد عصام ابا جودى ولحلوله الرائعه التى نتعلم منها جزاه الله كل خير وجميع اخواننا واساتذتنا1 point
-
اشكرك استاذى .... ويبدوا اننى ضغيف فى الشرح ولا اجيد تحديد طلبى سيدى الفاضل .... طلبى ان يتم ترحيل عمود المرتب على ملف الاكسل الموجود عليه بيانات العاملين وكل حلول الاخوه جزاهم الله خير ... اما ترحيل الملف كاملا او ترحيل عمود المرتب منفردا وانا لم اطلب لا هذا ولا ذاك بل طلبت ترحيل عمود المرتب فقط داخل ملف الاكسل الموجود اصلا من البدايه وعليه بيانات العاملين1 point
-
السلام عليكم @أكرم جلال هذا رابط الشرح لبرنامج العيادة مع الملف تحياتي 06112019222220.rar1 point
-
المرفق يحتاج الى تركيـــــز ودراسة وتحليل ولابد من كوب شاى أولا اعجبتنى الفكـر سأحاول عل الله يرزقنى بالاجابة1 point
-
السلام عليكم kokersy اخي العزيز الملف المرفق فيه تنبيه لللفترة من 1-10 من كل شهر (وميض احمر) يمكن تغيير الفترة ؟؟ حسب متطلبات عملك والسجل الذي فيه علامة صح يعتبر سجل صالح والعكس صحيح يمكن ان يتم التعديل على الملف بسهوله كيفما تريد تحياتي رسالة تنبيه.rar1 point
-
وعليكم السلام شوف المثال ده لعلك تقصد مثل هذا او وضح بمثال تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق مثال للتبديل بين نموذجين فرعيين بالكود-ChangeSubForm.rar1 point
-
وعليكم السلام ورحمة الله يمكن لهذا المثال ان يساعدك1 point
-
السلام عليكم اعمل استعلام وضع في المعيار شرط العمر =< 18 سنة (اي من 18 سنة قاكثر ويمكن تعديلها) تحياتي اختبار.rar تقرير.rar1 point
-
السلام عليكم يفضل فتح موضوع جديد حتى يلاقي الطلب الاهتمام من كل الاعضاء وخصوصا ان الطلب مكتوب امامه تمت الاجابة على كل حال حسب طلبك عن طريق الفورم حقيقة لا اعلم ولكن بطريقة اخرى وهي كتابة رقم 1 في العمود A للموظف المراد طباعته او الموظفين تم انقر الزر طباعة موظفين اذا لم يكن هذا الحل مناسب قم بفتح موضوع جديد مرفقا الملف والطلب وستجد من الخبراء ,والاعضاء كل اهتمام ان شاء الله تحياتى بيان الحالة.xlsm1 point
-
1 point