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

العمود expr1 تم فيه ضم جميع حقول النتائج وهو بيت القصيد وفي الكود اشترطنا تكون القيمة اكبر من 3 حروف حتى نضمن وجود قيمة حقيقية فيما لو كانت القيمة صفر مثلا وطبعا هي افضل من ان يكون الشرط عدم وجود : Null نأتي الى الكود البرمجي وهو كما ذكرت ثلاث خيارات : IIf([Status_code]=1 And [code_kind_edu]<>4 And Len([Expr1])>=3;"راسب وله حق الاعادة" اذا الحالة =1 والنوع لا يساوي 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وله حق الاعادة IIf([Status_code]=2 And Len([Expr1])>=3;"راسب وليس له حق الاعادة" اذا الحالة =2 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وليس له حق الاعادة IIf([Status_code]=1 And [code_kind_edu]=4 And Len([Expr1])>=3;"راسب" اذا الحالة =1 والنوع = 4 و حقل اكسبر فيه قيمة اكبر من 3 حروف فالنتيجة= راسب وان لم تتحقق هذه الشروط فهو ناجح دور ثاني بقي شيء لم اذكره وهو ان عمود Expr1 تم اخفاؤه ، ومع ذلك فهو ظاهر في التصميم لاظهاره افتح الاستعلام على العرض وبزر الفأرة الايمن انقر على الاطار العلوي للاستعلام ثم اختر اظهار اعمدة

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

السلام عليكم أخواني الكرام بدأنا بعون الله وكرمه بتصميم برنامج مخازن في المنتدى حسب التصويت الذي قمنا به سابقا وبدأت بالخطوة الاولى وهي تحليل قاعدة البينانات و سأضع في المرفقات التحليل في ملف أكسل أوضح فيه بنية قاعدة البيانات (الجداول) بحيث ستكون قاعدة البيانات سنوية يتم انشاء قاعدة بيانات جديدة كل سنة يقوم البرنامج بانشاء القاعدة الجديدة والاتصال بها مع الحفاظ على قاعدة السنة الفائتة تحليل برنامج المخازن.rar النسخة الأخيرة المضافة فى المشاركات بتاريخ 4 مايو 2019 access.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

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

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي عله يفي بالغرض إن شاء الله Sub TransferBankDetails() 'YasserKhalil *** 06-06-2017 '--------------------------- Dim ws As Worksheet Dim sh As Worksheet Dim fn As Variant Dim lr As Long Application.ScreenUpdating = False Set sh = ThisWorkbook.Sheets("الشيكات المنصرفة") For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 5) = "البنك" Then fn = Application.Match("شيكات " & ws.Name, sh.Rows(1), 0) If Not IsError(fn) Then lr = sh.Cells(Rows.Count, fn).End(xlUp).Row + 1 sh.Cells(lr, fn).Value = ws.Range("B2").Value sh.Cells(lr, fn + 1).Value = ws.Range("D7").Value sh.Cells(lr, fn + 2).Value = ws.Range("A8").Value sh.Cells(lr, fn + 4).Value = ws.Range("F10").Value End If End If Next ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

لا يمكن ان اكتفي بالضغط على اعجبني بل وجب الرد العفو استاذى الحبيب - والله انك قدوتى بهذا العمل - ودائماً ما اقوم بدراسه حلول حضرتك - ودائما ما تمثل لى اضافة كبيره جداً جزاك الله عنا كل خير - كل عام وحضرتك بخير - رمضان كريم

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

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

وعليكم السلام أخي الغالي خالد .. حلك أبسط وأجمل وأيسر .. بارك الله فيك وجزاك الله خيراً

اذا كنت ما فهمته صحيحاً جرب هذا الملف كنموذج (الكود ينفذ على العمود الثالث فقط) للتجربة Formula_value.rar

تسلم - هكذا افضل جزيت خيرا

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

بعد إذن الأساتذة جميعا وطبعا الاستاذ طارق صاحب الموضوع قد وقع نظري على الأسطر الخمس الأخيرة والحمد لله فهمتها على ما أظن وسويت لك نموذج تختار من خلاله المسميات بالجدول NoufousTable ثم تفتح تقرير يستند على المعايير التي ذكرتها من جدول اسمه 1 وأرجو أن تلتمس لي العذر اذا لم أستطع فهم المطلوب كما ينبغي بريد الدوار24.rar

اولا تأكد من كود زر الاغلاق النموذج هناك احتمال ان تستخدم كود اغلاق النموذج بدل اغلاق القاعدة

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

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

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

بعد ادن الاستاد / محمد النجار جزاه الله خيرا وممكن بحل اخر كما في المرفق بدون استعلام تحديث Mydata3.rar

strUpSQL = "UPDATE Products SET Products.TotalPrice = Nz([Qty]*[Price]) WHERE (((Products.HeaderId)='" & [Forms]![FatoraSearch]![Text1] & "'));" هنا كان خطأي اخي الكريم والحمد لله تم الحل... شكرا لكم

وعليكم السلام نسيت أن أذكر لك أن هذا من عيوب تحريك النص حيث أن ذلك يعيق التعامل مع الملف بشكل كبير .. لذا يوجد في الكود سطر أنه إذا كان التحديد لأي خلية أخرى لا يتم تفعيل الكود إنما يتم تفعيله بعد اختيار الخلية المحددة ولإيقاف الكود يجب الدخول لمحرر الأكواد وجرب تعديل السطر بالشكل التالي If Target.Address <> "$C$12:$K$12" Then End: Exit Sub

أعتذر للتأخير عليكم فى الرد انا اضفت الى الجدول حقل جديد to_coloer Yes/No فتح التقرير فى وضع التصميم

اولا الصورة التالية ستحل 90% من الاشكال اللي عندك

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

استأذن من الجماعة اليك هذه الطريقة لعل يفيدك استخدمت هذه الاكواد Dim Sewani As Integer Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() Sewani = Sewani + 1 Me.Text2 = Sewani If Sewani >= 15 Then DoCmd.Close acForm, Me.Name End If End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub FormFooter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Sewani = 0 End Sub اغلاق نموذج بعد 15 ثواني.rar

ابشر ولكني الان بعيد واكتب من الجوال في الغد ان شاء الله ستجد شرح دقيق ووافي

لو عاوز تدرج ملفات فلاش فيمكنك استخدام العنصر Shockwave Flash Object Shockwave Flash Object.rar

الأساتذة @elkareee & @Amr Ashraf والله كلامك وسام شرف وأنا مازلت في بداية الطريق وأتمنى أكون عند حسن الظن بس مترجعوش في كلامكم بعد كده هههههه أستاذ محمد جرب التعديل بكود بناء الاستعلام المؤقت ستجد سطر مستقل يعبر عن اختيار صنف محدد من النموذج تجنباً لاستدعاء الخمسين ألف سجل طبعا يمكن التعديل في أي وقت لأي أصناف وتم تغيير جزء بسيط من الكود حتى نتجنب أخطاء قد تحدث وجرب القيمة لحركة الصرف ''''''''''''''''''''''''''''''''' Building Quary ''''''''''' If Nz(Forms![Trans_top]![Transaction subform]![Code], 0) = 0 Then GoTo en2 Else: strSQL = "SELECT Transactions.ID, Transactions.Item, Trans_top.zdate, Transactions.Out, Transactions.[In], Transactions.Zvalue, Transactions.Code FROM Transactions INNER JOIN Trans_top ON Transactions.Doc = Trans_top.Doc " '''''''''' Choosing Item : strSQL = strSQL + "WHERE Code = '" & [Forms]![Trans_top]![Transaction subform]![Code] & "' " strSQL = strSQL + "GROUP BY Transactions.ID, Transactions.Item, Trans_top.zdate, Transactions.Out, Transactions.[In], Transactions.Zvalue, Transactions.Code ORDER BY Transactions.Item, Trans_top.zdate;" تقييم 5.rar

السلام عليكم إليك طلبك في الملف التالي أخي الكريم من هنا

عزيزي هناك دالة getimagefolder يمكنك استخدامها ولكن حيث انني لا استطيع التجربة على مثالك حيث الحاجة لتسجيل الاداة ويمكن تجربة الكود التالي بديلا لما تفضل به اخي اوس وهو مشتق من حله مشكورا Kill currentproject.path & "\images\" & EmpPIC.Value بالتوفيق

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

جزاك الله خيرا استاذ عماد

الاخ الدهشورى اهلا بك انا كنت مسافر وموضوعك موجود الشرح بالمنتدى على الرابط التالى شفت الملف موجود على المنتدى او جوجل