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

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

الان وصلت الفكرة اليك حل افضل بكثير من طريقتك عملت لك هذه الاستعلا الالحاق INSERT INTO Transactions ( Doc, Code, Item, Out, Notes ) SELECT [Forms]![Trans_top10]![Transaction subform].[Form]![Invoice] AS Doc, Order_Sub.Code, Order_Sub.Item, [Forms]![Trans_top10]![Transaction subform].[Form]![Out] AS Out, Order_Sub.Notes FROM Order_Sub WHERE (((Order_Sub.ID)=[Forms]![Trans_top10]![Combo0])); وفي خلف زر استخدمت هذا الكود Private Sub Command95_Click() Me.Transaction_subform.SetFocus DoCmd.SetWarnings False DoCmd.OpenQuery "q1", acViewNormal DoCmd.SetWarnings True End Sub اليك ملفك بعد تعديل Pro.rar

تريد لأي نموذج هذه العملية اخي ؟ وتريد ان يشتغل اي كود لكل سجلات ؟

تستطيع من خصائص النموذج منع التحرير او انك بحاجة الى نموذج بحث غير منضم ، انظر الى المثال المرفق وابحث فيه عن الارقام 1 ، 2 ... قد يروق لك الكود المسؤول عن جلب القيم Copy2.rar

اتفضل اليك هذا الكود Private Sub Command0_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllForms If obj.IsLoaded = True And obj.Name <> Me.Name Then DoCmd.Close acForm, obj.Name, acSaveYes End If Next obj End Sub واليك ملفك بعد تعديل CloseForm.rar

الحرف t يرمز لورقة العمل الهدف (الكشوف النهائية) بداية النطاق سيكون من الخلية B14 بامتداد 6 صفوف و 4 أعمدة (حير النطاق المطلوب وضع النتائج فيه) يساوي الحرف s يشير لورقة العمل التي تحتوي البيانات (تسجيل البيانات) وبداية النطاق هو الصف المشار إليه في المتغير r وهو متغير أي أنه يختلف بحسب الأسطر السابقة (في العمود الأول) ، وبنفس حيز النطاق للنتائج

بعد إذن اخي الحبيب ياسر ابو البراء جرب هذا الملف حيث يمكنك تحديد عدد الصفوف المطلوبة في كل مجموعة Sum By Choosen_rows.rar

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته تكملة لطلب سابق في الموضوع على الرابط الرابط التالي ولكي يتم الاستفادة منه بشكل افضل مرفق الملف كامل مع عمل جميع الملاحظات التي كانت عليه ارجو ان يكون ذات فائدة فاتورة جديد1.rar

الیک ھذا الكود Private Sub ملاحظات_GotFocus() Me.ملاحظات.KeyboardLanguage = 3 End Sub غير ( ملاحظات ) باسم مربع نصي عندك

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

هنيئا لكم أستاذ ياسر خليل هذه الشهادات التي صدقت وصادفت أهلها

أخي الكريم يرجى عدم أخذ الاقتباسات الطويلة في الردود .. بالنسبة للكود يقوم بمثل ما تفضلت به تماماً ولكن يبدأ من العمود الثاني لذا في الكود غير في هذا السطر الرقم 1 إلى 2 وفقط For cl = 1 To 38 بالنسبة للكود ووضع الكود داخل الملف .. برجاء مشاهدة الفيديو التالي

اخي القي نظرتا الى هذه المقطع الفيديو انها تعمل بشكل صحيح وانا اضفت كود للحقل ادارة و قطاع لكي عند اكتيف الحقل يظهر القائمة واي وقت اذا تريد ان يظهر القائمة فقط عليك ان تضغط على سهم ولكن اذا تقول عند ضغط على زر F4 بیژھر القائمە ما رأيت ھناک اي كود في النموذج بيعمل ذلك عند محل الميلاد واذا تريد راح نعطيك الكود عند الضغط .. لكن افكر انت لا تحتاج ذلك اليك الفيديو Video_2017-08-15_201611.rar

هو المطلوب بارك الله فيك اخي واستاذي أبو محمد زادك الله علما وفقك بكل اعمالك شكرا اليك تحياتي اليك يالغالي

اتفضل جرب الان الشقق.rar

جرب التعديل التالي رغم أن التوضيح لم يكن بما فيه الكفاية حيث لم تضرب أمثلة للنتائج المطلوبة .. للتأكد من صحة الأكواد ليس أكثر Sub SUM_Each_Fifty_Cells() Dim ws As Worksheet Dim sh As Worksheet Dim cl As Long Dim ct As Long Dim nr As Long Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") For cl = 1 To 38 nr = 6 For ct = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 50 nr = nr + 1 sh.Cells(nr, cl).Value = Application.WorksheetFunction.Sum(ws.Cells(ct, cl).Resize(50)) Next ct Next cl MsgBox "Done...", 64 End Sub

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

اتفضل البحث بدون تشكيل-2.rar

اتفضل انا فقط غيرت مصدر التقرير ومصدر مربع نصي للايات و الحديث اليك المرفق بعد تعديل البحث بدون تشكيل-2.rar

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

:: لا أعلم ... هل هذا ما تريد ؟ mohamed13.rar

هنا في المنتدى سنكون معاً ان شاء الله

:: شكرا اخي العزيز شفان ... لا اعلم ماذا افعل بعد انفصال اقليم كردستان ؟!

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

بات المطلوب غير واضح في المرفق الجديد .. ضع بعض النتائج المتوقعة وضع بيانات بما فيه الكفاية لتجربة الأكواد والتأكد من صحتها وحدد بالضبط الخلايا والنطاقات المطلوب العمل عليها

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

المرفق لايمكن تنزيله حاول رفعه مرة اخرى ، ولا تنسى نسخة mdb

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

اكرمك الله ورفع قدركم ....نظرا لعدم تمكني من شرح الفكرة ارفق لكم الملف الذي اعمل عليه وهو نفس الفكرة ولكن على على خلايا عديدة Book55.zip مع جزيل الشكر للاستاذين الكريمين القديرين الاستاذ ياسر والاستاذ سليم ...فلا كلمات توفيكما حقكما

اخي ياسر زيادة في الازعاج و زيادة في اثراء الموضوع نفس الملف لكن بالمعادلات انظر الى الورقة By_formula من فضلك عسى ان ينال الاعجاب Sum By Choosen_rows By_fromula.rar

مصطفى شاهين شكرا على اهتمامك ووقتك الثمين

الیک ھذا الحل =IIf([id]>0;Nz(DSum("[المبلغ1]";"qry1";"[id]<=" & [id]);0);"") واليك قاعدتك بعد تعديل كشف حسابات العملاء.rar

الحمدلله رب العالمين توصلت لحل وهو اضافه حقل بالجدول عشان ينقل اليه وقت المغادره ونجحت تجربتي يلغي الموضوع

السلام عليكم : ما شاء الله اللهم بارك.

كان الله في عونك أخي العزيز .. وأقولك : ازعج كما تشاء فنحن سنكون في انتظار إزعاجك على الدوااااااااااااام .. فإزعاجك يسعدنا

وربي عمله فوق الراقي والرائع ربي يحفظة ويبارك فيه

السلام عليكم : برنامج فوق الرائع ولاكني موظف في دائرة في ادارة الدائرة هل بالامكان تحويلة الى شؤون الموظفين مع الشكر والتقدير .

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

بارك الله فيك أخي الكريم وجزيت خيراً بمثل ما دعوت لي المشكلة ليست في إرفاق الملف من قبلي بل المشكلة من قبلك حيث لا أدري بالضبط المقصود من موضوعك لذا فالأفضل إرفاق ملف .. بالنسبة للكود الذي أرفقته ... يفترض وجود ورقتي عمل Sheet1 و Sheet2 ... وفي ورقة العمل Sheet1 في العمود الأول ضع أرقام بشكل عشوائي في النطاق A1:A23 مثلاً ثم ضع الكود في موديول عادي ونفذ الكود وستجد النتائج بورقة العمل الثانية Sheet2

كود مهم جدا ولا يمكن الاستغناء عنه تحديد ارقام الخطأ لرسائل الاكسس فيمكن تعطيلها او ترجمتها Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub

حسب فهمي لسؤالك ... هذا هو الجواب فی خصائص النموذج غير خاصية Key Preview من no الى Yes او اكتب هذا الكود عند فتح النموذج Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub

تفضل انقر F2 ولاحظ يجب ان يكون التركيز واقع على النموذج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF2 Then DoCmd.OpenForm "A1", acNormal End If End Sub db.rar

السلام عليكم جرب أخى هذا الكود يقوم بالترحيل مع انشاء الصفحات مع نسخ التنسيقات لعله يكون كما يريد Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "البيانات" Then sh.Range("A1:J1000").ClearContents End If Next LR1 = Cells(Rows.Count, 6).End(xlUp).Row LR2 = Cells(Rows.Count, 8).End(xlUp).Row Set Rng1 = Range("F2:F" & LR1) Set Rng2 = Range("H2:H" & LR2) Set Rng = Union(Rng1, Rng2) For Each cl In Rng x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("البيانات").Range("A1:J1").Copy Sheets(x).Range("A1").PasteSpecial xlPasteValues Sheets(x).Range("A1").PasteSpecial xlPasteFormats Sheets("البيانات").Cells(cl.Row, 1).Resize(1, 10).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("البيانات").Select Application.ScreenUpdating = False End Sub 2متابعة .rar

بسم الله الرحمن الرجيم كل عام وانتم بخير وبركة ويمن تفضل اخى الفورم لعله يفى بالغرض واخبرنا بالنتيجة كلمة السر هى 55555 فورم ELFAR.rar

أخى العزيز / يوسف باشا عطا الطريقة سهلة جدا أنظر لملف الفلاش فيه ما تريد الملف هنا لاتنسى إنتظار التحميل ثوانى وتحويل العرض إلى full screen من قائمة view لمشاهدة كل قوائم الشرح