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

السلام عليكم ورحمة الله هذه محاولة أولى (بتحفظ) في الملف المرفق... بن علية حاجي الفرق بين الاجراءات - 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 منذ زمن وكنت ابتعدت فتره طويله عن التعلم واعود له حينما يكون هناك شىء اريد انا اعمله لتيسير امور عملى ولا غلبه ولا شىء استاذى العزيز جزاكم الله خيرا على مساعدتكم لنا نحن المبتدئين نحن اللذين نغلبكم ونرهقكم بافكارنا ومنكم نتعلم واحب المساعده كما تساعدوننا فمنها اتعلم جزاكم الله خيرا ووفقكم الله لما يحبه ويرضاه

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

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

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

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

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

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

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

يبقى اعمل اللى قالك عليه الاساتذة ولو عاوز رأى والله والله والله ما فى شئ اسمه حماية مطلقه كلها مسألة وقت فقط حتى تنكسر الانظمة العالمية يتم كسر حمايتها ارح عقلك وقلبك

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

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

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

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

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

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

أخى figo82eg إن كان المرفق هو المطلوب يبقى لازم تدفع دعوة حلوة بظهر الغيب PDFMove.mdb

اخي الكريم بذون ملف نمودج لما تريد يستحيل فهم السؤال ولكن جرب الكود الكود يعمل على نسخ صفحات الملف باستثناء Sheet2 يخزنها في مجلد باسم factur على سطح المكتب قم بانشاء مجلد على سطح المكتب وسميه factur ملاحظة يجب ان يكون في الشيتات بيانات Private Sub CommandButton1_Click() Dim fName As String Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In Sheets With sh If .Name = "Sheet2" Then GoTo 1 .Activate fName = ThisWorkbook.Name & .Name & Format(Now(), "dd-mm-yyyy- hh.mm.ss") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & "\factur\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With 1: Next sh Application.ScreenUpdating = True Sheets("Sheet2").Activate End Sub حفظ بي دي اف.xlsm

@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

تقاطع العمود مع السطر OK.xlsx اتمني هذا يفي بالغرض

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

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

وعليكم السلام-اهلا بك فى المنتدى , تفضل نموذج1.xls

اخى Elsayed Bn Gemy بارك الله فيك .. لكن هناك خطأ ما .. أنظر ويندوز 10 64 1903

وعليكم السلام ولعمل هذا يمكنك وضع هذه المعادلة بالتنسيقات الشرطية باللون الذى تريده للأعداد اللى اكبر من 8 =AND(E9<>"",E9>8) =AND(E9<>"",E9>8) أما بالنسبة اللى اقل من 3 فيمكنك استخدام هذه المعادلة مع اللون الذى تريده =AND(E9<>"",E9<3) تنسيق شرطى.xlsx

يمكن ان تستعين بالمعادلات الموجودة في هذا الملف لتكملة ملفك الخاص working_hours.xls

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