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

AutoLogout2.rar

بعد اذن استاذنا محمد أبوعبدالله أستاذى الفاضل النجاشي كنت أفضل ان يكون بالجدول حقل للسعر الأساسي وحقل للسعر بعد إضافة الضريبة يتم حسابه على الفورم .. ولكن جرب المرفق عسي ان يفي بالغرض 99.rar

مقال اعجبني المصدر اكتشف قاعدة 10/90 ربما ستغير لك حياتك.. على الأقل ردود أفعالك تجاه مواقف معينة ماهي هذه القاعدة ؟ عشرة في المائة فقط من الحياة تتشكل من خلال ما يحدث لنا، و الـتسعون في المائة من الحياة يتم تحديدها من خلال ردود أفعالنا . ماذايعني هذا؟ معنى هذا الكلام أننا في الواقع ليس لدينا القدرة على السيطرة علىال 10% مما يحدث لنا , فنحن لا نستطيع منع السيارة من أن تتعطل أو الطائرة منالوصول متأخرة عن موعدها.. مما سيؤدي ذلك إلى إفساد برنامجنا بالكامل.. أو سائق ماقطع علينا حركة المرور أو السير ، فنحن في الواقع ليس لدينا القدرة على التحكمبـ10% و لكن الوضع مختلف مع الـ90 % ، فنحن من يقرر كيف يمكن أن تكون الـ90 % كيف ذلك ؟؟ عن طريق ردود أفعالنا نحن لا نستطيع التحكم في إشارةالمرور الحمراء ، و لكن نستطيع السيطرة على ردة فعلنا ، لا تدع الآخرون يجعلونكتتصرف بحماقة، أنت تستطيع أن تقرر ماهي ردة فعلكالمناسبة دعونا نستخدم هذا المثال كنت تتناول طعامالإفطار مع عائلتك و فجأة أسقطت ابنتك الصغيرة فنجان القهوة على قميص عملك. لم يكنلك دور فيما حدث هنا ولكن ماسوف يحدث لاحقا سيتقرر حسب ردة فعلك بدأت بالصراخو الشتم و قمت بتوبيخ ابنتك.. فأخذت الطفلة في البكاء ، ثم استدرت إلى زوجتك موبخاإياها لوضعها الفنجان على حافة الطاولة ، و بعد مشادة لفظيه قصيرة بينكما، اندفعتإلى الطابق العلوي و قمت بتغيير قميصك و من ثم عدت إلى الطابق السفلي ، فوجد أنابنتك قد انشغلت بالبكاء عن إنهاء فطورها و الاستعداد للمدرسة ، و نتيجة لذلك فاتهاباص المدرسة و زوجتك كان لابد أن تغادر لعملهااضطررت إلى إيصال ابنتكبسيارتك الخاصة إلى المدرسة ، و بما أنك متأخر قدت سيارتك بسرعة 40 ميل في الساعةمن أصل 30 ميل في الساعة كحد أقصى.. و بعد 15 دقيقة تأخير و دفع مخالفة مروريةبقيمة 60 دولار وصلت إلى المدرسة.. ركضت ابنتك إلى مبنى المدرسة دون أن تقول لك معالسلامة و بعد و صولك إلى المكتب متأخراً 20 دقيقة ، وجدت أنك قد نسيتحقيبتك ها هو يومك بدأ بصورة سيئة و استمر من سيء إلى أسوء.. بعد عودتك إلىالمنزل تجد توترا في العلاقة بينك وبين زوجتك وابنتك لماذا ؟؟ بسبب ردود أفعالك منذ الصباح لماذا كان يومك سيئا؟؟ أ) هل هو بسبب القهوة ؟؟ ب) هل هو بسبب إبنتك ؟؟ ج ) هل هو رجلالشرطة ؟ د )هل أنت سببت لنفسك ذلك؟ الإجابة هي : د لم يكن لك دخلأو سيطرة على حادثة الفنجان ولكن ردة فعلك في الخمس ثواني التالية هي من تسببت في إفساد يومك هنا هو ما كان ممكن وينبغي أن يحدث : فنجان القهوة وقع عليك، و بدأت ابنتك بالبكاء.. و قلت لها بكل لطف: لابأس يا عزيزتي.. و لكن كوني في المرة القادمة أكثر حذراً و انتباه تتناولالمنشفة وتسرع إلى الطابق العلوي.. تستبدل قميصك وتتناول حقيبة أوراقك وثم تعود إلىالطابق السفلي في الوقت المحدد لترى ابنتك من النافذة و هي تصعد إلى حافلة المدرسةملوحة بيدها لوداعك تصل إلى عملك مبكراً بـ 5 دقائق و تحيي زملائك بكل مرح وابتهاج.. ويبدي رئيسك تعليقا حول يومك الرائع لاحظت الفرق؟ يوجد سيناريوهانمختلفان لهما نفس البداية ،ولكن نهاية مختلفة لماذا ؟؟ بسبب ردةفعلك هنا بعض الطرق لتطبيق قاعدة ال 10/90 إذا فالأحد الأشخاص: بعض الأشياء السيئة عنك ، فلا تكن مثل الأسفنج.. بل دع الهجوم يسيلعليك مثل الماء على الزجاج ...و لا تسمح للتعليقات السلبية أن تؤثر عليك فردةالفعل الإيجابية لن تفسد يومك ، بينما ردة الفعل السلبية قد تؤدي إلى فقدانكللأصدقاء أو فصلك من العمل و تكون في حالة من العصبية و الإرهاق ..... إلخ كيفتكون ردة فعلك إذا قطع عليك أحد الأشخاص حركة السير ؟؟ هل تفقد أعصابك ؟؟ هل تضربمقود السيارة بقوة حانقا. أحد أصدقائي أسقط مقود السيارة هل تشتم؟؟ هل يرتفع ضغطدمك عاليا؟؟.. من سيهتم إذا وصلت إلى العمل متأخراً بعشر ثواني ؟؟ لماذا تسمحللسيارات بإفساد قيادتك ، تذكر قاعدة الـ 10/90 و لا تقلق لما سيحدث لكَ بعدذلك قيل لك بأنك فقدت وظيفتكَ ... لماذا الغضب و الانزعاج و الأرق ؟؟؟ .استغلطاقة القلق ووقتك في إيجاد وظيفة أخرى تأخر إقلاع الطائرة ، وأفسد ذلك برنامجكَاليومي.. لماذا تصب جام غضبكَ و إحباطكَ على مضيفة الطائرة ؟؟ هي ليس لديهاالقدرة على التحكم في موعد وصول الطائرة استغل وقتكَ في الدراسة أو التعرف علىمسافر آخر.. التوتر لن ينتج عنه إلا تعقيد أوضاعك وجعلها إلىالأسوأ وفي النهاية طبق قاعدة 10/90 وستدهشكالنتائج , لن تخسر شيئا إن حاولت قاعدة 10/90 مذهلة والقليل من الناس من يعرفهاويطبقها في حياته والنتيجة ؟الملايين من الناس تعاني من إرهاق وإجهاد لامبرر له ومحاكم ومشاكل في القلب إذن علينا جميعاً أن نفهم ونطبق هذهالقاعدة حياتك عندها ستتغير المصدر

وعليكم السلام اتفضل جرب ووافنا بالنتيجه تم التغيير هذا السطر فالكود stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) الكود Private Sub R_Click() On Error GoTo Err_R_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Item" stLinkCriteria = "[Number]=" & Me![Combo1].Column(1) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_R_Click: Exit Sub Err_R_Click: MsgBox err.Description Resume Exit_R_Click End Sub والمعيار فالاستعلام TransactionS استعلام لحقل name ونصيحه لك حاول ان تبتعد عن الاسماء المحجوز مثل name وغيرها من الاسماء المحجوزه وده رابط للكلمات المحجوزه لاخى واستاذى وشيخنا الجليل ابوخليل جزاه الله خيرا ومن ميكروسوفت https://support.microsoft.com/ar-sa/office/الكلمات-والرموز-المحجوزة-في-access-ae9d9ada-3255-4b12-91a9-f855bdd9c5a2 بالتوفيق Root220.rar

مشاركة مع اخي الاستاذ @ناقل تفضل -------->>>>>> can.accdb

غير ها بهذه ..... If Mid([Combo1], 1, 5) = "اسمنت" Then Me.R.Visible = True Me.S.Visible = False Me.T.Visible = False End If

ليست المرة الأولى التي اقول فيها "ممنوع دمج الخلايا حيث يوجد معادلات" تم ازالة الدمج و لن اقبل بأي مشاركة فيها خلايا مدمجة و تتطلب معادلات بعد الآن الملف مرفق makl.xlsx

ولكن يوجد حل وهو اعادة اكسس الى وضع التكبير عند حدث الرسالة انتظرني سوف اقوم بالتعديل على المرفق

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

وعليكم السلام لابد من التأكد أولاً بأن الملف المنقول له الكود يكون بإمتداد Xlsm وليس Xlsx وبارك الله فيك ... انتهى

تفضل : . انا شرحت لك هنا: الآن وقد تم عمل جميع المتطلبات ، فإذا عندك سؤال جديد ، رجاء عمل موضوع جديد لسؤالك 🙂 جعفر 1311.3.Data.accdb.zip

جزاك الله خيرا اخى وشيخنا ومعلمنا العزيز ابوخليل 💐🌹 افكار جميله وتنفيذ مافى اجمل من كده تسلم ايدك وراسك بارك الله لنا فيكم اساتذتنا الافاضل وجزاكم الله عنا كل خير

هل هذا ما تريد انظر التقرير .... can.accdb

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

مشكور الان مظبوط طال الله عمرك وزادك الله علما اعتذر منكم احبتي احيانا لم استطع اوصل السوال بطريقيه علميه كوني لي اكثر من 25 سنه من يوم تركت المدرسه موهلي اعدادي لكن بالاصرار استفدت منكم الكثير الله يحفظكم اعذرونا تحياتي اليكم

هذا الأمر بسيط جداً وكان أولى ان تقوم بعمله بنفسك ... تم تكبير المدى الى 1500 بالمعادلة 1مخازن 2021.xlsm

هذا السطر يعيد تكبير اطار اكسس DoCmd.RunCommand acCmdAppMaximize انظر المثال المعدل : جعلت عداد الوقت حين فتح البرنامج عند 10 ثواني وعند تحقق التحذير وظهور الرسالة والضغط على زر ok يصبح العداد ثانية واحدة يقوم بالعد تنازليا حتى 100 ثانية ثم يغلق البرنامج وعند الضغط على زر cancel يتم غلق البرنامج مباشرة

انتبه معي اخي الكريم 200 * 15% = 30 230 * 15% = 34.5 100 * 15% = 15 100 * 15% = 17.25 تحياتي

تفضل اخي الكريم =Nz([S])-(Nz([s])*Nz([tax])) 99.rar تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به اخي الحبيب @احمد الفلاحجي وله الشكر تفضل اخي الكريم اكتب هذا في حقل الناتج =Nz([S])-(Nz([tax])*100) 99.rar تحياتي

ليأجرك الله بمصابك - ولا تحزن فلعله خير يدخره الله لك دائما يكون لدي الواحد منا نسخة بل نسخ مختلفة هنا وهنا للمشروع الواحد لعلك أخذت نسخة للعمل أو نسخة أخري بالمنزل وكذلك نسخة علي فلاش مومري لتتنقل بها الي مكان آخر فتش عن أحد هذه النسخ لعلك تسترجع ما يمكنك ارجاعه قد مررت بتجربة مثل هذه وتم حذف جميع الأكواد من البرنامج من الفورم والموديل وكل شئ - من جهاز العمل - ولكن هذه التجربة علمتني ان لا أترك محرر أكود الـ vba بدون حماية وكذلك قاعدة بيانات الجداول الخلفية - وأن احتفظ بنسخة احتياطية كل فترة زمنية (ويستحسن أن تكون قريبة) من البرنامج بشقيه الأمامي والخلفي. وبفضل الله أنقذتني نسخة قديمة كانت بجهاز المنزل. قد احتاجت بعض التعديلات اليسيرة ولكن الأمور مرت بسلام والحمد لله. حاول أن تكون تلك تجربة تتعلم منها ولا تبتأس فان فرج الله قريب.

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

وعليكم السلام -لابد وان تكون صياغة المعادلة هكذا =SUMIFS(حركة_مخازن!$A$5:$A$3000,حركة_مخازن!$D$5:$D$3000,$E6,حركة_مخازن!$F$5:$F$3000,$H$4,حركة_مخازن!$M$5:$M$3000,$J$4)

بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الحل بالمعادلات العادية -تفضل نسب وشرائح.xlsx

جرب هذا الملف Nada Task.xlsm

تم تغيير اسم الشيت الى الحروف الانجليزية اصل التقارير.xlsm التقارير.xlsm

للأسف لا يمكن معرفة الخطأ بدون ان تعرض لنا الجملة اللي كتبتها ، علشان نشوفها ونخبرك اين الخطأ !! على العموم ، هذا هو الكود الكامل: Dim mySQL As String mySQL = "INSERT INTO " & "[" & y & "]" mySQL = mySQL & " ( [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23],[24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], [Sign On Date] ) " mySQL = mySQL & " SELECT" mySQL = mySQL & " [Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22], [23], [24], [25]," mySQL = mySQL & " [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42], [43], [44], [45], [46], [47], [48], [49], [50]," mySQL = mySQL & " [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62], [63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75]," mySQL = mySQL & " [76], [77], [78], [79], [80], [81], [82], [83], [84], [85], [86], [87], [88], [89], [90], [91], [92], [93], [94], [95], [96], [97], [98], [99], [100]," mySQL = mySQL & " [101], [102], [103], [104], [105], [106], [107], [108], [109], [110], [111], [112], [113], [114], [115], [116], [117], [118], [119], [120], [121], [122], [123], [124], [125]," mySQL = mySQL & " [126], [127], [128], [129], [130], [131], [132], [133], [134], [135], [136], [137], [138], [139], [140], [141], [142], [143], [144], Date() AS SDate " mySQL = mySQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');" 'Debug.Print mySQL DoCmd.RunSQL mySQL جعفر

وعليكم السلام فهرسة الحقول في الجداول تجعل البرنامج اسرع ، حيث يقوم الاكسس بحفظ بيانات هذه الحقول المفهرسة في ذاكرته ويقرأها من هنا ، بدل قرأتها من الجداول والفهرسة يجب ان تكون للحقول التالية ، اذا اردت تسريع البرنامج: 1. حقل الترقيم التلقائي ، هذه سهلة وما يحتاج لها شرح 2. الحقول التي تستخدم لها معايير في استخلاص معلومات السجل: في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت معيار/تصفية لحقل/حقول ، في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت فرز لحقل/حقول ، في النموذج / التقرير ، اذا عملنا تصفية عن طريق me.Filter او فرز عن طريق me.Orderby ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه تصفة / فرز ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه اوامر Dcount , Dmax, Dlookup , Dlast, Dfirst ، وفيها اسم حقل تصفية مثل (حقل C هنا): A = DLookup("[B]", "FromThisTable", "[C]= " & C) . وأحد الطرق الجداً مهمة ، هي عمل استعلام لأي شئ تريد البحث فيه او تفرزه ، ولا اعني استعلام في الكود ، وانما استعلام منفصل ، والمهم ايضا ، عندما تعمل الاستعلام ، انه بين الفترة والاخرى تستخدم "الضغط والاصلاح" ، لأنه يعيد فهرست البرنامج ، وينظم عمل الاستعلام ويجعله اسرع جعفر