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

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

اضافه الى الابداع في الاجابه ابداع في الاخلاق والاسلوب الرائع في الحوار فعلا مدرسة اوفسينا ليست مدرسة معادلات فقط بل مدرسة داخل اسرة متحااااااااااابه

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. لاحظت أن كل فترة يتم السؤال عن هذا الأمر .. هذا الموضوع يخص الأرقام القومية في مصر ، وقد تم تناول الموضوع أكثر من مرة .. واطلعت على أكثر من موضوع بهذا الشأن ، فما وجدت أفضل ولا أيسر ولا أخف من دالة الأستاذ الكبير / عبد الله باقشير ، دالة يسيرة وسهلة ، ويمكنك ببساطة استخراج كل المعلومات والبيانات التي تريدها من خلال هذه الدالة .. الشكر الكبير موصول للأستاذ الكبير والعالم الجليل عبد الله باقشير .. نرجو من الله أن يحفظه من كل سوء .. الدالة في محرر الأكواد بهذا الشكل : (للدخول على محرر الأكواد اضغط من لوحة المفاتيح Alt + F11) Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "أنثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function كل ما أضفته في الكود هو أكواد باقي المحافظات ، ليكتمل العمل ويستفيد منه الجميع بإذن الله أترككم مع الملف المرفق ، لتتعلموا منه طريقة استخراج البيانات.... دمتم في طاعة الله و السلام هو مسك الختام ID Information.rar

اخواني في المنتدى /بعد السلام اقدم لكم نوعاُ جديداً من البحث عن اي قيمة في اي عامود(من اختيارك) و ما يقابلها في عامود اخر (بردو من اختيارك) ما يشبه الدالة Vlookup new vlookup.rar

أخي ياسر الحمدلله انه نال اعجابك

تم العمل على نفس الملف بواسطة الكود الشرح موجود داخل اكود النتيجة تظهر في صفحتي raseb /nageh شيت salim 1.rar

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

يالك من راائع استاذ ياسر ( جهد راائع ) في وسط كل ضغوط الحياة فعلينا جميعاً ان نرفع لك القبعة

رائعة جدا بارك الله فيك أستاذنا الكبير

شاهد اخي الحبيب .. الرابط التالي ( من سلسلة خطوة خطوة ) طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل وحذف !! خطوة خطوة وفيه شرح للأكواد المستخدمة سطر سطر بالتفصيل ان شاء الله يفي بطلبك تقبل خالص تحياتي

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

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

اعمال رائعة لاشخاص رائعون بارك الله فيكم

يعلم الله انى لا اقوم بغلق المنتدى الا فى اوقات تواجدى بالعمل فقط فمن وقت استيقاظى قبل صلاة الفجر لحين ذهابى الى عملى ومنذ عودتى حتى نومى لا اغلق المنتدى ابدا وفعلا نعم الاخوة ويمكنك ان تنادينى (ابو ملك) كما ناديتنى فى اول موضوع ^^

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

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

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

بارك الله فيك و جزاك الله خيرًا أستاذي الفاضل ياسر ; زادها في ميزان حسناتك.. ..الكود يعمل تمام التمام و الدوائر الحمراء تظهر في النطاق المطلوب و الخلايا المطلوبة ..

ان شاء الله باصداراتها التالية والمحسنة جعفر

أخي العزيز /goodlife هذا حل بالكود حسب طلبك عن طريق التصفية المتقدمة حيث يقوم الكود بعمليتين الأولى عمل قائمة بالرقم الوظيفية بدون تكرار الثانية هي استدعاء البيانات حسب الرقم الوظيفي وتم عمل كود في حدث الورقة الثانية بحيث أي تغير في الخلية (C7) يتم استدعاء البيانات إن شاء الله يلبي هذا طلبك مع تقديري واحترامي للأستاذين / سليم حصبا وأبو إيمان رفع الله قدرهما والعفو Book1 salim.rar

اخى / ياسر بارك الله فيك مفرقعاتك قمه فى المعرفه تحياتى يا نوبل

?????? أين الملف

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

أخي العزيز/ amensrd وتقديري وإحترامي للأخ الأستاذ/ أبو إيمان حفظه الله هذا ملف قد أعددته أحببت أن أشارك لإثراء الموضوع أتمنى أن يحقق المطلوب حيث قمت أيضاً بعمل قوائم منسدلة لاختيار الشهر واختيار الأسماء والعفو تحياتي وتقديري Test2_2.rar

جميل و رائع

اخى ياسر برنس والله اعمال يفتخر بها الجميع تقبل تحياتى

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

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

جزاكم الله خيرا أستاذنا ياسر

جزاكم الله خيرا جميع من هنا تأتي الابداعات

تم رفع الخماية لكتابة المحافظة الياً يجب ان اعرف كود المحافظة من الرقم القومي (عشان انا مش مصري) tarhil names SALIM 1.rar

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

Public Function fn(fld) 'رمهان 'اوفيسنا y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ" For i = 1 To Len(fld) If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1) Next i fn = xx End Function اخي الكريم تفضل ومشاركة مع الأستاذ جعفر حذف التشكيل الآن وبعدين نشوف موضوع الفلترة! الحقيقة فكرة جاءت وما كنت أتوقع نجاحها ! ولكن مع الله سبحانه يسهل كل شي ! الان تم حل مشكلة التشكيل ! ولا اعلم هل هناك حل مر على احد خبراؤنا في حذف التشكيل ! او ثبت استاذنا الجليل أبا خليل !! الفكرة او الخوارزمية هي عبارة عن سرد الاحرف المقبولة في سلسلة نصية وما غير ذلك لن يتم اعتماده . طبعا كل ما اردت حرف مقبول اضفه للسلسلة كان تريد علامات الاستفهام او النقاط . بالتوفيق الرسائل.rar

تمت الاضافة استاذ ياسر ، واصبح ولا اروع

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

الاستاذ شوقي ربيع دائما نتعلم من عبقريه اعمالك فلك كل الحب والاحترام والتقدير استاذي العزيز

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

بسم الله ما شاء الله عليك رائع ..بارك الله فيك وجعله في ميزان حسناتك تسلم يا كبير ومتحرمناش من وجودك

لعله المطلوب Book1 salim.rar

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

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

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

الدرس الثالث - اكسيس 2010 (كيفية إضافة جدول جديد في الاكسيس باستخدام Design View)

الدرس الثاني- اكسيس 2010 (كيفية إضافة جدول جديد في الاكسيس) باستخدام Data Sheet View

شرح الأكسس 2010 مايكروسوفت اوفيس اكسس الجزء (2)

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

بسم الله ما شاء الله اخي حامل المسك انت حامل المسكين مسك الافكار و مسك الإبداع ما الفائدة من الحقل nz([book].[namebook];"**"] و احببت ان الفت نظرك الى الحقل namebook في النموذج لماذا لم تقفله منعا لاي تعديل !! ووفقك الله الى ما يحبه و يرضاه

أخي / أبو أحمد جزاك الله خير ، ونفع بك الاسلام والمسلمين جهد تشكر عليه ، في ميزان حسناتك إن شاء الله :)