Mr_Man قام بنشر أبريل 10, 2008 قام بنشر أبريل 10, 2008 السلام عليكم ورحمة الله وبركاته يا اخواني الاعزاء انقل لك معاناتي مع الاكسس انا صارلي فترة احاول اتعلم الاكسس قريت كتب كثيره ومواضيع كثيره وفهمت اغلب خصائص البرنامج واعرف اسوي جداول واستعلامات وتقارير وتعلمت على الماكرو وكيف انفذ فيها اوامر معينة لكن مشكلتي ماني عارف كيف اجمع معلوماتي واربط كل المعلومات مع بعض حتى اسوي برنامج معين مثلا برنامج للصادر والوارد او اي برنامج بسيط على الاكسس معلوماتي ماني عارف كيف استغلها لعمل برنامج اضرب لكم مثال مثلا ابسوي برنامج صادر ووارد ابي عند فتح البرنامج تظهر شاشة فيها ازرار : 1- تسجيل الوارد 2-تسجيل الصادر 3- بحث عن معاملة وعند اختيار احدها يتم الدخول للفورم الخاص احتاج احد يشرحلي خطوات كمثال وله دعوه مني والله بظهر الغيب لاني تعبت جدا وكل موضوع يشتتني عندي معلومات لكن عندما اريد العمل اجد نفسي مكتف اليدين الله يجزاكم الجنة ويجزاء من يقدم معلومة تساعدني على البداية والعلم صدقة جارية باذن الله وفقكم الله 1
Bluemind قام بنشر أبريل 10, 2008 قام بنشر أبريل 10, 2008 اضرب لكم مثالمثلا ابسوي برنامج صادر ووارد ابي عند فتح البرنامج تظهر شاشة فيها ازرار : 1- تسجيل الوارد 2-تسجيل الصادر 3- بحث عن معاملة وعند اختيار احدها يتم الدخول للفورم الخاص اخوي انت بديت باخر خطوه في البرنامج وهي عمل النموذج الرئيسي او لوحه التبديل. اولا اعمل جدول للصادر وجدول للوارد. طبعا جدول الصادر يحتوي -على سبيل المثال- الحقول التاليه: رقم الرساله --> رقم-->long integer --> مفتاح اساسي عنوان الرساله --> نص-->100 تاريخ الرساله --> تاريخ/وقت--> General Date المرسل --> نص --> 20 المرسل له --> نص --> 20 ثم تعمل جدول الوارد وتعمل الحقول كما في الجدول السابق ثانيا عمل النماذج قم بالذهاب الى النماذج ثم قم بالضغط على جديدNew ثم اختر عمل النموذج باستخدام المعالج ثم اختر جدول الصادر ثم التالي ثم قم باضافه جميع الحقول من الجهه اليسر وضعها بالجهه اليمنى بستخدام زر << ثم التالي واختر تصمميم النموذج(خليه على اول واحد) ثم التالي واختر شكل النموذج ثم التالي ثم سمي الجدول " الصادر" ثم انهاء بعد ذالك سوف يظهر لك النموذج قم بعرض تصمميم هذا النموذج ثم من خصائصه ثماذهب الى"البيانات" و اجعل "ادخال بيانات" او Data entry الى "لا" او No بعد ذالك قم بحفظ النموذج ثم قم بتصميم نموذج الوارد بنفس خطوات الصادر اذا قمت بعمل هذه النماذج ، ارجوا التاكيد لستكمال الخطوات التاليه. 2
Mr_Man قام بنشر أبريل 10, 2008 الكاتب قام بنشر أبريل 10, 2008 اولا الله يوفقك في الدنيا والاخرة ويحقق لك كل ماتتمناه على مبادرتك في مساعدتي وانا سويت كل اللي قلت عليه عملت جدول للصادر وجدول للوارد ونموذج للصادر والوارد وعملت نموذج تقرير ماعملته في المرفقات اذا تحب تطلع عليه واكرر شكري ودعائي لك في هذه الليلة المباركة test.rar
Bluemind قام بنشر أبريل 12, 2008 قام بنشر أبريل 12, 2008 حياك الله اخوي وجزاك الله خير على هذي الدعوه . اخوي انا شفت عملك و هوه ممتاز وتسير بالاتجاه الصحيح. اليوم رايح نعمل عمليه البحث ورايح اقسمها الى جزئينز الجزء الاول : - نقوم بنسخ نموذج الصادر ولصقه(عمليه عاديه نسخ ولصق من النماذج) ونجعل اسمه"بحث الصادر" وكذالك لنموذج الوارد ونسميه "بحث الوارد" - نقوم بعمل استعلامين : ---> الاول نسميه"بحث في الصادر" و الثاني "بحث في الوارد". ---> في استعلام الصادر نجعل جدول الصادر هو مصدر البيانات لهذا الاستعلام(طبعا نضيف جميع الحقول في الجدول في الاستعلام) ---> في استعلام الوارد نجعل حدول الوارد هو مصدر البيانات لهذا الاستعلام(طبعا نضيف جميع الحقول في الجدول في الاستعلام) - بعدين نقوم بجعل الاستعلام الاول هو مصدر بيانات نموذج "بحث الصادر" وكذالك نقوم بجعل الاستعلام الثاني هو مصدر بيانات نموذج"بحث الوارد" - نقوم الان بانشاء نموذج ونسميه بحث --> هذا النموذج نعمل فيه ثلاثه اشياء وهي: 1- قائمه منسدله"Combo box" (نسميه "combo2")--- مصدر بياناته هي: "صادر";"وارد" طبعا تنسخ كما هي ولصق في مصدر الصف او Row Source 2- مربع نص --> يكون غير معتمد على اي مصدر او Unbound(نسميه Text0) 3 -زر امر - الان نرجع الى الاستعلام "بحث في الصادر" ونضع تحت حقل "رقم الصادر" وتحديدا في Criteria او الفرز التعبير التالي: [Forms]![بحث]![Text0] - ثم نعود الى الاستعلام "بحث في الوارد" ونضع في حقل "رقم الوارد" وتحديدا في Criteria او الفرز التعبير التالي: [Forms]![بحث]![Text0] ثم نحفظ جميع الاستعلامات و النماذج و ان شاء الله نكمل الجزء الثاني المره الجايه لانها اهم جزء في البحث ويتكون من كود فيجول بيسك. ملاحظه : ارجوا عمل الخطوات السابقه وارفاقها. 1
Mr_Man قام بنشر أبريل 13, 2008 الكاتب قام بنشر أبريل 13, 2008 الله يجازيك الجنة اخي الغالي الشكر لامثالك قليل ولانملك الا الدعاء لك ولامثالك اخوي انا عملت كل ماتفضلت به وبودي ان اوضح اشياء - نقوم بنسخ نموذج الصادر ولصقه(عمليه عاديه نسخ ولصق من النماذج) ونجعل اسمه"بحث الصادر" وكذالك لنموذج الوارد ونسميه "بحث الوارد" نسختها ولصقتها في نفس المكان مع تغيير اسماءها 1- قائمه منسدله"Combo box" (نسميه "combo2")--- مصدر بياناته هي: "صادر";"وارد" كومبو بوكس اللي هو مربع تحرير وسرد؟ ( لان الاكسس عندي بقوايم عربية) انا عملت مربع تحرير وسرد مصدر البيانات كتبته مثل ماتفضلت "صادر";"وارد" بس انا الجداول عندي اسماءها الصادر والوارد ياليت تتكرم وتقولي ليش اخترتها كذا لاني والله احب افهم كل شي تحملني وكذلك التسمية كومبو2 هل تفرق لو سميناه باسم ثاني 3 -زر امر زر الامر لم توضح الامر الذي يقوم به وانا سويت زر امر بدون ان احدد شي الان نرجع الى الاستعلام "بحث في الصادر" ونضع تحت حقل "رقم الصادر" وتحديدا في Criteria او الفرز التعبير التالي: الاكسس عندي عربي وفي خانة الفرز لايقبل اي اضافة وانا اضفتها في خانة المعايير وكذلك في الاستعلام "بحث في الوارد" واتمنى ان تكون خطواتي صحيحة والعمل موجود في المرفقات واسأل الله ان يجزيك بكل حرف كتبته لمساعدة اخوانك تقبل اصدق واحر تحياتي ملاحظة في المنتدى : كل ما احمل ملف مضغوط من اي مشاركة مايفتح بالون رار ويعطيني خطأ في الارشيف مدري هل المشكلة من جهازي او من المنتدى ؟ test.rar 1
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 نسختها ولصقتها في نفس المكان مع تغيير اسماءها اي اكيد اخوي اكسس ما يسمحلك بالصق الى بتعديل الاسم وفائده النسخ واللصق هي توفير الوقت كومبو بوكس اللي هو مربع تحرير وسرد؟ ( لان الاكسس عندي بقوايم عربية) انا عملت مربع تحرير وسرد كلامك صحيح ، انا الغلطان المفروض اشرحها بالعربي بس التعبير في بعض الاحيان يخوني و انا متعود على القوائم الانجليزيه. مصدر البيانات كتبته مثل ماتفضلت "صادر";"وارد" انا شفت مثالك المرفق بس مو كذا انا ممكن اني غلطت وقلتلك مصدر البيانات، وهو اصلا اسمه مصدر الصف. هذا سلمك الله تحصله من خصائص "مربع التحرير و السرد"--> بيانات--> مصدر الصف تنسخ "صادر";"وارد" وتسويل لها لصق وعند تشغيل النموذج رايح تحصلها فوق بعض اي قائمه منسدله بس انا الجداول عندي اسماءها الصادر والواردياليت تتكرم وتقولي ليش اخترتها كذا لاني والله احب افهم كل شي تحملني هذي الجداول مالها دخل في الموضوع المقصد من "صادر";"وارد" هي القيم التي يحتوي عليها مربع التحرير و السرد فاعند تشغيل النموذج و بغيت تسوي بحث في جدول الصادر مثلا ، فانك تختار كلمه "صادر "من مربع التحرير و كذالك وارد و الغرض منها هو فتح نموذج "بحث الصادر" الي نسخناه ولصقناه من شوي. و في حاله وارد فان اكسس يقوم بفتح نموذج "بحث الوارد"(طبعا انت استعجلت شوي في السؤال عنها لان هناك كود فيجول بيسك سوف اشرحه تحت) وكذلك التسمية كومبو2 هل تفرق لو سميناه باسم ثاني اخوي هذي ما تفرق سميه اي اسم تبغى بس انت رايح تشير اليه في كود الفيجول بيسك كما في الشرح بالسفل، وانا احب تسميه الادوات مثل مربع النص و مربع التحرير و السرد ... ان تكون بالغه الانجليزيه لتسهل استخدامها في كود الفيجول بيسك. مثال ذالك هو Text0 بدل من مربع نص0 و Combo2 بدل من مربع تحرير وسرد 2 . زر الامر لم توضح الامر الذي يقوم بهوانا سويت زر امر بدون ان احدد شي هذي لا تستعجل على رزقك الشرح لسا ما انتهى هذا رايح نسوي فيه كود فيجول بيسك الاكسس عندي عربي وفي خانة الفرز لايقبل اي اضافةوانا اضفتها في خانة المعايير وكذلك في الاستعلام "بحث في الوارد" كلامك صحيح اخوي و انا الغلطان لان ما ترجمتها صحيح بس على اساس النسخه انجليزي وكان الي في بالي هو فرز الصحيح انك تعملها في معايير 1
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 (معدل) السلام عليكم اخوي الحين نضع الكود التالي في حدث الزر الموجود في نموذج بحث(طبعا لابد من تعديل الملاحظات السابق ذكرها) من حدث زر الامر نروح على حدث عند النقر ونكتب الكود التالي: كود Private Sub Command8_Click() Select Case Me.Combo2 Case "صادر" If IsNull(Me.Combo2) Then MsgBox "الرجاء الاختيار من القائمة", vbOKOnly, "معلومات مطلوبه" Me.Combo2.SetFocus ElseIf IsNull(Me.Text0) Then MsgBox "الرجاء ادخال رقم المعاملةالصادرة", vbOKOnly, " معلومات مطلوبه" Me.Text0.SetFocus ElseIf DCount("*", "بحث في الصادر") = 0 Then MsgBox "لاتوجد نتائج للبحث!! الرجاء المحاوله مره اخرى", vbOKOnly, "نتائج البحث" Else DoCmd.OpenForm "بحث الصادر" End If Case Else If IsNull(Me.Combo2) Then MsgBox "الرجاء الاختيار من القائمة ", vbOKOnly, " معلومات مطلوبه" Me.Combo2.SetFocus ElseIf IsNull(Me.Text0) Then MsgBox "الرجاء ادخال رقم المعاملةالوارده ", vbOKOnly, "معلومات مطلوبه" Me.Text0.SetFocus ElseIf DCount("*", "بحث في الوارد") = 0 Then MsgBox "لاتوجد نتائج للبحث!! الرجاء المحاوله مره اخرى", vbOKOnly, " نتائج البحث" Else DoCmd.OpenForm "بحث الوارد" End If End Select End Sub طبعا اسم زر الامر هو 'Command8' فاذا كان اسمه غير الاسم الموجود عندك ارجوا تغيره في الكود او في خصائص الزر طبعا نحفظ الشغل كله ونروح على عرض النموذج وجرب البحث ان شاء الله المره الجايه رايح اشرح كود الفيجول بيسك بالتفصيل و ارجو التطبيق و ارفق قاعده البيانات بالتوفيق تم تعديل مارس 20, 2014 بواسطه أبو آدم احتواء الكود 1
Mr_Man قام بنشر أبريل 15, 2008 الكاتب قام بنشر أبريل 15, 2008 جزاك الله خير اخوي ورحم الله والديك واسف اتعبتك معي عملت كل التعديلات لكن تظهرلي رساله عند الاختيار في مربع الكومبو وتقول مصدر السجل غير موجود والعمل في المرفقات للاطلاع واكرر اسفي ياليت تقولي وين الخطأ وهل لابد من الكود الطويل لعمل اي برنامج مافيه طريقة اسهل من وضع هذه الاكواد ولك الدعاء مني بظهر الغيب على مجهودك test.rar 1
Bluemind قام بنشر أبريل 15, 2008 قام بنشر أبريل 15, 2008 حياك الله بالنسبه للخطأ فهو لعدم تغير نوع مصدر البيانات من جدول/استعلام الى Value List (ثاني خيار ) تروح على خصائص الكومبو بوكس و من نوع مصدر البيانات رايح تحصله جدول/استعلام اختر ثاني قيمه وهي Value List اما بالنسبه بالنسبه للكود ما فهمت سؤالك؟؟ ارجوا التوضيح 1
Mr_Man قام بنشر أبريل 16, 2008 الكاتب قام بنشر أبريل 16, 2008 الله يجزاك خير ياغالي انا اقصد هل عشان اسوي اي برنامج بسيط على الاكسس لازم اتعلم على اكواد الفيجول مثل الامر اللي انت حطيته للزر كوماند8 وبالنسبة للبحث جربته ولقيت انه يبحث في ارقام المعاملات فقط انا ابيه يبحث بأي معلومة ومن اي خانة يعني نموذج البحث يكون مثل نموذج الصادر او الوارد وعند وضع اي معلومة في اي خانة يقوم بالبحث ويعرض النتايج بشكل صفوف ويوضح قدام اي صف هل هي معاملة صادرة او واردة اذا كان عملها فيه تعب عليك فإني اعذرك كل العذر وعزالله انك ماقصرت ورايتك بيضاء والله يكافيك خير الجزاء على مجهوداتك القيمة خالص تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.