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

فتح ملف او برنامج محمول بمسار قاعدة البيانات يتم كتابة اسم الف او البرنامج كاملا بالامتداد الخاص به فى الجدول الموجود فى المرفق مع وصف له ان اردت وعند التأشير على الفتح فى الجدول يتم الفتح والاستعراض مرة واحدة بعد التأكد من وجود الملف اولا فى المسار الخاص بقاعدة البيانات open programs.zip

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

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

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

هذه اخر محاولة لى واخر مشاركة فى هذا الموضوع ان اردت اخفاء الزر واظهار فى حدث الحالى If txtCount >= 2 Then Me.Com3.Visible = True Else Me.Com3.Visible = False End If والسلااااااااااااااااااااااااااااااااااااااااااااااااااام عليــــــــــــــــــــــــــــــــــــــــــــــــــــــكم

اتفضل New Microsoft Access قاعدة بيانات (2) (2).accdb

نعم هذا ما قصدت .... بارك الله فيك أخي أبا جودي

عليك السلام ورحمة الله وبركاته أولاً يجب أن تكون الأسماء في الشيتات مطابقة تمامًا للمرجع ثانيًا تم عمل المطلوب في ورقة العمل ثاني ناجح (2) وسوف تلاحظ أن هناك أسماء الرقم القومي فارغ فعليك بكتابة الاسم الصحيح أكمل باقي الشيتات على نفس النمط تحليل الادار .rar

تم تعديل المرفق app access.zip

استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل الامر يستوجب الاعتذار منى للاستاذ @محمد صلاح1 الان وانا اراجع فى ذهنى الحوار الذى دار بيننا تذكرت انه استخدم فى البحث كلمة الادب ودخلت لاراجع الكود وجدت اننى لم امرر النتيجة على كود ازالة الحركات والتشكيل اهل مكة ادرى بشعابها هو ادر ببرنامجه وما به من خفايا ومن اكواد انا اهتممت فقط بنقل الكود فقط فانا لن احلل له برنامجه كاملا حتى اتفادى كل شئ Officna (2)عدد التكرار فى نفس السجل.accdb

ماذا اقول لك ... kanory انت حليت المشكلة بدون استعلام وبدون جداول

السلام عليكم ورحمة الله تفضل الملف المرفق باستعمال الدالة DECALER (أو OFFSET) كحل أول... بن علية حاجي Stock.xlsx

انظر .... New Microsoft Access قاعدة بيانات (2) (1).accdb

هما مرفقان اكسس واكسل db1.mdb Book1.xls

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

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

اعتقد انه ممكن بدون جداول وسيطة استاذى القدير و معلمى الجليل استاذ @رمهان والله اعلم اعتقد انه ممكن عمل اوبشن جروب على النموذج الرئيسي وبكود select ان كانت القيمة 1 يكون مصدر النموذج الفرعى StrsqlView >-------->> الجدول مباشرة لاستعراض البيانات ان كانت القيمة 2 يكون مصدر النموذج الفرعى StrsqlAdd >-------->> استعلام اضافة بيانات للجدول لم اقم بالتجرية من قبل ولكن خطرت على بالى وانا افكر بسؤالك سيدى

اخي مازن ،، لاحظت فيك استعدادك للتعلم ومن ذلك المحاولات لايجاد الحل معتمدا على نفسك ونحن هنا واقصد بنحن جميع من يتصدى للاجابة مسؤولين عن ايصال المعلومة الصحيحة للمتلقي والنصح له واعلم انك لو بقيت على حالك هذه ولم تتبع الطرق الصحيحة فلن تستمتع ولن تحترف ايضا غالب الاساتذة الخبراء لن ينشطوا بالتفاعل مع موضوعاتك ، لان التعامل مع الحروف العربية عند كتابة الاكواد مرهق ، حيث تنقلب الاسطر وتتداخل الكلمات والرموذ وسأقدم نصحا بحكم انك على اولى خطوات سلم البرمجة 1- ابتعد عن تسمية الكائنات والحقول بالحروف العربية ( لاتسألني عن عشقي للغتي ) 2- لا تترك مسافات خالية بين الكلمات عند التسمية بتطبيق ذلك تستطيع قراءة الاكواد البرمجية بصورة صحيحة ويمكنك فهمها بسهولة في المرفق : لم اتعرض للجداول وانما اجريت بعض اللمسات على الاستعلام انظر الى النموذج وكيف تم بناء الاحصائية يمكنك الاضافة والتخصيص اكثر dbRQ.mdb

هذه احد الافكار التي اوافقك عليها ولكن ابا جودي : هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة . الاخ @عبد اللطيف سلوم هذه روابط وجدتها على السريع لعل تفيدك https://www.officena.net/ib/topic/82567-الغاء-الحفظ-التلقائي-_طلب-تعديل-كود/ https://www.officena.net/ib/topic/81029-الحفظ-التلقائي/ https://www.officena.net/ib/topic/25215-طريقة-تلافي-الحفظ-التلقائي-في-النماذج-الفرعية/ https://www.officena.net/ib/topic/15860-ما-هي-طريقة-إلغاء-الحفظ-التلقائي-للسجلات-في-أكسيس؟/ https://www.officena.net/ib/topic/53618-الغاء-الحفظ-التلقائي-في-نموذج-تعديل-بيانات-رئيسي/ https://www.officena.net/ib/topic/82029-إلغاء-الحفظ-التلقائي-في-النموذج-الفرعي/ https://www.officena.net/ib/topic/90904-طريقة-الغاء-الحفظ-التلقائي-لنماذج-اكسس/ https://www.officena.net/ib/topic/77626-الغاء-الحفظ-التلقائى/ https://www.officena.net/ib/topic/45826-التاكيد-عى-حفظ-التغييرات-عند-اغلاق-او-جديد/ https://www.officena.net/ib/topic/18318-برنامج-إدارة-الأسهم/ https://www.officena.net/ib/topic/22029-حفظ-ما-يتم-ادخاله-في-الفورم-33333333333333/ https://www.officena.net/ib/topic/19959-مشكلة-مع-الامر-undo/ https://www.officena.net/ib/topic/55792-عمل-زر-للتراجع-في-نموذجين/?tab=comments#comment-352971 https://www.officena.net/ib/topic/60445-التعديل-والتراجع-في-النموذج-الفرعي/?tab=comments#comment-382376 بالتوفيق

الف مبروك ومن تقدم الى تقدم

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

الحمد لله ، وشكرا على كلماتك الطيبة ، واتمنى لك مثل ذلك

تفضل انظر اذا هذا اللي تقصد 10 5 2019.mdb

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

جرب هذا الماكرو Sub delete_values() 'Created by Salim Hasbaya 24/5/2019 Dim i%, lr% lr = Cells(Rows.Count, "d").End(3).Row i = 3 Do Until i = lr + 1 If Application.CountIf(Range("d3:d" & i), _ Range("d" & i)) > 1 Then _ Range("d" & Range("d2:d" & lr). _ Find(Range("d" & i)).Row) = vbNullString i = i + 1 Loop End Sub الملف مرفق _New55.xlsm

بالعكس أسعدني مرورك واهتمامك وأخذت الأجر بالنية إن شاء الله

بشرك الله بالخير أخي

هل هناك مشكلة في طلبي هذا

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

جزانا الله واياكم خير الجزاء اتمنى بس الافكار تكون عجبتك

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

اتفضل سيدى open programs.zip

السلام عليكم تراتيب الحماية تختلف من مبرمج الى اخر (الكلام عن تجربتي في الحماية ) 1 - الحماية من النسخ --- (هذه الحماية تنفع المبرمج ---- وتنفع المستفيد من البرنامج ) 2 - الغاء الشفت ---- (هذه الحماية فقط على الغير محترفين -----؟) 3 - تفعيل (نموذج الحماية ) لا تعمل بقية النماذج الا بفتح هذا النموذج 4 - تحويل القاعدة الى accde 5 - عمل اختصار على سطح المكتب للقاعدة الامامية 6- اخفاء مكونات قاعدة البيانات ----- ومن ثم اخفاء قاعدة البيانات 7 - تحويل صيغة القاعدة الخلفية بالتوفيق

السلام عليكم إضافة الى ما تقدم به الاخوة حفظكم الله يمكن اذا كان البرنامج يعمل على شبكة وكان على جهاز السيرفر مثبت windows server من خلال الصلاحيات تمنع تغيير التاريخ او من خلال لوحة التحكم ب windows 10 اذا كان يعمل على جهاز واحد انشاء مستخدم جديد وتلغي صلاحيات تغيير التاريخ ( لم اجرب ذلك بس اعتقد ان فيه إمكانية ) بالتوفيق إن شاء الله

يصبح الكود بهذه الصورة : On Error GoTo Err: DoCmd.RunCommand acCmdSaveRecord [Forms]![SandExpense_F]![ExpenseDate_Sub].[Form]![notes] = Me.notes2 Me.ExpenseDate_Sub.SetFocus DoCmd.GoToRecord , , acNewRec [ExpenseDate_Sub]![Amount2].SetFocus Exit Sub Err: MsgBox Error$ kan2.accdb

وعليكم السلام - تم فصل الموضوع عن المشاركة الأخرى فعليك عند رفع مشاركة جديدة لابد ان تكون مستقلة ولا تقوم برفعها مع مشاركة أخرى مختلفة وان يكون العنوان معبر عن مضمون الطلب والمشاركة تفضل النقطة الإدارية.xlsx

اخى الكريم بالنسبة لموضوع التاريخ وتثبيته ,هذا كان طلبك من البداية ان يكون التاريخ واليوم مثبتات ولا يتغيران مهما حدث اى تغيير تفضل جدول سير قضايا.xlsm

السلام عليكم تفضل الملف لعل فيه ما تريد... Test Search (1).xlsx

في الخلية E4 هذه المعادلة ثم اسحب نزولاً =IF(COUNTIF($A$4:A4,A4)=SUMPRODUCT(($A$4:A4=A4)*($D$4:D4="تم التسديد")),"",COUNTIF($A$4:A4,A4)-SUMPRODUCT(($A$4:A4=A4)*($D$4:D4="تم التسديد"))) و اذا لم تعمل معك استبدل الفاصلة " , " بفاصلة منقوطة " ; " لتصبح هكذا =IF(COUNTIF($A$4:A4;A4)=SUMPRODUCT(($A$4:A4=A4)*($D$4:D4="تم التسديد"));"";COUNTIF($A$4:A4,A4)-SUMPRODUCT(($A$4:A4=A4)*($D$4:D4="تم التسديد"))) الملف مرفق Tasalsul.xlsx

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

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

اخى الكريم الملف بالفعل به كل ما تطلب جدول بيانات بلا عنوان1.xlsm

رقمى الذى طلبته فى مشاركة التهنئه 01120509194

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

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

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

تفضل البرنامج فهو يعمل معى كما ترى برنامج الصقر لحضور وانصراف الموظفين.rar

تفضل اخى الكريم سند صرف.xlsm

لم ترفع ملفاً كمثال و لكني اتوقّع هذا النموذج Book1.xlsm

السلام عليكم ورحمة الله أخي الكريم، أعظم الله أجركم وغفر لميتكم وأسكنه الله فسيح جناته وألهم ذويه الصبر والسلوان... في الملف المرفق تم التعديل على كود تغيير الخلية A3 لجعلها تقبل الأعداد من 10 أرقام إلى أعداد من 13 رقم... يمكنك التجريب بالأعداد التالية : 1234567890 و 12345678901 و 123456789012 بإدخالها بالشكل التالي على الترتيب: 0001234567890 و 0012345678901 و 0123456789012 سواء في تاكست بوكس 1 الموجود في شيت "دخول العمال" بالخلية A3 أو الموجود في اليوزرفورم... أخوك بن علية حاجي Classeur8.rar