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

لا أعتقد إمكانية وضع 2 قاعدة للتحقق من الصحة ولكن يمكن التحايل على ذلك بالكود التالي في حدث عند تغيير محتويات الشيت sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then If Target.Offset(0, 1) = "" Then Target.Value = Null End If If Target.Column = 6 Then Target.Offset(0, -1).Select With Selection.Validation .Delete .Add Type:=xlValidateList, Formula1:="=$A$1:$A$3" End With End If End Sub مع تغيير امتداد الملف لصيغة تدعم الماكرو مثل xlsb بالتوفيق

المشكلة في هذه الملفات هو اختلاف عدد الأعمدة في الشيتات 10 و11 و12 ولكن تم التغلب عليها بإذن الله يمكنك استعمال هذا الكود لتنفيذ المطلوب Sub insertformula() Application.ScreenUpdating = 0 Dim strfile As String, objBook As Workbook, lr As Long, c As Integer strfile = Dir(ThisWorkbook.Path & "\*.xlsx", vbNormal) While strfile <> "" Set objBook = Workbooks.Open(ThisWorkbook.Path & "\" & strfile) c = objBook.Sheets("data").Range("b10").CurrentRegion.Columns.Count lr = objBook.Sheets("data").Range(IIf(c = 10, "j", "l") & Rows.Count).End(xlUp).Row objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").Formula = "=IF(Or(" & IIf(c = 10, "j", "l") & "12<5," & IIf(c = 10, "j", "l") & "12=""ن.م.ر""),""يكرر"",""ينتقل"")" objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").AutoFill Destination:=objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12:" & IIf(c = 10, "k", "m") & lr) objBook.Sheets("data").Range("b12").Select objBook.Close 1 strfile = Dir() Wend Application.ScreenUpdating = 1 MsgBox "Done" End Sub وهو لفتح جميع ملفات الاكسل بامتداد xlsx في مجلد البرنامج ثم عد الأعمدة ووضع المعادلة ثم حفظ المصنف وإغلاقه بالتوفيق

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ضع هذه الكود في زر امر On Error Resume Next If IsNull(ToDate) Or IsNull(FromDate) Or IsNull(EndYaer) Then MsgBox "íÌÈ ÇÎÊíÇÑ ÇáÝÊÑÉ æ ÇáÓäÉ ÇáãÇáíÉ ", vbCritical + vbMsgBoxRight, "ÊäÈíå" Exit Sub End If Dim varFilter As Variant varFilter = Null If Not IsNull(Me.Accounts) Then varFilter = (varFilter) & "[Account] LIKE '" & Me.Accounts & "'" End If If Not IsNull(Me.Customers) Then varFilter = (varFilter + " AND ") & "[Customer_ID] LIKE '" & Me.Customers & "'" End If If Not IsNull(Me.ToDate) Then varFilter = (varFilter + " AND ") & "[Registration_Date] Between " & DateFormat(Me.FromDate) & " And " & DateFormat(Me.ToDate) End If If Not IsNull(Me.Registration_document_Number) Then varFilter = (varFilter + " AND ") & "[Registration_document_Number] LIKE '" & Me.Registration_document_Number & "'" End If If Not IsNull(Me.EndYaer) Then varFilter = (varFilter + " AND ") & "[EndYaer] = " & Me.EndYaer End If DoCmd.OpenReport "Report1", acViewPreview, , varFilter الدائن-المدين.zip تحياتي

السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي الفاضل عبدالله جزاه الله خيرا هذا حل آخر بطريقة اخرى مع التحية test01.xlsx

تفضل test (4).xlsm

السلام عليكم اعضاء واساتذة منتدانا الغالي هذه محاولة وتعديل لمشاركة احد الاخوة الكرام فيما يخص الصلاحيات لقاعدة البيانات اكواد تشفير الرقم السري هي نفسها المستخدمة سابقا بالاضافة مع الاستعانة ببعض الشروح ملاحظة : في القاعدة اربعة مستخدمين ثلاثة منهم بصلاحيات محدودة والادمن بصلاحيات كاملة اسم المستخدم كلمة السر admin 0 A 1 B 2 C 3 Root1000.rar

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

فعلا هذا ما حدث مني (إلغاء تفعيل المشاركة) لأرى أين يوجد الخطأ في الكود وفي أي سطر وعند الضغط على الزر المراد لم يحدث أي خطأ معي

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

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

الغي الاستعلام القديم واعمل استعلام من query wizard.. اختار جدول الموظفين وادخل جميع الحقول ثم اختار جدول salary واختار الحقول التي تريدها بدون المفتاح الاساسي لانها اصلا مرتبطة بجدول الموظفين ..وهكذا بالنسبة لبقية الجداول واذا احتجت لشيء جديد افتح به موضوعا جديدا

تفضل اخي الكريم Ù_Ù_اÙ_ 2021.xlsb

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

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

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

الأرقام منسوخة من ملف نصي وتحتفظ بتنسيقها كنص حتى وإن غيرت تنسيق الخلايا إلى رقم ولي حيلة في مثل هذه الأمور ضغ في الخلية S5 هذه المعادلة =T5*1 وهي لضرب الرقم الموجود في T5 في 1 أي الاحتفاظ بنفس قيمته أو استعمال الدالة value =VALUE(T5) ثم اسحب المعادلة لأسفل ثم استبدل القيم القديمة بالقيم الجديدة من خلال التحديد والسحب والافلات بالتوفيق

جزاك الله خيرا وأحسن إليك أخي الكريم

تفضل اليك طريقتين سهلة للغاية label fade.accdb

في زر امر طباعة استبدل الامر Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview بالامر التالي 👇 Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview, , Me.Filter

ثانيا: بالنسبة لكل الحقول تضع can shrink=yes وكذلك بالنسبة لتفصيل التقرير can shrink=yes

السلام عليكم لنبدأ بمناقشة الموضوع سوية رغم خبرتي القليلة.. في البداية قم باعطاء تسميات لمسميات الحقول وليس للحقول نفسها مثلا (مخزن1) ثم تضع فيه هذا الشرط =IIf([Store_1] Is Null;"";"مخزن1")

وعليكم السلام 🙂 للتجربة ، احذف المعادلة من مصدر بيانات الحقل key ، وضعها في الكود ، ثم لتجربة عمل البرنامج ، اعطي قيمة الحقل Serial للحقل key كما هو في الكود التالي ، وهنا ستحصل على النتيجة الصحيحة 🙂 Private Sub Form_Load() SerialNumber = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber 'Me.KEY = ([SerialNumber] - 28170) * 2 Me.KEY = "-3121277418" If Me.Serial = Me.KEY Then DoCmd.Close DoCmd.OpenForm "password" Else MsgBox "يجـب عليـك تفعيـل البرنـامـج بطريقـة صحيحــة" End If End Sub جعفر

انظر الصورة لتفعيل الاخطاء يمكنك الذهاب اعلى الشريط وابحث عن formula (الصيغة) ثم تجد check error (تدقيق الاخطاء) ستجد خيارين اختار check error (معالجة الاخطاء)

تم استعمال دوال أخرى في البحث أدق وهي index & match تفضل ملفك بعد التعديل عميل2.xlsx

شكرا لكلماتك الطيبة تم تعديل سطر المعادلة وإضافة شرط أن تكون درجة المعدل أقل من 5 أو يساوي "ن.م.ر" في المشاركة السابقة لي بالتوفيق

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

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

تفضل التعديل 3الدائن و المدين.zip

زودنا بصورة من رسالة الخطأ جرب هذا التعديل Request.accdb

السلام عليكم.. في جميع لغات البرمجة التي لا تكون لغات ناتف فلا فائدة من استخدامها للتشفير لو تنادي بها قاعدة بياناتك. بدل الـ #C استخدم Delphi وقم بضغط الملف الناتج بحماية وليكن مثلا SafeEngine ومستحيل تنكسر بسهولة تتطلب شخص لديه خبرة في الكراكرز لا تقل عن 10 سنوات ووقت طويل

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

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

اتفضل المرفق طريق البرمجة https://wayprograms.blogspot.com/2021/07/shift-cancel.html

تفضل Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub cmdprt_Click() ' تعيين الطابعة الافتراضية SetDefaultPrinter ("hp LaserJet 1000") ' أمر الطباعة DoCmd.OpenReport "yourReport", acViewNormal End Sub لست بحاجة الى ip حيث تجد اسم الطابعة في الحاسب الرئيس في شاشة الاجهزة والطابعات صحيح قد تكون الطابعات من النوع والاسم نفسه ولكن تجد في آخر الاسم ما يدل على الموقع

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

ارفق الملف لتحديد سبب المشكلة

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... Hide (1).xlsm

أخي الكريم @خالد القدس لقد أخبر ك الأستاذ عبد الفتاح أنه يجب وضع مسار واسم الملف في متغير باسم filename ثم استعمال الكود السابق وبناء عليه يكون الكود هكذا كاملا وهذا دورك في استنتاجه dim FileName as strring FileName = "C:\Users\kj\Desktop\WOW\2021.xlsx" ActiveWorkbook.SaveAs FileName, , , , , , xlShared ملاحظتي الشخصية: معظم الاستفسارات ناتجة من أن بعض الأصدقاء لا يصبرون على التعلم وقراءة الموضوعات السابقة والبحث في المنتدى ومحاولة فهم الأكواد والمعادلات التي يعرضها عليهم غيرهم. بالتوفيق للجميع

رغم أن التصور ليس كاملاً لحاجتك هذا الكود يقوم بالبحث عن النماذج المفتوحة و يغلقها جميعا واحداً تلو الآخر ، ثم يتم فتح النموذج الذي تختاره Private Sub BClose_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject 'Search for open AccessObject objects in AllForms collection. For Each obj In dbs.AllForms If obj.IsLoaded = True Then 'Close the form if it is open DoCmd.Close acForm, obj.Name, acSaveYes End If Next obj '-------------------- 'Open new form here DoCmd.OpenForm "f1" End Sub آمل أن يكون هذا كافياً والله من وراء القصد ......

السلام عليكم تم تعديل واصلاح بعض الاكواد ارجو من الادارة رفع المرفق الاول وتثبيت هذا المرفق .... مع الشكر اهدي هذا البرنامج مفتوح السورس الي المنتدى واعضاءه الاعزاء كلمة المرور في كل البرنامج 1234 - البرنامج به كل ما يطلبه المحاسب بداية من ادخال الحسابات كما يحب المحاسب وايضا ادخالها كما هي في دفتر اليومية الخاصة به اي بنفس الترقيم المستخدم بشركته او مؤسسته وذلك من مميزات البرنامج لان كل البرامج التي في السوق تجد انها تفرض على المحاسب حسابات البرنامج والتي تكون ارقامها و ترتيبها مخالف لما هو معمول به عند المحاسب . - سند قيد يوميه - سند قبض - سند صرف - ترحيل تلقائي الى الاستاذ العام و الاستاذ المساعد و اليومية العامة و ميزان المراجعة و الحسابات الختامية - طباعة جميع التقارير التي يحتاجها المحاسب - عرض شجرة الحسابات وبه مميزات كثيرة ومفيدة للمحاسب الملف المرفق على اكسيس 2003 وان شاء الله سوف اقوم بتطويره على Vb.Net لي طلب وانا سوف اعتبره امانه لمن يعمل على البرنامج انه لا يلغي صورة ابني فهد من البرنامج تحت اي ظرف الرجاء من الادارة تثبيت الموضوع لاهميته ارجو ان يفيدكم ولا تنسونا بالدعاء اخوكم ابو فهد Acc2003.zip

بسم الله الرحمن الرحيم لقد سبق ونشرت في منتدانا الغالي علينا جميعاً موضوع تجاهل الهمزة وقد أعجبني كثيراً جزاك الله خيراً لكن هل هناك كود يقوم بتعديل الهمزة في جدول معين أو حقل معين ساعدني أرجوك

السلام عليكم ورحمة الله وبركاته method 'CurrentDb' of object'_Application failed مسج يطلع كل ما حولت اكون زر أمر او بالمعنى الأصح اذا فتحت على النماذج وقلت له أنشاء نموذج بأستخدام المعالج وقف وعطاني المسج اللي بالأعلى ، والحلول المجربه هي كالتالي: حذف الأوفيس 2000 وإعادت تنصيبه حذف الأوفيس ووضع اكس بي بداله تنزيل التحديثات الموجوده في موقع مايكروسوفت وكل هذا ما ينفع لان المشكله في ملف معين وها الملف موجود بالويندوز وكان الحل الأخير فورمات للجهاز :) وفوق هذا كلمت واحد مبرمج ما عرف يحله وقال الشباب في اوفيسنا فاهمين وعليهم العلم وها انا عندكم يا طيور شلوى ،، ما تبخلون علي بالنصيحه ودمتم سالمين

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

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

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

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

هل هناك دالة لفصل الكسر عن الرقم مثال 245.76 اريد دالة تفصل الكسر 0.76 عن الرقم 245.76 ولكم جزيل الشكر

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

الأخوة الكرام كيف اجعل التاريخ يحتوي على الشرطة المائلة علما بأني استطعت جمع التاريخ الموجود عندي في قاعدة البيانات في ثلاث حقول وعند جمعه في حقل واحد لم استطع ادخال الشرطة المائلة بحيث يظهر بهذا الشكل مثلا 24/12/1424

السلام عليكم مثال لإدخال ومتابعة التقويم الدراسي السعودي آمل أن ينتفع به . تحياتي . SaudiEducationCalendar_.zip