اذهب الي المحتوي
أوفيسنا

طلب مساعدة في برنامج صادر ووارد


Mr_Man

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

يا اخواني الاعزاء

انقل لك معاناتي مع الاكسس

انا صارلي فترة احاول اتعلم الاكسس

قريت كتب كثيره ومواضيع كثيره

وفهمت اغلب خصائص البرنامج

واعرف اسوي جداول واستعلامات وتقارير

وتعلمت على الماكرو وكيف انفذ فيها اوامر معينة

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

مثلا برنامج للصادر والوارد او اي برنامج بسيط على الاكسس

معلوماتي ماني عارف كيف استغلها لعمل برنامج

اضرب لكم مثال

مثلا ابسوي برنامج صادر ووارد

ابي عند فتح البرنامج تظهر شاشة فيها ازرار :

1- تسجيل الوارد

2-تسجيل الصادر

3- بحث عن معاملة

وعند اختيار احدها يتم الدخول للفورم الخاص

احتاج احد يشرحلي خطوات كمثال وله دعوه مني والله بظهر الغيب لاني تعبت جدا

وكل موضوع يشتتني

عندي معلومات لكن عندما اريد العمل اجد نفسي مكتف اليدين

الله يجزاكم الجنة ويجزاء من يقدم معلومة تساعدني على البداية

والعلم صدقة جارية باذن الله

وفقكم الله

  • Like 1
رابط هذا التعليق
شارك

اضرب لكم مثال

مثلا ابسوي برنامج صادر ووارد

ابي عند فتح البرنامج تظهر شاشة فيها ازرار :

1- تسجيل الوارد

2-تسجيل الصادر

3- بحث عن معاملة

وعند اختيار احدها يتم الدخول للفورم الخاص

اخوي

انت بديت باخر خطوه في البرنامج وهي عمل النموذج الرئيسي او لوحه التبديل.

اولا اعمل جدول للصادر وجدول للوارد.

طبعا جدول الصادر يحتوي -على سبيل المثال- الحقول التاليه:

رقم الرساله --> رقم-->long integer --> مفتاح اساسي

عنوان الرساله --> نص-->100

تاريخ الرساله --> تاريخ/وقت--> General Date

المرسل --> نص --> 20

المرسل له --> نص --> 20

ثم تعمل جدول الوارد

وتعمل الحقول كما في الجدول السابق

ثانيا عمل النماذج

قم بالذهاب الى النماذج ثم قم بالضغط على جديدNew ثم اختر عمل النموذج باستخدام المعالج

ثم اختر جدول الصادر ثم التالي ثم قم باضافه جميع الحقول من الجهه اليسر وضعها بالجهه اليمنى بستخدام زر <<

ثم التالي واختر تصمميم النموذج(خليه على اول واحد) ثم التالي واختر شكل النموذج ثم التالي ثم سمي الجدول " الصادر" ثم انهاء

بعد ذالك سوف يظهر لك النموذج

قم بعرض تصمميم هذا النموذج ثم من خصائصه ثماذهب الى"البيانات" و اجعل "ادخال بيانات" او Data entry الى "لا" او No

بعد ذالك قم بحفظ النموذج

ثم قم بتصميم نموذج الوارد بنفس خطوات الصادر

اذا قمت بعمل هذه النماذج ، ارجوا التاكيد لستكمال الخطوات التاليه.

  • Like 2
رابط هذا التعليق
شارك

اولا

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

وانا سويت كل اللي قلت عليه

عملت جدول للصادر وجدول للوارد ونموذج للصادر والوارد وعملت نموذج تقرير

ماعملته في المرفقات اذا تحب تطلع عليه

واكرر شكري ودعائي لك في هذه الليلة المباركة

test.rar

رابط هذا التعليق
شارك

حياك الله اخوي وجزاك الله خير على هذي الدعوه .

اخوي انا شفت عملك و هوه ممتاز وتسير بالاتجاه الصحيح.

اليوم رايح نعمل عمليه البحث ورايح اقسمها الى جزئينز

الجزء الاول :

- نقوم بنسخ نموذج الصادر ولصقه(عمليه عاديه نسخ ولصق من النماذج) ونجعل اسمه"بحث الصادر" وكذالك لنموذج الوارد ونسميه "بحث الوارد"

- نقوم بعمل استعلامين :

---> الاول نسميه"بحث في الصادر" و الثاني "بحث في الوارد".

---> في استعلام الصادر نجعل جدول الصادر هو مصدر البيانات لهذا الاستعلام(طبعا نضيف جميع الحقول في الجدول في الاستعلام)

---> في استعلام الوارد نجعل حدول الوارد هو مصدر البيانات لهذا الاستعلام(طبعا نضيف جميع الحقول في الجدول في الاستعلام)

- بعدين نقوم بجعل الاستعلام الاول هو مصدر بيانات نموذج "بحث الصادر" وكذالك نقوم بجعل الاستعلام الثاني هو مصدر بيانات نموذج"بحث الوارد"

- نقوم الان بانشاء نموذج ونسميه بحث

--> هذا النموذج نعمل فيه ثلاثه اشياء وهي:

1- قائمه منسدله"Combo box" (نسميه "combo2")--- مصدر بياناته هي: "صادر";"وارد"

طبعا تنسخ كما هي ولصق في مصدر الصف او Row Source

2- مربع نص --> يكون غير معتمد على اي مصدر او Unbound(نسميه Text0)

3 -زر امر

- الان نرجع الى الاستعلام "بحث في الصادر" ونضع تحت حقل "رقم الصادر" وتحديدا في Criteria او الفرز التعبير التالي:

[Forms]![بحث]![Text0]
- ثم نعود الى الاستعلام "بحث في الوارد" ونضع في حقل "رقم الوارد" وتحديدا في Criteria او الفرز التعبير التالي:
[Forms]![بحث]![Text0]

ثم نحفظ جميع الاستعلامات و النماذج

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

ملاحظه :

ارجوا عمل الخطوات السابقه وارفاقها.

  • Like 1
رابط هذا التعليق
شارك

الله يجازيك الجنة اخي الغالي

الشكر لامثالك قليل ولانملك الا الدعاء لك ولامثالك

اخوي انا عملت كل ماتفضلت به

وبودي ان اوضح اشياء

- نقوم بنسخ نموذج الصادر ولصقه(عمليه عاديه نسخ ولصق من النماذج) ونجعل اسمه"بحث الصادر" وكذالك لنموذج الوارد ونسميه "بحث الوارد"

نسختها ولصقتها في نفس المكان مع تغيير اسماءها

1- قائمه منسدله"Combo box" (نسميه "combo2")--- مصدر بياناته هي: "صادر";"وارد"

كومبو بوكس اللي هو مربع تحرير وسرد؟ ( لان الاكسس عندي بقوايم عربية)

انا عملت مربع تحرير وسرد

مصدر البيانات كتبته مثل ماتفضلت "صادر";"وارد"

بس انا الجداول عندي اسماءها الصادر والوارد

ياليت تتكرم وتقولي ليش اخترتها كذا لاني والله احب افهم كل شي تحملني

وكذلك التسمية كومبو2 هل تفرق لو سميناه باسم ثاني

3 -زر امر

زر الامر لم توضح الامر الذي يقوم به

وانا سويت زر امر بدون ان احدد شي

الان نرجع الى الاستعلام "بحث في الصادر" ونضع تحت حقل "رقم الصادر" وتحديدا في Criteria او الفرز التعبير التالي:

الاكسس عندي عربي وفي خانة الفرز لايقبل اي اضافة

وانا اضفتها في خانة المعايير

وكذلك في الاستعلام "بحث في الوارد"

واتمنى ان تكون خطواتي صحيحة

والعمل موجود في المرفقات

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

تقبل اصدق واحر تحياتي

ملاحظة في المنتدى : كل ما احمل ملف مضغوط من اي مشاركة مايفتح بالون رار ويعطيني خطأ في الارشيف

مدري هل المشكلة من جهازي او من المنتدى ؟

test.rar

  • Like 1
رابط هذا التعليق
شارك

نسختها ولصقتها في نفس المكان مع تغيير اسماءها

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

كومبو بوكس اللي هو مربع تحرير وسرد؟ ( لان الاكسس عندي بقوايم عربية)

انا عملت مربع تحرير وسرد

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

مصدر البيانات كتبته مثل ماتفضلت "صادر";"وارد"

انا شفت مثالك المرفق بس مو كذا

انا ممكن اني غلطت وقلتلك مصدر البيانات، وهو اصلا اسمه مصدر الصف.

هذا سلمك الله تحصله من خصائص "مربع التحرير و السرد"--> بيانات--> مصدر الصف

تنسخ "صادر";"وارد" وتسويل لها لصق

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

بس انا الجداول عندي اسماءها الصادر والوارد

ياليت تتكرم وتقولي ليش اخترتها كذا لاني والله احب افهم كل شي تحملني

هذي الجداول مالها دخل في الموضوع

المقصد من "صادر";"وارد" هي القيم التي يحتوي عليها مربع التحرير و السرد

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

و الغرض منها هو فتح نموذج "بحث الصادر" الي نسخناه ولصقناه من شوي. و في حاله وارد فان اكسس يقوم بفتح نموذج "بحث الوارد"(طبعا انت استعجلت شوي في السؤال عنها لان هناك كود فيجول بيسك سوف اشرحه تحت)

وكذلك التسمية كومبو2 هل تفرق لو سميناه باسم ثاني

اخوي هذي ما تفرق سميه اي اسم تبغى بس انت رايح تشير اليه في كود الفيجول بيسك كما في الشرح بالسفل، وانا احب تسميه الادوات مثل مربع النص و مربع التحرير و السرد ... ان تكون بالغه الانجليزيه لتسهل استخدامها في كود الفيجول بيسك. مثال ذالك هو Text0 بدل من مربع نص0 و Combo2 بدل من مربع تحرير وسرد 2 .

زر الامر لم توضح الامر الذي يقوم به

وانا سويت زر امر بدون ان احدد شي

هذي لا تستعجل على رزقك الشرح لسا ما انتهى :biggrin2:

هذا رايح نسوي فيه كود فيجول بيسك

الاكسس عندي عربي وفي خانة الفرز لايقبل اي اضافة

وانا اضفتها في خانة المعايير

وكذلك في الاستعلام "بحث في الوارد"

كلامك صحيح اخوي و انا الغلطان لان ما ترجمتها صحيح بس على اساس النسخه انجليزي وكان الي في بالي هو فرز

الصحيح انك تعملها في معايير

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

اخوي الحين نضع الكود التالي في حدث الزر الموجود في نموذج بحث(طبعا لابد من تعديل الملاحظات السابق ذكرها)

من حدث زر الامر نروح على حدث عند النقر ونكتب الكود التالي:

كود

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'

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

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

و ارجو التطبيق و ارفق قاعده البيانات

بالتوفيق

تم تعديل بواسطه أبو آدم
احتواء الكود
  • Like 1
رابط هذا التعليق
شارك

جزاك الله خير اخوي

ورحم الله والديك

واسف اتعبتك معي

عملت كل التعديلات لكن تظهرلي رساله عند الاختيار في مربع الكومبو

وتقول مصدر السجل غير موجود

والعمل في المرفقات للاطلاع

واكرر اسفي

ياليت تقولي وين الخطأ

وهل لابد من الكود الطويل لعمل اي برنامج

مافيه طريقة اسهل من وضع هذه الاكواد

ولك الدعاء مني بظهر الغيب على مجهودك

test.rar

  • Like 1
رابط هذا التعليق
شارك

حياك الله

بالنسبه للخطأ فهو لعدم تغير نوع مصدر البيانات من جدول/استعلام الى Value List (ثاني خيار )

تروح على خصائص الكومبو بوكس

و من نوع مصدر البيانات رايح تحصله جدول/استعلام

اختر ثاني قيمه وهي Value List

اما بالنسبه بالنسبه للكود ما فهمت سؤالك؟؟ ارجوا التوضيح

  • Like 1
رابط هذا التعليق
شارك

الله يجزاك خير ياغالي

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

وبالنسبة للبحث

جربته ولقيت انه يبحث في ارقام المعاملات فقط

انا ابيه يبحث بأي معلومة ومن اي خانة

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

اذا كان عملها فيه تعب عليك فإني اعذرك كل العذر

وعزالله انك ماقصرت ورايتك بيضاء

والله يكافيك خير الجزاء على مجهوداتك القيمة

خالص تحياتي

  • Like 1
رابط هذا التعليق
شارك

  • 5 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information