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

مشاركة مع اساتذي الاعزاء تفضل هذه المحاولة ارجو ان تكون موفقة Copy2.rar

السلام عليكم و رحمة الله تعالى و بركاته: لقد وعدت أخي و أستاذي @jjafferr بهدية تعجبه إن شاء الله. أولا: أنا شغوف بعمل الإضافات التي تنقص برنامج الأكسس فبعد عمل إضافة شريط الطباعة للتقرير أداة إضافة شريط القوائم لنماذج ها أنا اليوم أقدم لكم برنامجا آخر و هو "برنامج التحزيم" ثانيا: شرح البرنامج 1- نقوم بتسجيل اسم ملف التثبيت 2-نقوم بتسجيل اسم البرنامج 3- تسجيل رقم السريال 4- نضغط على الزر و نقوم بإضافة ملف البرنامج 5- نضغط على الزر و نختار أيقونة البرنامج 6- نضغط على الزر و نختار مرفقات البرنامج ثم نضغط على موافق يقوم البرنامج بإنشاء ملف التنصيب بصيغة accde ملاحظة: ملأ جميع البيانات إجباري فقط المرفقات ليس إجباري شرح طريقة التنصيب: و هذا هو البرنامج: برنامج التحزيم exe.rar

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

نتاج التعلم والاستفادة من اساتذة المنتدى الافاضل ( جامعة أوفيسنا ) والذين يستحقون مقاعد التدريس بأكبر الجامعات يسعدني إصدار تحديث لبرنامج مكافأة امتحانات النقل طبقا لآخر تعليمات صدرت من الوزارة للمديريات ويتميز هذا الإصدار إمكانية ادخال البيانات يدويا باللصق والقوائم المنسدلة أو عن طريق شاشة ادخال البرنامج بإمكانية التعديل في المستقطعات ونسب خصمها وذلك في صفحة نسب المستقطع أو ايقاف خصمها بوضع رقم (0) في خانة النسبة وكذلك يقوم البرنامج بحساب عدد الايام المستحقة للمحالين للمعاشات أو الوفاة بادخال تاريخ انتهاء الخدمة بعد تحديد ذلك من خلال قائمة منسدلة تحوى (قانون 155 ـ قانون 81 ـ معاشات ) حساب المكافاة لحظة ادخال بيانات الموظف ويمكن الاستعلام عن اى اسم من خلال صفحة الاستعلام مخرجات البرنامج كشوف مكافأة الموظفين ـ كشف اجمالى ـ مرايا التجمي ـ مسيرات المستقطع بالنسبة لخصم مستشفى المعلمين المطبق بمحافظة المنيا فقط يمكن ايقاف خصمه في باقى المحافظات عن طريق اختيار (لا تخصم ) من القائمة المنسدلة سواء كان الادخال يدويا أو بشاشة الادخال وكذلك يمكن عن طريق وضع (0) في صفحة نسب المستقطع أمام خصم المستشفى أسم المستخدم محمد فتحى كلمة المرور 1970 وكلمة محرر الاكواد 6101970 أرجو مراجعة البرنامج من اساتذتى الافاضل والعاملين بالتربية والتعليم بمصر 1578014707_2021.xlsb

السلام عليكم ورحمة الله وبركاته عندي برنامج وارغب بالتعديل على النموذج لكن للاسف في خانة عرض التصميم لا يمكن فتحها كما هو موضح بالصورة ما لحل ؟

تجميع و دمج عده ملفات عمل اكسيل في ملف عمل واحد Acc: Mohamed ElSayed 24 مارس، 2020 اضف تعليق 1,217 زيارة دمج عده ملفات عمل اكسيل في ملف عمل واحد كثيرا من الاحيان نحتاج في اعمالنا اليوميه الي تجميع و دمج عده ملفات عمل اكسيل في ملف عمل لنتعامل مع ملف واحد بدلا من التعامل مع عده ملفات و في هذا المقال نستعرض طريقه عمل ذلك بضغطه زر عن طريق كود برمجي مهما كان عدد شيتات العمل الذي نحتاج الي اضافته تجميع و دمج عده ملفات عمل اكسيل في ملف عمل واحد في البدايه دعنا نتعرف علي طريقه عمل هذا الملف ثم نستعرض فكره عمل هذا الكود كي نتمكن من تطوير هذا الكود في اعمالنا فالاهم من مجرد تطبيق اي كود هو فهمه كي نستطيع التعامل مع هذا الكود خطوات العمل دعنا نبدا بنسخ الكود المرفق و فتح ملف الاكسيل الذي نريد اضافه اليه كل الشيتات الاخري ثم اضغط Alt + F11 او اضغط ضغطه بزر الماوس الايمن علي اسم الشيت ثم اختر view code ليفتح محرر الاكواد ثم اختر من قائمه insert اختر module ثم قم بلصق الكود بعد ذلك قم بالحفظ و اغلق محرر الاكواد ثم انتقل الي الاكسيل و قم باختيرا save as من خلال القائمه file و غير صيغه الملف file type الي اي صيغه تقبل الكود و ليكن الصيغه xlsm الصيغه excel Macro-Enabled Workbook هي صيغه تتيح حفظ الاكواد و الوحدات النمطيه و النماذج داخل شيت العمل و تاخذ الامتداد .Xlsm بعد ذلك قم بنسخ هذا الملف داخل مجلد فارغ و قم بعمل مجلد اخر داخل هذا المجلد الفارغ و قم باعده تسميه هذا الملف الي اسم test ثم قم بوضع كل الملفات المراد دمجها الي مجلد test الجديد ثم انتقل الي ملف العمل الموجود به الكود و افتحه اضغط علي macro من خلال القائمه view اختر CollectWorkbooks اسم الماكرو الذي قمنا باضافته عن طريق الكود بمجرد عمل هذا الكود ينتقل كافه شيتات العمل من المجلد test الي الشيت المفتوح بنفس الترتيب خلال ثواني Option Explicit ()Sub CollectWorkbooks 'تعريف متغير من النوع النصي و اعطيناه اسم '( path) Dim Path As String 'تعريف متغير من النوع النصي و اعطيناه اسم '(Filename) Dim Filename As String 'تعريف متغير من النوع ورقه عمل و اعطيناه اسم ' (SH) Dim SH As Worksheet ' تعريف المتغير لترتيب اوراق العمل بالترتيب الصحيح و قمنا بافتراض قيمه اسميه له 'x Dim X As Long 'افترضنا قيمه افتراضيه للمتغير x بقيمه 1 X = 1 'تعين المتغير ليحدد مسار الملفات المراد دمجها بجوار مسار الملف الاساسي داخل مخلد test كاسم افتراضي Path = ThisWorkbook.Path & "\Test\" 'تعين المصنف ليساوي اسم كل مصنف داخل ملف العمل و مسار ملف العمل بصيغه ملف اكسيل ماكرو كضيغه افتراضيه يمكنها حفظ كود العمل Filename = Dir(Path & "*.xlsm") 'الغاء خاصيه اهتتزاز الشاشه Application.ScreenUpdating = False 'الغاء خاصيه الرسائل التنبهيه Application.DisplayAlerts = False 'حلقه تكراريه لحذف ورقه ما عدا ورقه المسار For Each SH In ThisWorkbook.Sheets If SH.Name <> "Collector" Then SH.Delete Next SH 'حلقه تكراريه للمصنفات الموجوده في المسار المحدد الي ان يجد اي مصنف في هذا المسار Do While Filename <> "" 'فتح المصنف Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 'حلقه تكراريه لكل اوراق العمل داخل المصنف النشط For Each SH In ActiveWorkbook.Sheets 'نسخ ورقه العمل و لصقها بنهايه فهرس اوراق العمل SH.Copy After:=ThisWorkbook.Sheets(X) 'زياده قيمه المتغير بمقدار 1 X = X + 1 'الانتقال لورقه العمل التاليه Next SH 'اغلاق المصنف Workbooks(Filename).Close 'اعاده ضبط المتغير Filename = Dir() Loop 'تنشيط او تحديد ورقه العمل الاولي Sheets("Collector").Activate 'تفعيل خاصيه التنبيه بالرسائل Application.DisplayAlerts = True 'تفعيل خاصيه اهتزاز الشاشه Application.ScreenUpdating = True End Sub حيث ان هذا الكود يقوم بعمل حلقه تكراريه علي اسماء الشيتات داخل المجلد test و البدا باول شيت ثم اعاده عمل حلقه تكراريه اخري جديده علي اسماء الشيتات الموجوده في هذا الشيت لنقلها بالترتيب و بعد الانهاء يقوم باغلاق ملف الاكسيل الاول و الانتقال الي الحلقه التكراريه الاولي لياخذ الملف التالي و يعود و يكرر نفس الحلقه التكراريه حتي ينتهي من كل ملفات الاكسيل داخل المجلد test و بعد الانتهاء تقف الحلقه التكراريه و يقف الكود تم وضع شرح للكود بكافه تفاصيله يمكنك مشاهده داله حساب ضريبه كسب العمل- داله مبرمجه في الاكسيل يمكنك مشاهده تحويل pdf الي ورد او اكسيل بدون برامج يمكنك مشاهده الطباعه في الاكسيل يمكنك مشاهده حمايه البيانات في الاكسيل قد يعجبك ايضا تصميم شيت اليوميه الامريكيه قد يعجبك ايضا شرح داله البحث الداله vlookup بالامثله و التطبيقات العمليه المصدر موقع المحاسب العربي https://acc-arab.com/2020/03/blog-post_24-2.html

تفضل هل هذا ما تريد ... importmarks.accdb

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء اطلب منك ايها الكرام المساعدة في انشاء برنامج صغير وخفيف لادارة جمعية خيرية كما هو مرفق للجداول المطلوبة للبرنامج لذا 00 اذا منحك الله نعمة فانثر شيئا من عبيرها على من حولك ، فلكل نعمة زكاة بارك الله فيكم وفي صحتكم وعلمكم واهليكم اخوكم ابو عبد الرحمن 00970592214556 فلسطين قطاع غزة saed2225@gmail.com برنامج.xlsx

تفضل صديقي هذا برنامج جمعية خيرية صممته عام 2018 صدقة جارية عن روح والدي رحمه الله جمعية خيرية1(2).rar الرقم السري للدخول للبرنامج 12345

السلام عليكم إخواني الكرام قمت بعمل نموذج للعمل عليه حيث يتمثل المطلوب مساعدتي عند اختيار اسم المدرسة من مربع تحرير وسرد يتم التعبئة التلقائية وظهورها لمربع نص ب رقم ترخيص المدرسة واسم السجل التجاري ورقم السجل التجاري نجح معي التعبئة التلقائية لرقم ترخيص المدرسة اما اسم السجل التجاري ورقم السجل لم ينجح NA_SER.accdb

إخواني الكرام kha9009lid عبد اللطيف سلوم husamwahab ثلاثتكم ما قصرتوا بالرد ووضع الحل واتعلمت الطريقة بأكثر من طريقة لحل المشكلة بارك الله فيكم وفي موقعنا officena وكل من به نشكركم كما عهدناكم دائما سباقين بحلولكم السريعة شكرا جزيلا حفظكم الله

بالخدمة استاذي العزيز

تفضل التعديل حسب فهمي لطلبك YAS1-2.rar

تم بنجاح سلمت يداك

بالخدمة استاذ خالد عبد الغفار

مشاركة مع اساتذتي الاعزاء NA_SER-2.rar

التعديل تمام الكود سيعطي نفس النتائج القديمة مع مراعاة التعديلات التي اجريت للكود لمنع تداخل المدارس

للتوضيح

جزاكم الله كل الخير تم الامر بشكل ممتاز سلمت يداك

جرب NA_SER.accdb

السلام عليكم 🙂 واليك طريقتي ، فهي تعتمد على اول رقم مفقود ، وقد لا تكون الاسرع 🙂 Public Function ReArrange() Dim rst As DAO.Recordset Dim RC As Long Dim First_Missing As Long Dim Last_Record As Long Dim Previous_Record As Long Dim Update_to As Long Dim i As Long Dim mySQL As String Set rst = CurrentDb.OpenRecordset("Select [jint] From [qry_Missing_Numbers]") First_Missing = rst!jint Set rst = CurrentDb.OpenRecordset("Select [planNo] From [tblKotah] Where [planNo]>=" & First_Missing & " Order By [planNo]") rst.MoveLast: Last_Record = rst!planNo rst.MoveFirst: RC = rst.RecordCount 'lets get to work DoCmd.SetWarnings False Update_to = First_Missing - 1 Do Until rst.EOF If Previous_Record = rst!planNo Then 'Update_to = Update_to Else Update_to = Update_to + 1 mySQL = "UPDATE tblKotah SET planNo =" & Update_to & " WHERE planNo = " & rst!planNo DoCmd.RunSQL mySQL End If If Previous_Record = rst!planNo Then 'GoTo Move_Next Else Previous_Record = rst!planNo End If rst.MoveNext Loop DoCmd.SetWarnings True rst.Close: Set rst = Nothing MsgBox "Done" End Function . وبعد اتمام العمل ، تستطيع استعمال الاستعلام qry_Missing_Numbers للتأكد ان جميع السجلات مسلسلة 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

وعليكم السلام ورحمة الله وبركاته كل ماعليك تعديل الكود بإضافة اسم النص المطلوب تحويله لنص فلاشي وتغيير رقم اللون حسب الرغبة Private Sub UserForm_Activate() For i = 1 To 10000 DoEvents L1.ForeColor = QBColor(Rnd * 15) Label2.ForeColor = QBColor(Rnd * 15) Label3.ForeColor = QBColor(Rnd * 8) Label1.ForeColor = QBColor(Rnd * 9) CommandButton1.ForeColor = QBColor(Rnd * 7) Call Sleep(200) Next i End Sub Test.xlsكما يجب أن يحتوي الملف على Module يحتوي الكود التالي Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) أرجو الله تعالى أن أكون وفقت في الاجابة على سؤالك

بارك الله فيكم

المثال مكتوب بالأكسس + VB.NET أولا: تحتاج 3 براميترات... الأول: مفتاح الإتصال بقاعدة البيانات SQLServer ثانياً: اسم الباك أب لقاعدة البيانات ثالثاً: مسار حفظ الباك أب Option Compare Database Private Sub Backup_Click() Dim BAK_File As String Dim SQLConnectionString As String Dim DatabaseBackupName As String Dim DatabaseBackupPath As String Dim Parameters As String BAK_File = CurrentProject.Path + "\BAK.exe" SQLConnectionString = "Data Source=.\SEMICOLONSQL;Persist Security Info=True;Database=AlraedDb;User id=sa;password=123@a;" DatabaseBackupName = "Backup" DatabaseBackupPath = "E:" DatabaseName = "AlraedDb" Parameters = SQLConnectionString & "," & DatabaseBackupName & "," & DatabaseBackupPath & "\" & "," & DatabaseName Call Shell(BAK_File & " " & """" & Parameters & """", vbNormalFocus) End Sub سورس ملف الـ VB.NET Imports System.Data.SqlClient Module BAK Sub Main() 'c0ded bY: SEMO.Pa3x 'date: 23-5-2021 : 05:01 PM For Each arg As String In My.Application.CommandLineArgs Dim argArray() As String = Split(arg, ",") 'vars to split args Dim SQLConnectionString As String = argArray(0) Dim DatabaseBackupName As String = argArray(1) & " " & DateTime.Now.ToString("yyyy-MM-dd-HH-mm tt") Dim DatabaseBackupPath As String = argArray(2) Dim DatabaseName As String = argArray(3) Using con = New SqlConnection(SQLConnectionString) 'open connection con.Open() 'check connection is open ? If con.State = ConnectionState.Open Then 'check connection is open ? Dim str As String = "backup database " & DatabaseName & " to disk='" & DatabaseBackupPath & DatabaseBackupName & ".BAK' WITH INIT" Using cmd = New SqlCommand(str, con) cmd.ExecuteNonQuery() End Using con.Close() End If End Using Next End Sub End Module مدة العمل ( 3 ساعات ) وأنا أكتب الأكواد Backup_By_SEMO_Pa3x.rar

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

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

استاذ محمد عذرا لم اتمكن من تحميل الملف الذي ارفقته عموما في الملف المرفق اختيار صف من خلال قائمة منسدلة وحسب معيار محدد والمعيار هنا (A;B) عله يلبي طلبك تحديد صفوف من خلال قائمة منسدلة لغرض اخفائها.xlsm

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