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

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

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

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

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

Private Sub dd_Click() On Error Resume Next Me.t = Me.WebBrowser4.Document.getElementById("twd").innerText Me.t1 = Me.WebBrowser4.Document.getElementById("dd").innerText End Sub Private Sub Form_Load() Me.WebBrowser4.Navigate "https://time.is/ar/Egypt" End Sub دى الاكواد ومفيش جداول او كائنات اخرى اصلا سوى النموذج الذى اقتبست منه الاكواد

أخي ما عهدناك تسىء الظن باخوتك في المنتدي هكذا.. والله المستعان أولا- وبغض النظر عن أي شىء أريدك أن تعلم أن كلا من أعضاء المنتدي ما يألون جهدا في بذل ما لديهم من علم لوجه الله وحده أحسبهم كذلك والله حسيبهم ولا أذكي علي الله أحدا. وما رأيت أحدا منهم طلب مقابل مادي عن ما يبذل طوال انضمامي لهذا المتدي من 2014 تقريبا حتي الآن. سوي في قسم الاعلانات وهو كما تعلم لمن أراد المعاملات التجارية أو طالب برامج كاملة ستتطلب وقت وجهد وتفرغ بشأنها! ثانيا- أمر الحماية أشبه بمعركة كبيرة ما بين من يقوم بسد ثغرة ومن يقوم بكسر هذه الثغرة واكتشاف أخري حتي علي أكبر مستويات البرمجيات حماية لم تسلم من التكريك وكسر حمايتها وان كنت لا تعلم بشأن ما يسمي بالهندسة العكسية فأحيلك الي هذا الرابط https://www.at4re.net/f/ وان كان هذا خارج موضوعنا ولكن لتعلم أن أمر وجود حماية مطلقة غير موجود علي أرض الواقع - ولكن هناك حماية قوية لا يمكن كسرها بسهولة لذي عليك اتباع ما تستطيع من اجراءات لحماية برنامجك ثم فوض الأمر الي الله. ولا تقلق لن نطلب منك مقابل مادي حيال هذه المعلومات

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

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

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

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

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

إن كنت ستنقل جميع ملفات 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

تفضل لك ما طلبت الهدف1.xlsx

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

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

وعليكم السلام-لك كل ما طلبت استمارة موظفين.xlsm

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

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

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

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