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

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

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

ان من أهم خصائص منتدي أوفسنا روح المودة التي أحس بها وألمسها بين أعضائه وان كان مجتمعا افتراضيا لا يلمس ولكن هذا ما أصدقكم به القول فأنا أحبكم جميعا وأكن لكم التقدير والاحترام .. وان كان اختلاف الآراء لا يفسد للود قضية .. فلا داعي لأن يصل النقاش الي نقطة خلاف. وليقل بعضنا عثرات بعض فهذا ديدن الإخوة بعضهم لبعض. أ @محمد صلاح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

معدالبرنامج/م أحمد محمد السردي 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

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

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

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

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

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

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

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

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

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