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

السلام عليكم ورحمة الله هذه محاولة أولى (بتحفظ) في الملف المرفق... بن علية حاجي الفرق بين الاجراءات - Copy.xlsx

من اجل حبايبنا @ابا جودى و @حلبي نستكمل بقية الطرق للاجابة على الاستفسار الطريقة الثالثة مشابهه للثانية والاختلاف طفيف Dim i As Long i = Nz(DLast("[ترقيم2]", "tbl1"), 0 & Format(5000)) Me.ترقيم2 = i + 1 الطريقة الرابعة عن طريق استعلام يتم عملة عن طريق sql ويتم تنفيذة بعد انشاء الجدول ثم حذف الاستعلام بعد تشغيلة INSERT INTO tbl2 ( ID ) SELECT 5001 AS Expr1;

في الطريقة السابقة سوف تجد ان حقل id سوف يكون مكرر لبعض السجلات نفس الترقيم للسجلات السابقة فاذا رغبت في ترتيب تلقائي غير مكرر نستبدل استعلام 2 الخاص بانشاء جدول الى استعلام الحاق ونقوم بانشاء جدول tbl4 فارغ ثم ننفذ استعلام الحاق INSERT INTO tbl4 ( n_name ) SELECT استعلام1.n_name FROM استعلام1; انظر المرفقات توحيد.accdb

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

بعد اذن الاستذتنا والخبراء أقدم مقترحي لانه يريد البحث ب الحرف و لله أعلم test.accdb

اضافة لما ذكرة استاذي @AlwaZeeR لتحديد السجلات المكرة يمكن استخدام احد الطرق التالية عن طريق انشاء استعلام المتشابهات المضمن في اكسس الطريقة الثانية عن طريق جملة sql SELECT tbl1.n_name, Count(*) AS Expr1 FROM tbl1 GROUP BY tbl1.n_name HAVING (((Count(*))>1)); الطريقة الثالثة استعلام عادي ثم تجميع count ومعيار >1

وعليكم السلام ورحمة الله وبركاته تفضل استخدم جملة الاس كيو ال التالية في استعلام مع تغيير المسميات لما يناسبك: SELECT EmployeesTbl.EmpID, EmployeesTbl.EmpName FROM EmployeesTbl WHERE (((EmployeesTbl.EmpName) In (SELECT [EmpName] FROM [EmployeesTbl] As DTmp WHERE DTmp.EmpID <= [EmployeesTbl].[EmpID] GROUP BY [EmpName] HAVING Count(*)>1 ))); وابسط يا عم على رأي صدينا أبا جودي مرفق مثال تم التطبيق عليه 🙂 duplicateFinder.accdb

وعليكم السلام ارفق ملف اكسيس مثل ما تعمل عليه واشرح المطلوب حتى يتثنى للاخوه مساعدتك وللتسهيل كجزء من الحل فى استعلام البحث ممكن تضع معيار كالتالى سياتى لك بكل ما يشبه المبحوث عنه Like "*" & [ENTER NAME] & "*" والله اعلى واعلم وبالتوفيق

برنامج يدير الفندق نزلاء وعمالة برمجة عوض كارو دخول عوض 123 نرجو ارائكم وملاحظاتكم فندق_اسماء_وارقام_.xlsm

ادارة ستوديو.xlsm برنامج سهل وبسيط الدخول 123 اعداد عوض كارو

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

الحمد لله انك وجدت الحل اخي بارك الله فيك معرفة الحقل ونوعة امر مهم لتحصل على الاجابة الصحيح في هذا الرد سوف اضع لك اكواد لدالة واحدة وتاخذ البيانات من نفس الجدول يختلف كتابة الكود جزئيا باختلاف نوع الحقل ولو لم تضع التنصيص الصحيح فلن تعلم DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") لذا فان ما طلبة الاساتذة الكرام ليس تطفل وانما امر مطلوب لوضع الحل الصحيح وايضا الاكواد التي وضعها الزملاء صحيحة وربما لم تعمل معك لاختلاف المعيار اسأل الله لي ولك التوفيق والسداد

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

في المرفق الخطوة الاولى استعلام توحيدي يدمج الجداول الثلاث SELECT * FROM tbl1 UNION SELECT * FROM tbl2 UNION SELECT * FROM tbl3; الخطوة الثاني استعلام اخر يقوم بانشاء جدول جديد SELECT استعلام1.id, استعلام1.n_name INTO tbl4 FROM استعلام1; Database471.accdb قم بتشغيل استعلام 2 سيقوم بانشاء جدول tbl4 والذي يحتوي على كافة سجلات الجداول الثلاث الامر الاهم ان تكون بنية واسماء الحقول متطابقة

استاذنا وخبيرنا / @kha9009lid والله انك انسان محترم جدا ودائما تسعي لمساعدة الاخرين جزاك الله خير ورحم الله والديك وزادك الله علما نافعا كل الاحترام والتقدير

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

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

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

السلام عليكم معذرة على الإطالة في الرد... جرب المرفق لعل فيه ما تريد... بن علية حاجي شيت 2.xls

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

برنامج حساب تحويلات حسابات الاراضى الزراعية فورمات ون واحد.xlsm الاراضى

تم حل المشكلة تفضل المحصلة الشهرية1.xlsx

نعم يمكن وبعدة طرق الطريقة الاولى في خصائص الحقل الخاص بالترقيم في خانة تنسيق ضع الرقم الذي ترغب الطريقة الثانية ترقيم عن طريق الكود id = Nz(DMax("[id]", "tbl1"), 0 & Format(5000)) + 1 في المرفق نموذج للطريقتين Database451.accdb

السلام عليكم اخواني الكرام قمت بتصميم هذا البرنامج لتصميم وطباعة الباركود فاعطوني رأيكم دام فضلكم اضف الخطوط الموجودة في المرفق الى مجلد الخطوط وشغل البرنامج 1- يمكنك تصميم اللصاقة المناسبة من التقرير 2- يمكن طباعة عدد محدد من اللصاقات ومن اي لصاقة يبدأ الطباعة 3- يمكن اختيار اتجاه الطباعة افقي او عمودي 4- يمكنك تحديد هوامش ورقة a4 حتى تتناسب مع اللصاقة المطلوبة تحياتي للجميع من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , باركود.rar

أعتقد والله أعلم أن أضعف حماية لبرامج قواعد البيانات كانت من نصيب الأكسيس رغم أنه فى رأيي _ الذى لا يعتد به وسط هذا الصرح _ من أشملها كما أعتقد أيضا أن هذا القصور متعمد وإلا فلن نجد لبرامج فيجيوال استوديو من مبرمجين. ولنرجع الى الوراء قليلا وبالتحديد أكسيس 2003 أى منذ 16 عاما كان به إضافة فريدة رائعة سهلة تكاد تضاهى ماكان فى فيجيوال بيسك وقتها ألا وهى Shortcut Menu والتى تم إزالتها من الإصدارات التاليه والإستعاضة عنها بـعمل كود طويل عريض تقريبا بلغة XML لا أتذكر بالضبط حيث أنى حاولت العمل به والحمد لله فشلت 🤣🤩 .. ولنسأل أنفسنا ما هى الإضافات الجوهرية التى تم إضافتها الى الأكسيس منذ 2007 حتى 2019 غير التغيير فى الواجهات .. سنجد أنها قليلة جدا أعظمها فى نظرى تغيير حجم القاعدة من 1 الى 2 جيجا.ولذا نجد بيننا الى الآن من يعمل على أكسيس 2003. ما أقصده أنه يوجد إتجاه الى تحجيم قدرات الأكسيس لصالح منتجات قواعد البيانات الأخرى حيث أنه فى الأساس كان الأكسيس مصمما للإستخدام المنزلى والمشاريع متناهية الصغر ولكن أظهر ما لم يكن متوقعا من إنتشار وثبات وقوة. وبالنسبة لسؤالك أخى rey360 سأقول لك مختصر الطرق المغلقة فى الحماية المطلقة .. كان فيه واحد إسمه David Dworken دا كان لسة طالب فى كلية من كليات الحاسبات والمعلومات إخترق البنتاجون لمدة 15 ساعة تقريبا. لما يبقى فيه حماية مطلقة أمال الهاكر هيكلو عيش منين كل ده مجرد رأى ... أما الاستاذ @محمد صلاح1 فبقله .. واخد الموضوع على فين يا أبو الصلح وصلنا لتانى صفحة , 412 مشاهدة , 34 رد .... أكمل ولا هتقول انى منفسن 😍

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

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

اسأل الله ان يديم المودة بيننا جميعا هذه لك اخي @أبو عبدالله الحلوانى ولكن على حسابك

ان من أهم خصائص منتدي أوفسنا روح المودة التي أحس بها وألمسها بين أعضائه وان كان مجتمعا افتراضيا لا يلمس ولكن هذا ما أصدقكم به القول فأنا أحبكم جميعا وأكن لكم التقدير والاحترام .. وان كان اختلاف الآراء لا يفسد للود قضية .. فلا داعي لأن يصل النقاش الي نقطة خلاف. وليقل بعضنا عثرات بعض فهذا ديدن الإخوة بعضهم لبعض. أ @محمد صلاح1 أ @ابا جودى أحبكم في الله - ولا داعي لدفع ثمن الورد فأنا اشتريته لأهديه لكم

اجابكم استاذى الجليل ومعلمى وانا لست استاذا ولا خبيرا فى شئ قما انا لا هاو فقط

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

احسنت القول اخي خالد

أشكر أستاذ kha9009lid على الرد السريع

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

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

أ.عمار @f16 ياريت حضرتك نريحنا وتقول هل هذا ما تطلبة أم هناك مشكلة أخرى خالص تحياتى

وعليكم السلام ورحمة الله وبركاته لا تظهر معك في الأمثلة المرفقة من قبل الاساتذة؟ أم بعد التطبيق على برنامجك؟؟

الحماية المطلقة والوحيدة والتى اعرفها من كان رزقه على الله فلا يحزن وفى السماء رزقكم وما توعدون وفيه حديث الوليد بن عبادة بن الصامت قال: دخلت على عبادة وهو مريض أتخايل فيه الموت، فقلت: يا أبتاه أوصني واجتهد لي ، فقال أجلسوني، قال:يا بني إنك لن تطعم طعم الإيمان ولن تبلغ حق حقيقة العلم بالله تبارك وتعالى حتى تؤمن بالقدر خيره وشره، قلت: يا أبتاه فكيف لي أن أعلم ما خير القدر وشره؟ قال: تعلم أن ما أخطأك لم يكن ليصيبك وما أصابك لم يكن ليخطئك، يا بني إني سمعت رسول الله صلى الله عليه وسلم يقول: إن أول ما خلق الله تبارك وتعالى القلم ثم قال اكتب فجرى في تلك الساعة بما هو كائن إلى يوم القيامة، يا بني إن مت ولست على ذلك دخلت النار" فقط اتق الله يجعل لك مخرجا ويرزقك من حيث لا تحتسب

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

معدالبرنامج/م أحمد محمد السردي 883579 059

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

الأخ figo82eg وزيادة الخير خيرين بعد مثال أستاذنا أبو عبدالله الحلوانى PrintMasterAndCopy.mdb

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

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

'-- نسخة خاصة لأحد أعضاء منتدى أوفيسنا ، الرجاء عدم استخدامها من قبل الآخرين هذه الملاحظة موجودة في محرر الاكواد ؟

@f16 اخى عمار الملف المرفق هو المطلوب ام لا وللرسالة المطلوبة بعدم التجاوز عن 999؟؟؟ ضع الكود التالى Private Sub p2_AfterUpdate() item_id = p1 item_id2 = p1 group_id2 = x1 'DoCmd.Requery If x1 = 100 And p1 > 100999 Then MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الملابس" Me.Undo x1.Undo x1.SetFocus Else If x1 = 200 And p1 > 200999 Then MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الأدوات الكهربائية" Me.Undo x1.SetFocus End If End If End Sub

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

أختنا كما تعلمين أن الدين النصيحة كما قال رسول الله صلي الله عليه وسلم لذي فأهمس لك وأنا لك ناصح: 1- لا يجوز الحلف بغير الله (فمن حلف بغير الله فقد أشرك كما قال رسول الله صلي الله عليه وسلم) 2- لغتنا العربية أولي بالاحترام والتقديم علي غيرها - وسهلة الفهم (حتي علي مثلي من الصعايدة 😁) فلا داعي للتقليل من شأنها. ودمتم بسعادة وانشراح صدر بالاسلام.

أخى محمد احمد لطفى وزيادة فى الفائدة جرب إختراع أخى العزيز ابا جودى فى هذه الوحدة النمطية التى لا تكتفى بإزالة المسافات أول وآخر الجملة ولكن أيضا المسافات الزائدة بين الجمل Update -12.mdb

طبعا ابو خليل لديه ذلك فقط اسمح لي ان اضعها في مشاركة مستقلة يمكن ان يكون حولها استفسارات ونحو ذلك تفضلوا من هنا http://www.officena.net/ib/index.php?showtopic=55796