زين المهندس

7 دقائق مضت, احمد بدره said:

نعم  هو بالضبط

شكرا يا طيب

32 دقائق مضت, احمد بدره said:

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

تم عمل المطلوب ولكن في الاعتبار أن دالة vlookup  تظهر العمود الثاني وليس الأول  لذلك فقد تم تبديل الأعمدة في شييت3

1.xlsx 35.26 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

شكرا جزيلا استاذ احمد ، هل يجب أن اضع بالعمود الثاني ما أود ان اظهره كنتيجة؟

السلام عليكم ورحمة الله اساتذتي الاعزاء...

في الاكسيل المرافق هنا حاولت استعمال دالة الـ VLOOKUP التي استخدمها دائماً في عملي، ولكن هنالك خلل لا اعلم ماهو بالضبط.

اطلب المعلومات التي تظهر لي في SHEET 1 موجودة في SHEET 3

ارجو منكم اعلامي ما هو الخطأ الذي وقعت فيه 

.

ممنون منكم مقدماً مع حبي وتقديري

1.xlsx

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

لدي 4 فروع تجارية، فيها اغلب المواد متشابهة (عدا مواد محددة قد توجد في فرع دون فرع اخر).

عند استدعاء معلومات الفروع الاربعة والتي هي عبارة عن (رقم المادة، اسم المادة، العدد).

ابحث عن كود لترتيب معلومات الغروع الاربعة حسب اسم المادة (بحيث في حالة وجود مادة في فرع وعدم وجودها في فرع اخر سيظهر فراغ ).

ارفق لجنابكم فايل اكسل فيه شرح للمطلوب (الجداول في الاعلى للمعلومات عند استدعائها، والجداول في الاسفل تظهر المطلوب عمله).

شكرا جزيلاً.

TEST.xlsx

استاذنا لا تكلف حالك...انحلت المشكلة بس نزلت الكود الخاص باليوم وضعته اخر شي بالكودات...ربي يحفظكم ويكثر من امثالكم

19 دقائق مضت, ابو ياسين المشولي said:

ضع هذا الكود في حدث بدل المكرو

DoCmd.GoToRecord , , acNewRec
Me.Text10 = Format(Me.Text14, "dddd")
Me.Text12 = Time()
Me.Text14 = Date

 

40 دقائق مضت, ابو ياسين المشولي said:

انا حملت لك الكود في حدث عند التحميل

تقدر تنقه حيث تشاء

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

Me.Text10 = Format(Me.Text14, "dddd")
Me.Text12 = Time()
Me.Text14 = Date

 

شكرا للرد استاذنا العزيز... ملاحظتي الوحيدة هي ان اليوم لايظهر في الحقل المخصص .... وطلبي الاخر...ماذا لو اردت ان تكون بيانات اليوم والتأريخ والساعة ظاهرة مباشرة في حال طلبي اضافة سجل جديد؟؟ أي عن الضغط على ADD RECORD تظهر مباشرة معلومات اليوم والتأ{يخ والساعة....شكرا مجددا

شكرا جزيلا وربي يحفظكم كفيت ووفيت...مشكلة عدم ظهور اسم اليوم لاتزال موجود...واسف لازعاجكم

31 دقائق مضت, ابو ياسين المشولي said:

انا حملت لك الكود في حدث عند التحميل

تقدر تنقه حيث تشاء

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

Me.Text10 = Format(Me.Text14, "dddd")
Me.Text12 = Time()
Me.Text14 = Date

 

شكرا للرد استاذنا العزيز... ملاحظتي الوحيدة هي ان اليوم لايظهر في الحقل المخصص .... وطلبي الاخر...ماذا لو اردت ان تكون بيانات اليوم والتأريخ والساعة ظاهرة مباشرة في حال طلبي اضافة سجل جديد؟؟ أي عن الضغط على ADD RECORD تظهر مباشرة معلومات اليوم والتأ{يخ والساعة....شكرا مجددا

28 دقائق مضت, ابو ياسين المشولي said:

اتفضل

اليوموالتأريخ والوقت.accdb

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

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

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

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

اليوموالتأريخ والوقت.accdb

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

8 دقائق مضت, عبد الله قدور said:

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

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

6 دقائق مضت, عبد الله قدور said:

ان اردت اخي الكريم يمكنني مراجعة المشكلة معك عن طريق برنامج تيم فيور 11 

ارسل لي اسم المستخدم وكلمة المرور الخاصة بجهازك على الواتس اب 905456969400+

 

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

7 دقائق مضت, عبد الله قدور said:

ارفق الملف للتعديل عليه

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

9 دقائق مضت, عبد الله قدور said:

السلام عليكم

اخي الكريم تأكد من خاصية مصدر السجلات فقد يكون المصدر جدول لا يحوي اي سجل فيه او استعلام للقراءة فقط ولا يحوي اي سجل ايضا 

وعليكم السلام ورحمة الله و بركاته .. اخي الغالي انا اقصد ان محتويات الواجهة لاتظهر و ليس محتويات قاعدة البيانات ، اي تظهر لي ورقة بيضاء تماما بدوت اي حقول مسميات او مربعات كتابة و باقي عناصر التحكم علما اني استخدم اصدار 2016

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

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

السلام عليكم...ممكن الرد اساتذتنا الافاضل ؟

السلام عليكم و رحمة الله و بركاته و اسعد الله ايامكم ، و كل عام و انتم بخير .

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

الان لدي استفسار اخر اذا سمحتم لي ...

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

و اذا امكن كذلك الامر الخاص بالماسح الضوئي (الاسكانر) .

دمتم لنا اخوة اعزاء ، و شكراً لجميع المداخلات مقدماً . 

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

23 ساعات مضت, ابو عارف said:

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

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

هناك ثلاثة خيارات متاحة

1) تخصيص الواجهة الحالية للتسجيل سجلات الجديدة فقط  و انشاء نموذج مماثل للعرض و جعل مصدره الاستعلام .

2) انشاء استعلام تحديث و تشغيله بين حين و الآخر لتحديث الجدول الرئيسي وترك الواجهة كما هو

3) وضع اكواد في احداث مربعات الواجهة و ذالك لتحديث جدول و الواجهة مباشر دون حاجة للاستعلام

انظر المرفق بعد تحديث مربع الدرجة او الفئة ايهما الاخير تحدث مربع "الراتب الاسمي"

و مربع عدد الاطفال تحدث مربع "الضريبة" 

DLookup("[مقدار الضريبة]", ([الحالة])

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

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

اما الدالة Val    لا حاجة لها في المرفق الجديد كتبتها في الاستعلام لقبول تنسيق العملة فقط

بالتوفيق.

Database1.rar

 

تعبتك معي استاذي ابو عارف ، و بارك الله جهودكم المشكورة و التي لايسد عرفانها اي شكر .

اذا سمحتلي عندي بعض الاسئلة بخصوص الكودات التي استعملتها ، 

2) ماذا نقصد بهذا الجزء من الكود

If Not IsNull([الفئة]) Or [الفئة] <> "" Then

3) ماذا نقصد بهذا الجزء من الكود اذا سمحتم

& DMax("[الحد الادنى للراتب الاسمي]",

4) لماذا استعملتم (الحد الادنى من الراتب) و لم تستعملوا (الحد الاعلى من الراتب) ؟

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

و بعد محتاج شرح للكود اللي استعملته ، طبعا اذا كان عندكم وقت للشرح استاذنا العزيز

اقتباس

[(Z: Val(DLookUp("[مقدار الضريبة]";([الحالة]);"[الحد الادنى للراتب الاسمي]=" & DMax("[الحد الادنى للراتب الاسمي]";([الحالة]);"[الحد الادنى للراتب الاسمي]<=" & [rateb]) & " And [عدد الاطفال]=" & [Chaldcoun

السلام عليكم استاذي ابو عارف وجدا ممنون منكم .. واجهتني بعض المشاكل ...اولا) هل اربط الواجهة مع الجدول الرئيسي ام مع ماذا لكي تظهر لي النتائج ..ثانيا) لماذا يتم الرفض عند محاولتي اجراء تسجيل جديد ؟ واكرر شكري الجزيل لجهودكم

19 ساعات مضت, ابو عارف said:

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

اولا حمد لله على السلامة الاخ ابو آدم بعد غياب فترة طويلة 

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

علما بان تم اضافة حقل (عدد ابناء) في جدول "غير متزوج" و ذالك لضرورة مساواة عدد و الاسماء جداول الاربعة و قيمته صفر

و ايضا تعديل في صفوف الاخيرة في جدول الراتب.

Database1.rar

السلام عليكم استاذي ابو عارف وجدا ممنون منكم .. واجهتني بعض المشاكل ...اولا) هل اربط الواجهة مع الجدول الرئيسي ام مع ماذا لكي تظهر لي النتائج ..ثانيا) لماذا يتم الرفض عند محاولتي اجراء تسجيل جديد ؟ واكرر شكري الجزيل لجهودكم

4 ساعات مضت, أبو آدم said:

الاخ زين

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

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

كما انني لم افهم سبب انشاء الجداول بهذه الطريقه

لعلك تتوسع بالتوضيح

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

عذرا

اخي العزيز ابو ادم المحترم...

المطلوب هو (الراتب الاسمي) و (الضريبة) وكما سأوضح لحضرتكم ...

1* الراتب الاسمي... يعتمد الراتب الاسمي على كل من (الدرجة الوظيفية) + (الفئة) ... فالموظف الذي درجته الوظيفية (1) من الفئة (1) ، يكون راتبه الاسمي (1.000.000) . اما الموظف الذي تكون درجته الوظيفية (1) ايضاً و لكن من الفئة (2) يكون راتبه الاسمي (998.000) و هكذا . و اود ان اشير هنا الى ان السلّم الوظيفي يتكون (10) درجات و ظيفية ، و يوجد في كل درجة وظيفية (11) فئة ، لكل فئة في كل درجة راتب اسمي معيّن .

2* الضريبة...تعتمد على (3) متغيرات و كما يلي ...

       أ) الراتب الاسمي ، و في الجدول الذي استلمناه من هيئة الضرائب تم تحديد الراتب الاسمي بصيغة (من - الى) و كما سيتم توضيح ذلك في الامثلة ادناه .

      ب) الحالة .. و هي مقسمة الى اربعة انواع (1) موظف متزوج و زوجته (ربة بيت) .

                                                                         (2) موظف متزوج و زوجته (موظفة) .

                                                                         (3) موظف غير متزوج .

                                                                         (4) موظفة ارملة او مطلقة .

      جـ ) عدد الاطفال .

الامثلة و ستكون لا على التعيين ......

1- موظف متزوج و زوجته (ربة بيت) + راتبه الاسمي محصور بين (1.000.000 - 950.000) + لديه (3) اطفال...سيكون مبلغ الضريبة له (991) ... يفترض ان يتم جلب قيمة الضريبة من جدول (متزوج و زوجته ربة بيت) .

2-موظف متزوج و زوجته (موظفة) + راتبه الاسمي محصور بين (1.000.000 - 950.000) + لديه (1) اطفال...سيكون مبلغ الضريبة له (1.997)... يفترض ان يتم جلب قيمة الضريبة من جدول (متزوج و زوجته موظفة) .

3- موظفة ارملة + راتبها الاسمي محصور بين (1.000.000 - 950.000) + لديها (2) اطفال...سيكون مبلغ الضريبة لها (494)... يفترض ان يتم جلب قيمة الضريبة من جدول (مطلقة او ارملة) .

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

السلام عليكم و رحمة الله و بركاته اعزائي مشرفي و اعضاء موقع اوفسينا / قسم الاكسيس...

لدي استفسار بخصوص الية استيراد قيمة حقل معين من جدول اخر و كما يلي :-

1- لو كان لدي موظف معين ، درجته الوظيفية 1 ، فئة 1 ، المطلوب ان تظهر قيمة راتبه الاسمي مباشرة من خلال استيرادها من جدول الراتب المدرج فيه جميع الرواتب الاسمية (حسب الدرجة الوظيفية و الفئة) .

2- كذلك مبلغ الضريبة الذي يعتمد على متغيرات أ) الراتب الاسمي ، ب- الحالة (غير متزوج ، متزوج و الزوجة موظفة ، متزوج و الزوجة ربة بيت ، مطلقة او ارملة) ، جـ - عدد الاطفال . المطلوب ان تظهر قيمة مبلغ الضريبة من خلال استيرادها من جداول ثابتة (تعتمد على الحالة المذكورة في النقطة (ب) و تعمتد كذلك على الراتب الاسمي ) تم اعدادها مسبقاً .

ارافق لكم برنامج مبسط للمطلوب مع الايضاح بأن كل الارقام و الاسماء المذكورة فيه هي امثلة لا أكثر ، شاكراً مسبقاً لجهوكم احبتي .

Database1.rar

49 دقائق مضت, ابو عارف said:

'للملف وورد 2003 او اقدم
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.doc"
ActiveControl.Hyperlink.Follow

'للملف وورد 2007 او احدث
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.docx"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2003 او اقدم
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xls"
ActiveControl.Hyperlink.Follow

'للملف اكسل 2007 او احدث
Dim Haddress As String
ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xlsx"
ActiveControl.Hyperlink.Follow

ضع كود مناسب في حدث عند نقر لزرالأمر

غير مسار الى مسار ملف لديك

استاذي ابو عارف ، ممنون منكم كثير ، حقيقة استملت كود للاستاذ ابوعبدالله الحلواني (followhyperlink) ، و اتبعته بإسم الملف مع الامتداد و الحال تمام جداً و بدون استعمال dim or active control ، و عامل على كل الامتدادات ... اكرر شكري لكم و لكل الاخوة على هذا الاهتمام .

)

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

57 دقائق مضت, أبو عبدالله الحلوانى said:

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

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

FollowHyperlink "D:\FullFileName"

طبعا "D:\FullFileName"  اسم الملف بالكامل يعنى المسار + الامتداد "txt." " acdb." أو ....

استاذي تمت العملية باستخدام هذا الكود بنجاح شاكراً لكم و لكافة االاعزاء المشاركين معي في الاجابة على سؤالي و دمتم اخوة اعزاء و بارك الله بجهوكم .