samisalim

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

السلام عليكم ورحمة الله وبركاته أشكرك استاذي على هذا البرنامج الجميل في ميزان حسناتكم وجزيت الجنه يا أبا آمنة @ابو آمنة ملاحظاتي في نموذج الفاتوره(frmfatora) عند اختيار زر البيع والعميل الافتراضي اسمه زبون ندخل المواد المراد بيعها مثال س من الناس اشتراء بمبلغ 100ريال المشكلة عند ظهور نافذة نموذج الدفع(frmpay) نفترض هنا هذا الزبون عميل معنا في المتجر وقمنا اختياره من مربع التحرير والسرد وليكن اسم العميل صالح ودفع هو مبلغ 50ريال والمتبقي عليه مبلغ 50ريال هنا المفترض ينضاف مبلغ الدين إلى حساب صالح لكن هنا نلاحظ انضاف هذا المبلغ في حساب الافتراضي زبون. 1)ما الحل في رائكم وينطبق كذلك في نموذج المشتريات نافذة الدفع (frmpay) في مربع التحرير والسرد واخيار العملاء. 2) هل يمكن تقنين العميل الافتراضي زبون وكذلك المورد بحيث لايسمح اضافة الدين في حسابه وتظهر رسالة الرجاء اختيار العميل المراد اضافة مبلغ الدين في حسابه وكذلك ينطبق مع المورد الافتراضي. 3)هل يمكن اضافة بحث عن عميل أو مورد بالرقم الموبايل في نموذج الفاتورة(frmfatora) بحيث يسهل علينا البحث عن العميل برقم جوال. اعتذر عن اطالتي وبارك الله فيكم.

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

مشكور استاذي على الشرح

شكرا استاذي @محمد أبو عبد الله هو المطلوب ممكن تشرح لي من اين اتيت (1)[column] لان في خصائص كمبوبوكس مكتوب column count 2

أتقدم بالشكر الجزيل للأفاضل القائمين على هذا الصرح العظيم مطلوب عند اختيار إسم الفني من نموذج EMPDEVDATA والضغط على زر أستمارة تسليم جهاز يطبع إسم الفني في اسفل التقرير ارجو تعديل هذا الكود =[Forms]![EMPDEVDATA]![CMBSIGLIST].[Column](2) حصر الاجهزة (2).rar

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

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

استاذي @د.كاف يار واجهتني مشكلة عند اختيار مدخل في كمبوبوكس التسلسل/serial من جدول EMPDEV وصرف عدة أجهزة للموظفين من نفس الموديل الشركة على سبيل المثال: 0000000002 HP dpo158qe desktop 0000000006 HP dpo158qe desktop 0000000007 HP dpo158qe desktop والذهاب إلى كويري Q1 نلاحظ إن المدخلات خاطئة 0000000002 الشركة المصنعة Lenovo 0000000006 الشركة المصنعة Samsung 0000000007 الشركة المصنعة HP ‏‏حصر الاجهزة 1معدل9.7z

جزاك الله خيراً أستاذي الغالي @د.كاف يار على المساعدة هذا هو المطلوب الله يعطيك الصحة والعافية في ميزان حسناتك

رفع الله قدركم وأعلى شأنكم

للرفع

ليس هذا المطلوبأخي @د.كاف يار أريد إضافة الشركة المصنعةBRANDS-الموديلMODELS- النوع TYPE إلى نموذج EMPDEVMENU *انظر إلى الكويريQDEVICE

السلام عليكم ورحم الله وبركاته اساتذتي الكرام ارجو مساعدتي في إضافة حقول في النموذج EMPDEVMENU بالشكل الموضح في الصورة المرفقة مع البرنامج حاولت لكن تواجهني مشكلة التكرار . PROGRAM IT.rar

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

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

مشكور أخي كود مفيد جدا وراح استفيد منه لكن ماهذا يلي اريده يمكن فهمتني غلط ويمكن أنا ماوصلت الشرح صحيح أنا أريد أضيف الحقول ( الشركة المصنعةBRANDS-الموديلMODELS-النوعTYPE)إلى النموذج EMPDEVMENU حاولت اضيtقهن لكن لم افلح في ذلك يمكن شيء عندي مشكلة في العلاقات بين الجداول ومنك السموحة استاذي راح اتعبك معي

بارك الله فيك استاذ محمد زر البحث شغال ينقصني اضافة الحقول(السيريل نمبر- الشركة المصنعة-الموديل-النوع) بدل كمبو بكس في الفورم EMPDEVMENU ليسهل عملية البحث وطباعة التقرير ارفق لك صورة توضيحية

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

شرح مفهوم أخي شكرا جزيلا

أشكرك أخي الكود اشتغل معي100% بعدني اتعبك معي هل ممكن تشرح لي الكود الاول والثاني If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo Exit Sub End If If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" DoCmd.FindRecord cmbrecord Exit Sub End If If Me.IDE = DLookup("IDE", "EMPDEV", "[IDE] = " & Me.IDE) Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الاسم مسجل مسبقا", vbInformation, "تنبيه تكرار" Exit Sub Else MsgBox "تم" End If لاني مبتدي في الاكسس وجزاك الله خيراً

أخي KANORY أردت تطبيق الكود على كمبو الاسماء لكن تظهر لي رسالة ارفق لكم صورة المشكلة هذا الكود If Me.CMBNAME.Column(0) = DLookup("IDE", "EMPDEV", "[IDE] = '" & Me.CMBNAME.Column(0) & "'") Then Me.CMBNAME.Undo Me.Undo MsgBox "هذا الاسم مسجل مسبقاً", vbInformation, "تنبيه التكرار" Exit Sub Else MsgBox "تم" End If

ماشاء الله عليك أخي الغاليkanory الكود شغال 100% بارك الله فيك والله يعطيك الصحة والعافية

السلام عليكم ورحمة الله وبركاته أحتاج مساعدتكم في تعديل الكود منع التكرار السيريل نمبر حاولت عدة مرات ارجو مساعدتي ارفق لكم ملف وهذا الكود المستخدم If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo Exit Sub End If If SERIAL = Me.CMBSERIAL.Column(0) And Not Me.NewRecord Then Me.CMBSERIAL.Undo Me.Undo MsgBox "هذا الجهاز مسجل مسبقاً", vbInformation, "تنبيه التكرار" DoCmd.FindRecord cmbrecord Exit Sub End If officena.rar