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

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

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

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

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

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

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

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

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

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

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

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

تعددت الحلول والنتيجة واحدة احسنت اخي العزيز kha9009lid

ممكن هذا الكود تم تغيير اسماء الصفحات للغة الاجنبية لسهولة التعامل مع الكود من حيث النسخ واللصق دون ظهور احرف غير مفهومة Option Explicit Sub Extract_by_16() Rem Created by Salim Hasbaya On 12/10/2019 Application.ScreenUpdating = False Dim my_rg, i%, X, last_range As Range Dim S As Worksheet Dim T2 As Worksheet Set S = Sheets("sheet1") Set T2 = Sheets("Templete_2") Dim lra%: lra = S.Cells(Rows.Count, 1).End(3).Row Dim m%: m = 13 For i = m To 2500 Step 37 T2.Cells(i, 4).Resize(16, 2).ClearContents Next m = 13 For i = 2 To lra Step 16 If lra - S.Cells(i, 1).Row < i Then X = lra - i Set last_range = _ S.Cells(i, 1).Resize(X + 1, 2) Exit For End If Set my_rg = S.Cells(i, 1).Resize(16, 2) T2.Cells(m, 4).Resize(16, 2).Value = _ my_rg.Value m = m + 37 Next i If Not last_range Is Nothing Then T2.Cells(m, 4).Resize(X + 1, 2).Value = _ last_range.Value End If Application.ScreenUpdating = True End Sub الملف مرفق VIVA_Mia.xlsm

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

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

اخي الكريم قم بانشاء مجلد factur في Documents انا جربته وهو 100/100 هذه صورة داخل مجلد factur بعد تنفيذ الكود ان لم يعمل ارسل صورة للمستندات او documents المكتبة الصوتية.xlsm

كما تعلم أن الكمال المطلق لا يكون الا لله سبحانه ووجود ما هو حماية مطلقة لا اعتقد انه شئ موجود علي أرض الواقع - لم احب أن اقول شئ مستحيل حتي لا تصاب بالاحباط - ولكن قوة وسلامة اجراءاتك المتخذة ستجعل الأمر صعب أول قل ان شئت شبه مستحيل علي المبتدئين - مثلي - والمتوسطين وقبيل مرحلة الاحتراف. واكرر ما قال أستاذنا عصام ربيع في موضوع مشابه أيهما أسهل تعديل تصميم لغيرك أم انشاء تصميم جديد؟! بطبع اختيار انشاء تصميم جديد بالنسبة للمحترفين هو الخيار الأمثل من اضاعة الوقت في فحص وتحليل وفهم تصميم آخر ثم القيام بتعديله بعد ذلك. وازيدك اطمأنان: لا تقلق بشأن العبث ببرنامجك فمهما بلغ تصميمك لن يساوي شئ أمام برامج يتم بيعها بمئات أو آلاف الدولارات. (ولا تغضب مني بشأن هذا فأنا لا أقلل من قيمة عملك) ولكن أنبهك أن لمن عنده النية لتكريك برنامج لديه ما يصرفه عنك فهو انما يبحث عن الصيد الثمين! تمنياتي بالتوفيق

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

إن كنت ستنقل جميع ملفات PDF من فولد مسمى مثلا PDF على محرك ال D الى فولدر بنفس الاسم على محرك ال E فاستخدم هذا الكود والذى يقوم بالنقل والإستبدال اذا كان الملف موجود مسبقا أنشى فولد بإسم PDF على المحرك D وضع به بعض ملفات PDF .. وأنشى فولدر آخر بإسم PDF على المحرك E ودعه فارغا ضع زر أمر على نموذج وأدخل الكود التالى فى حدث عند الضغط .. ووافنى بالنتيجة Dim fso Set fso = VBA.CreateObject("Scripting.FileSystemObject") sSourceFile = "D:\PDF\*.pdf" sDestinationFile = "E:\PDF" fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile واذا رغبت فى عدم مسح ملفات المصدر فإلغى آخر سطر من الكود خالص تحياتى

السلام عليكم هنا تجد تحايلا علي هذا جرب أن تستورد كائنات هذه القاعدة ووافنا بالنتائج ملاحظة: هذه القاعدة من أعمال أستاذنا صالح حمادي وقد قمت بالتعديل عليها للتجربة فحسب. استخراج التاريخ من النت.mdb

بعد اذن الاخ احمد وزيادة في اثراء الموضوع هذه المعادلة (Ctrl+Shift+Enter) =INDEX(ورقة1!$B$5:$CI$500,MATCH($C$2&$D$2,ورقة1!$B$5:$B$500&ورقة1!$C$5:$C$500,0),MATCH($D6,ورقة1!$B$4:$CI$4,0))

المعادلة لا تنظر الى شكل الخلية او لونها او طولها او عرضها او شكل الخط فيها كل ما يعني لها هو محتوى الخلية (رقم / نص / فراغ الخ...) لذلك ريثما تقوم مايكروسوفت باضافة (ما تحلم به من معادلات لتلوين الخلايا) ما علينا سوى استعمال الكود او التنسيق الشرطي لا حظ هذا الملف MY_min.xlsx

غير التاريخ الموجود بالخلية A2 كما تريد ولا تقوم بالمساس للمعادلات

زيادة في اثراء الموضوع و بعد اذن اخي الحبيب علي هذا الملف ADD_SHEET.xlsm

وعليكم السلام-تفضل لك ما طلبت TEST1.xlsm

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

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

وعليكم السلام-لك ما طلبت بيان1.xlsx