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

السلام عليكم ومشاركة مع اخي رمهان ، اليك الكود الذي يقارن جداول FE مع جداول BE قاعدة البيانات التي تم اختيارها ، فاذا الجداول موجودة ، يخبرك بذلك ، ويربط الـ FE بالـ BE ، وإلا ، فسيخبرك ولن يفعل شئ: Option Compare Database Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String 'j DoCmd.Close 'j stDocName = "frm" 'j DoCmd.OpenForm stDocName, , , stLinkCriteria BackFile = GetOpenFile() If Len(BackFile & "") = 0 Then Exit Sub Dim FrontObj As AccessObject, FrontDB As Object Dim BackObj As TableDef, BackDB As Database, PW As String, PWD As String Set FrontDB = Application.CurrentData 'the Selected BE Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False, PWD) 'Start with a table to look for For Each FrontObj In FrontDB.AllTables If left(FrontObj.NAME, 4) <> "MSys" And FrontObj.NAME <> "BackDBs" Then FE = FrontObj.NAME 'look for that table in BE For Each BackObj In BackDB.TableDefs If left(BackObj.NAME, 4) <> "MSys" Then BE = BackObj.NAME If BackObj.NAME = FrontObj.NAME Then Same = 0 GoTo Found_It Else Same = 1 End If End If 'BackObj Next BackObj If Same = 1 Then GoTo Not_Same Found_It: End If 'FrontObj Next FrontObj 'All Good MsgBox "All FE tables exist in BE" Set FrontDB = Nothing Set BackDB = Nothing 'link the tables Call AutoLink Exit Sub Not_Same: 'No Good MsgBox "The FE table : " & FrontObj.NAME & vbCrLf & _ "Is Not in the BE" Set FrontDB = Nothing Set BackDB = Nothing Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub وعملت تغيير بسيط في الوحدة النمطية التي تقوم بالربط جعفر 605.test.mdb.zip

حسب فهمي لسؤالك اعمل بين جدولين علاقة واحد الى متعدد افتح استعلام مصدر نموذج فرعي في وضع تصميم Sql واضف اليه بعد كتابة select اضف top 1 وفتح في وضع تصميم عادي اكتب في خانة شرط اي واحد تريد يظهر مثلا عندك حقل تسلسلي اكتب ماكس لكي يظهر السجل الاول هذا حسب فهمي لسؤالك والله اعلم

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

وعليكم السلام هذه بعض الاشياء التي يجب النظر فيها: يجب ان يكون البرنامج مقسما الى الجداول BE (وهذا الذي تضعه في الشبكة) ، والواجهة FE وفيه بقية الكائنات (ويكون على كمبيوترات المستخدمين) ، يجب ان تكون بعض الحقول مفهرسة في الجدول ، وهذه الحقول هي التي تستخدمها كمعيار في الاستعلام مثلا ، يجب ان تتأكد من الاستعلامات بالذات معمولة بطريقة لا تبطئ البرنامج والاكسس هنا يساعدك فيخبرك اين مكان المشكلة في برنامجك يجب ان تستخدم اسلاك بسرعة 1000 مثل cat 6 ، و Switch او Router بسرعة 1000 (Giga) . جعفر

فكرة test140_up.rar

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

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

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

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

الاخ ناصر فى ملفك بداية المشروع على الرابط التالى نفس المشكلة الملف فى الاسفل صورة من الملف ياترى المشكلة فىن بدايه مشروع 6.rar

السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If

السلام عليكم ورحمة الله وبركاته اخوكم محمد عندي مشكله لدي 3 موظفين اريد اطبع تقرير به 90سجل لكن اريده ينقسم علي عدد السجلات بتساوي للموظفين بمعني يطبع 3 اوراق كل ورقه بها 30 سجل لكي اعطي كل موظف مهام شغله

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

بالضبط ، يعني مثلا الى مجلد Employee_Pictures ، والذي موجود في مجلد قاعدة البيانات الخلفية ، كما في برنامج شئون الموظفين: Me.Pic.Picture = BE_Path & "\" & "Employee_Pictures\" & Me.Full_Name & ".jpg" او كما في برنامج المخازن ، حسب السنة ، واسم المستودع ، ثم ادخال او صرف ، ثم رقم الوصل Me.Scan.Picture = BE_Path & "\" & Me.Year & "\" & Me.Store_No & "\" & In_Type & "\" & Me.Reciept_No & ".jpg" ونعرف مكان وجود قاعدة البيانات ، سواء الخلفية او اذا لم تكن مقسمة ، من هذا الرابط: جعفر

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

جرب هذا الملف (المعادلات مع Ctrl+Shift+Enter) CODE sALIM.rar

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

وعليكم السلام ما نوع العلاقة بين الجدولين ان كانت واحد لكثير اضبط خصائص النموذج الفرعي : الخصائص/بيانات/ نوع مجموع السجلات = لقطة ولكنك لن تستطيع التحرير في السجل الجديد او من الخصائص ايضا : بيانات / السماح بالاضافة =لا وهذا ايضا لن تستطيع تحرير السجل الجديد ولكني لم افهم : اتمنى ترفق مثالا بالمشكلة

السؤال هنا هل كل شرط متغير ستضيفه في القائمة؟ بمعنى male 0 - 5 لابد ينضاف للقائمة؟ تحياتي

السلام عليكم ورحمة الله تفضل تجميع الكميات الواردة والمنصرفه على اساس كود الصنف+1111.rar

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

فورم رصد لكنترول شيت الدرس رقم 40 فيديو شرح كيفية التنقل للمواد لرصدها

::: لا تهتم اخي ..... ولكن مذا تقصد بالمطلوب ؟ هناك 28 حرف عربي ؟؟!

فورم رصد الدرجات لكنترول شيت صورة الفورم الفيديو رقم 40 https://up.top4top.net/downloadf-1109sgswh1-rar.html كنترول شيت.rar

السلام عليكم ورحمة الله أخي الكريم، أبدأ في الحال في شرح المعادلة المستعملة بتدرج وأسأل الله التوفيق في ذلك واعذرني إن قصرت: المعادلة هي كما يلي (بالفرنسية): =SI($D18="";"";INDEX(SI('1'!$O$11="اللغة الفرنسية";Sexe!$M$18:$M$25;DECALER(Sexe!$J$18:$J$25;;SI($M18="ذكر";1;2)));EQUIV($H18;Sexe!$J$18:$J$25;1))) * المعادلة تسمح بإدراج الملاحظات حسب العلامات وهي تبدأ بالدالة الشرطية SI (أو IF) : إذا كانت الخلية D18 (لا توجد علامة) فارغة نتيجة المعادلة تكون لا شيء (لا ملاحظة) حسب الصف. * وإذا كانت الخلية D18 غير فارغة فإن نتيجة المعادلة هو ما تعطيه الدالة INDEX (من جدول الملاحظات الذي هو النطاق K18:M25 من ورقة Sexe) وتكون نتيجة الدالة INDEX كما يلي: نعلم أن الدالة INDEX تحتاج، في صيغتها الأولى، إلى ثلاثة وسائط : النطاق - رقم الصف - رقم العمود (بهذا الترتيب) (رقم العمود يمكن أن يلغى في حالة ما إذا النطاق من عمود واحد) وهي الحالة التي استعملناها في معادلتنا : 1- بالنسبة لـ "النطاق" (من عمود واحد) فتحدده الجزئية: SI('1'!$O$11="اللغة الفرنسية";Sexe!$M$18:$M$25;DECALER(Sexe!$J$18:$J$25;;SI($M18="ذكر";1;2))) التي هي من جزئين (شرطين): * إذا كانت المادة المعنية في الخلية O11 من ورقة "1" هي "اللغة الفرنسية" فإن "النطاق" هو M18:M25 من ورقة Sexe (وهي الملاحظات الخاصة بمادة اللغة الفرنسية). * إذا كانت المادة المعنية هي مادة غير اللغة الفرنسية فإن "النطاق" فتحدده الدالة DECALER (أو OFFSET بالإنجليزية) بإزاحة النطاق (الثابت) J18:J25 من ورقة Sexe بعمود أو عمودين حسب جنس الطالب أي: إذا كان جنس الطالب "ذكر" فتكون الإزاحة بـعمود واحد ويكون "النطاق" هو K18:K25 من ورقة Sexe (ملاحظات الذكور بالعربية) أما إذا جنس الطالب "أنثى" فتكون الإزاحة بـعمودين ويكون "النطاق" هو L18:L25 من ورقة Sexe (ملاحظات الإناث بالعربية).. 2- أما ما يخص "رقم الصف" للدالة INDEX فتحدده الدالة EQUIV (أو MATCH بالإنجليزية) بالجزئية: EQUIV($H18;Sexe!$J$18:$J$25;1) وهي تبحث عن رقم الصف للعلامة الموجودة في الخلية H18 في النطاق J18:J25 من ورقة Sexe بقيم أكبر لأجل الرقم 1 الموجود في آخر هذه الجزئية (باستعمال عملية الحصر) فمثلا إذا كانت العلامة محصورة بين 0 و 3 فهذه الجزئية تعطي الرقم 1 (الصف الأول) وهكذا... ثم تقوم الدالة INDEX بإدراج الملاحظة المناسبة لهذا الصف من "النطاق" (نطاق الدالة Index) المحدد بالأعلى... أرجو أني وفقت في الشرح... وإذا كان هناك أي استفسار آخر فتجدني إن شاء الله في الخدمة... أخوك بن علية

يجب عليك أن تجعل مصدر البحث هو الإستعلام

الاخوة الزملاء مشاركة منى للمنتدى صورة من الفورم فيديو شرح كيفية عمل الفورم لكنترول شيت الدرس رقم 39 كنترول شيت.rar

السلام عليكم ورحمة الله انسخ الكود التالى والصقه فى موديول وخصص له زر Sub TransrerData() Dim ws As Worksheet, sh As Worksheet Dim LR As Long, LS As Long Dim R As Integer, S As Integer, p As Integer, Cod As Byte, Cod2 As Byte Dim Qty As Long, Qty2 As Long Set ws = Sheets("ÇÑÔíÝ") Set sh = Sheets("ÈíÇä ÊÌãíÚì") sh.Range("B10:K100").ClearContents Application.ScreenUpdating = False LR = ws.Range("E" & Rows.Count).End(xlUp).Row For R = 10 To LR Cod = WorksheetFunction.CountIf(Range(ws.Cells(10, "E"), _ ws.Cells(R, "E")), ws.Cells(R, "E")) If Cod = 1 Then sh.Cells(R, "B") = ws.Cells(R, "E") sh.Cells(R, "C") = ws.Cells(R, "F") sh.Cells(R, "D") = ws.Cells(R, "G") sh.Cells(R, "F") = ws.Cells(R, "I") Qty = WorksheetFunction.SumIf(Range(ws.Cells(10, "E"), ws.Cells(LR, "E")), _ sh.Cells(R, "B"), Range(ws.Cells(10, "H"), ws.Cells(LR, "H"))) sh.Cells(R, "E") = Qty End If Next LS = ws.Range("M" & Rows.Count).End(xlUp).Row p = 9 For S = 10 To LS Cod2 = WorksheetFunction.CountIf(Range(ws.Cells(10, "M"), _ ws.Cells(S, "M")), ws.Cells(S, "M")) If Cod2 = 1 Then p = p + 1 sh.Cells(p, "G") = ws.Cells(S, "M") sh.Cells(p, "H") = ws.Cells(S, "N") sh.Cells(p, "I") = ws.Cells(S, "O") sh.Cells(p, "K") = ws.Cells(S, "Q") Qty2 = WorksheetFunction.SumIf(Range(ws.Cells(10, "M"), ws.Cells(LS, "M")), _ sh.Cells(p, "G"), Range(ws.Cells(10, "P"), ws.Cells(LS, "P"))) sh.Cells(p, "J") = Qty2 End If Next Application.ScreenUpdating = True End Sub

حدثت معي هذه المشكلة عند فتح قاعدة البيانات على جهاز اخرينتج عن التعبير عند الفتح الذي ادخلته كإعداد خاصية الحدث الخطأ التالي : حدثت مشكلة أثناء اتصال ( Microsoft Access ) بخادم OLE أو عنصر تحكم ActiveX.* قد لا ينتج عن هذا التعبير اسم ماكرو اسم دالة معرفة بواسطة المستخدم أو [إجراء حدث].* قد يكون هناك خطأ في تقييم الدالة, الحدث, الماكرو.علما ان نسخة الوندوز في الجهازين 10 اصلية وان الاوفيس 10 من نفس النسخةارجو المساعدة

هذه الروابط نتائج البحث عن OLE و جعفر

شكرا اخ جعفر لأهتمامك . لكن قمت بتغيير الاعدادات . ولا تزال المشكلة قائمة

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

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

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

السلام عليكم ورحمة الله وبركاته أخى العزيز جرب المرفق ... الرقم السرى 1111 تحياتى سيريال الهارد.rar

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

شيء حلو استاذ Sandanet لكن بدون هذا نكدر نعمل بواسطة تغير بسيط في الكود وذاك الكود بيعمل معك اي اذا بيكون في اي سنة راح يستخدم ذاك السنة تحياتي لك

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

معلش يا استاذى الحبيب انا اسف على الازعاج انا جربت هل ممكن يتم العكس فى الحقل C يعنى العدد 1 يكون بدلا منه العدد 0 والعدد 0 يكون بدلا منه العدد 1

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

السلام عليكم بسبب استخدامنا لوحدات نمطية ، ودالة DFirst ، فهذه تأخذ مجهود من البرنامج ، فعليه ، يتأخر عمل الاستعلام!! انا هنا وضعت جميع المشاركات في برنامج واحد ، وجعلت في الجدول 129,600 سجل ، لنعرف الفرق في السرعة بين المشاركات: . وأحد النتائج: . جرب وشوف الوقت بجزء من الثانية (نعم اجزاء الثانية تعتبر تأخير بالنسبة لي ) مع ملاحظة انك لن تحصل على نفس الوقت للإستعلام ، وذلك يعتمد على مدى انشغال الكمبيوتر بأوامر الوندوز والتي يعطيها الكمبيوتر الاولوية لذلك ، خذ معدل 3-4 مرات لكل استعلام وفي النهاية ستعرف ان اختيار الاستعلام له اسباب اخرى ايضا غير : . جعفر 256.2.Database3.accdb.zip

اخي الكريم monm ارجو شرط الطريقه وشكرا

اليك اخى الفاضل ما طلبت وكان الخطأ فى التقرير عندك واليك المرفق بتاعك بعد إذن اساتذتى مما تعلمت منهم SumPage_and Report.rar

الاخ العزيز البرنامج + الشرح معلش الشرح مستعجل لان الوقت متأخر كلمة السر 123 مجدى يونس صندوق لجدول الضرب.rar طلب بسيط لفورم يفتح صفحة الأكسل بكلمة مرور.rar

كود قائمة منسدلة متغيرة ، تصفية حسب الاحرف الاولى DataValSelectNameFilter.rar

طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله التحقق من الصحه بربط كومبكس في حدث الصفحه اليكم الكود يشرح نفسه ومرفق مثال Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets("æÑÞÉ1") Cancel = True Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .ListFillRange = "" .LinkedCell = "" .Visible = False End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate End If errHandler: Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End Sub abood.rar

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar

الكود الذي طرحه اخونا يوسف عطا كود صندوق حوار يظهر عند فتح الملف كود صندوق حوار يظهر عند فتح الملف.rar

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