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

شكرا جزيلا اخوي كاسر 🙂 هذه فكرة ان شاء الله استخدمها للنسخة التالية 🙂 بحيث ، نجمع هذا العمل مع Backup ، سواء بزر او عند الخروج من البرنامج 🙂 جعفر

وعليكم السلام ورحمو الله وبركاته هذا الموضوع قتل حلا في المنتدى من الأفضل ان تبدأ بالبحث عن السؤال ولكن أخي الكريم لك ما أردت وأيضا رقم المسلسل يظهر تلقائيا يكفيك فقط ان تدخل رقم الموظف New Microsoft Excel Worksheet.xlsx

وعليكم السلام 🙂 هناك مجموعة امثلة لملفات الاكسل اللي من موقع النور : . . . . . رجاء تشوفها ، واذا المطلوب غير هذا ، رجاء تخبرنا 🙂 جعفر

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

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

لك ما تريد لا احد يستطيع تحديد اي خلية في اول 3 أعمدة Protect_3_columns.xlsm

السلام عليكم 🙂 رجاء مراجعة موضوع النسخة 2 من هنا : واجهة هذه النسخة: البرنامج يقوم بهذه الخطوات التي يوصي بها المحترفين (كما هو موضح في الصورة اعلاه) ، طريقة العمل: 1. اختار ملف اكسس ، 2. اذا الملف محمي بكلمة سر ، فيمكن كتابته في المربع المخصص ، حيث سيتم حفظه في ذاكرة الكمبيوتر ، والتي يجب عليك ان تدخلها يدويا للقيام بالخطوات 2 و 3 لمرة واحدة ، بينما البرنامج سيدخلها تلقائيا للخطوات التالية ، 3. يجب ان تمسك مفتاح الشفت ، ثم تضغط على زر Decompile ، ولا تترك الزر إلا لما ينتهي البرنامج من عمله ، عندما نرى الخطوات 8 و 9 🙂 هذه النسخة اسرع من النسخة السابقة ، وافضل 🙂 جعفر Decompile_3.zip

شكرا جزيلا استاذ احمد

السلام عليكم الملف الاول التعديل بدالة iif عن طريق الاستعلام الملف الثاني التعديل بدالة if عن طريق النموذج الملف الثالث التعديل بدالة Select Case تحياتي math.rar math 2.rar Select Case.rar

وعليكم السلام هل هذا ما تريد ؟ Private Sub student_AfterUpdate() If Len(Me.student & "") = 0 Then Me.wezary = 0 ElseIf Me.student < 200 Then Me.wezary = 1 ElseIf Me.student >= 200 And Me.student < 300 Then Me.wezary = 2 ElseIf Me.student >= 300 And Me.student < 400 Then Me.wezary = 3 ElseIf Me.student >= 400 And Me.student < 500 Then Me.wezary = 4 ElseIf Me.student = Null Then Me.wezary = Null End If End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق math.accdb

السلام عليكم اخي العزيز اي مفتاح اخترت ؟؟ انظر لرابط مايكروسوفت تحياتي https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/sendkeys-statement

السلام عليكم 1- ملف مرفق للاستاذ ابو حليل 2- ملف مرفق للست زهره اتمنى يكون المطلوب تحياتي تصدير جدول الى سطح المكتب.rar TransferText-Up.rar

شكرا استاذ احمد وشكرا استاذ خالد

شكرا لك نبهتني الى امر مهم والحمد لله انحلت المشكله عملت للملف تحويل وظهرت بقية الاعمدة

نعم مثل ما قلت حولها الى xlsm او xlsb

وعليكم السلام-حاول استخدام هذا الكود Sub ProtectAll() Dim wBk As Workbook Dim sFileSpec As String Dim sPathSpec As String Dim sFoundFile As String sPathSpec = "C:\MyPath\" sFileSpec = "*.xls" sFoundFile = Dir(sPathSpec & sFileSpec) Do While sFoundFile <> "" Set wBk = Workbooks.Open(sPathSpec & sFoundFile) With wBk Application.DisplayAlerts = False wBk.SaveAs FileName:=.FullName, _ Password:="swordfish" Application.DisplayAlerts = True End With Set wBk = Nothing Workbooks(sFoundFile).Close False sFoundFile = Dir Loop End Sub أو جرب هذا Add password to all Excel workbook in folder او تلك Lock a Folder – In Windows – Excel Folder Lock Code أو هذا How to protect all workbooks in a folder at once in Excel?

السلام عليكم تفضل اخي الكريم طلبك اخي نسالك الدعاء تحياتي اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة ) (1)اختبار.rar

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

اخي العزيز ممكن عمل ذلك عن طريق الاستعلام تفصل انشاء الله يكون المطلوب اخي هل الضغط علة زر الاعجاب بالاجابة صعب عليك؟؟ تحياتي اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة ) اختبار-4.rar

والله بديت اشك انه المشكلة فيني انا 😂😂😂😂 راح اجرب وان شاء الله تظبط

وعليكم السلام 🙂 بعض الاوقات ، وهذا حصل معي ، يعطب الكومبوبوكس !! فلا تحاول وتعمل اي شيء ، سوى حذفه وعمله من جديد (لا تنسخ الكائن/الكومبوبوكس القديم ، نعم تقدر تنسخ الكود) 🙂 جعفر

السلام عليكم ورحمة الله وبركاته اهلا بحضرتكم جميعا النهاردة باذن الله هشرح طريقة جديدة .. للتأكد من ملء كافة الحقول قبل الانتقال الى سجل جديد مع الغاء زر الانتر والتاب من الانتقال بهم الى سجل جديد وده شرح فيديو لطريقة تنفيذ الطريقة MS_Be sure to fill in all fields.rar

بالاضافة لما ذكر أخي @أحمد الفلاحجى يجب ان تكون البيانات في جدول وجدول اخر لايام الغياب أو ايام الحضور لأنك حتسجل أكثر من سجل واحد خلال اسبوع مثلا

هل الجداول في قاعدة والنماذج في قاعدة أخرى ؟؟؟؟؟

الاخ الفاضل جعفر كل الامتنان و التقدير لشخصك الكريم ولهذا المنتدي الرائع

أ.suliman1971 جرب هذه الطريقة البدائية ID1.accdb

انا بالحقيقة لا احب ان اتعامل مع اليوزر لذلك وجدت لك هذه الطريقة(عسى ان تنال الإعجاب) و هناك مجال اخر للعمل بواسطة الماكرو الكود Option Explicit Sub TEST() If ActiveSheet.Name <> "Salim" Then Exit Sub Dim I%, M%, X%, T% Dim arr, nEW_KEY, ky Dim Dic As Object, AL_DIC As Object Set Dic = CreateObject("Scripting.Dictionary") Set AL_DIC = CreateObject("Scripting.Dictionary") Range("H3").CurrentRegion.Clear I = 4 Do Until Cells(I, 1) = vbNullString If Not Dic.EXISTS(Cells(I, 1).Value) Then Dic.Add (Cells(I, 1).Value), Cells(I, 2).Value Else Dic(Cells(I, 1).Value) = Dic(Cells(I, 1).Value) & _ "*" & Cells(I, 2).Value End If I = I + 1 Loop For Each ky In Dic.KEYS arr = Split(Dic.Item(ky), "*") For M = LBound(arr) To UBound(arr) AL_DIC(arr(M)) = "" Next M Range("H3").Offset(, T) = ky For Each nEW_KEY In AL_DIC Range("H3").Offset(X + 1, T) = nEW_KEY X = X + 1 Next nEW_KEY AL_DIC.RemoveAll T = T + 1: X = 0 Next ky Set AL_DIC = Nothing: Set Dic = Nothing Erase arr With Range("H3").CurrentRegion .Borders.LineStyle = 1: .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 40 End With End Sub الملف مرفق My_test2020.xlsm

لا أعلم اذا كان هذا المطلوب Education_Job.xlsx

السلام عليكم 🙂 هناك 3 طرق لعمل الذي تريده ، فإختار الطريقة التي تناسبك 🙂 . 1. اختيار السجل كاملا: الكود Private Sub Form_Current() Me.my_ID = Me.Text1 End Sub والتنسيق الشرطي واحد للحقول كلها Expression is: [my_ID]=[iid] . 2. اختيار كل حقل بطريقة مستقلة ، وبيانات الحقل المتشابهة كلها ستظهر : الكود Private Sub Text1_Click() Me.my_ID = "1|" & Me.Text1 End Sub Private Sub Text2_Click() Me.my_ID = "2|" & Me.Text2 End Sub والتنسيق الشرطي للحقل iid Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=1 And Mid([my_ID],InStr([my_ID],"|")+1)=[iid] للحقل fName Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=2 And Mid([my_ID],InStr([my_ID],"|")+1)=[fName] . 3. اختيار كل حقل بطريقة مستقلة ، وكل حقل له استقلاليته : الكود Private Sub Text1_Click() Me.my_ID = "1|" & Me.Text1 & "|" & Me.Text2 End Sub Private Sub Text2_Click() Me.my_ID = "2|" & Me.Text1 & "|" & Me.Text2 End Sub والتنسيق الشرطي للحقل iid Mid([my_ID],1,InStr([my_ID],"|")-1)=1 And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName] للحقل fName Mid([my_ID],1,InStr([my_ID],"|")-1)=2 And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName] . جعفر 1174.RemainFocus_OutsideForm.accdb.zip

السلام عليكم تفضل اخي الكريم ارجو ان يكون طلبك ملاحظة : فقط الادمن موجود وتستطيع اضافة مستخدمين جدد الاسم والباسورد للادمن : admin Root700.rar

السلام عليكم 🙂 رجاء معاينة qry_All ، وسترى اننا بحاجة الى المزيد من البيانات ، مثل الشهر (من اين نأخذه ، هل من النموذج) ونقارنه مع اي حقل في الجدول 🙂 رجاء تعبئة بيانات الجداول المطلوبة 🙂 جعفر HR.zip

الحمدلله 🙂 الظاهر القلة من الاعضاء يعرف اهمية هذا البرنامج (وخصوصا بنسخته الاخيرة 🙂 ) فياريت ، وبدون امارة عليكم اخواني @kaser906 و @محمد سلامة و @سلمان الشهراني ان تعطونا بعض تجاربكم ، حتى يستفيد الجميع 🙂 جعفر

حياك الله 🙂 جعفر

هذه المعالة واسحب نزولاً (لا تحصل على نتيجة الا اذا كانت الخلية F و الخلية G غير فارغتين وتحتوي اعداداً فقط) =IF(OR(NOT(ISNUMBER(F8)),NOT(ISNUMBER(G8))),"",G8*F8) الملف مرفق Alpha.xlsx

تحيه وتقدير للقائمين على هذا الصرح الكبير لقد ادمنت هذا المنتدى يوميا وبفترات طويله لحبى للتعلم وهذا الصرح اصبح هو الخيار الاول لى شكرا لكم مع التمنى بالتقدم والازدهار

Ali Mohamed Ali دا نورك استاذنا الغالى والله انا ليا شرف انى اتعلم من اساتذة عباقرة فى هذال المجال

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

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

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

أستاذ نبع الوفى أين الضغط على الإعجاب ؟!💙

تم معالجة الامر Book_SAALIM.xlsx

رابط جديد https://drive.google.com/open?id=0B5oTVOnhU-rrOXZhZlZLbjFBSFk اخي الفاضل جزاك الله خير ا ماكنت غير اني سبب والكن الشكر كل الشكر للاستاتذه الذين ساهمو معي في هذا البرنامج ويرجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله الف شكر لكم استاتذتي الافاض لكم مني كل الشكر والتقدير وجعلكم الله عونا لكل محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء ارجو من كل من يستفيد من هذا البرنامج الدعاء لكل من ساهم في هذا البرنامج في الرابط الجديد وضعت زر امر لفتح الاسكان عن طريق شورت كت علي سطح المكتب واستدعاء المسار من نموذج تغير مسار حفظ البرنامج زر النموذج في الشاشة الرئيسية لكي تستطيع فتح الاسكنر من داخل البرنامج دون الخروج

حسب فهمي لطلبك هذا اضف هذا الى كودك Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd") اي سيكون الكود كالتالي Private Sub btn_mkdir_Click() Dim fs As Object Dim a As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) = True Then MsgBox "المجلد موجود سابقاً" Else Set a = fs.Createfolder(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd") MsgBox "تم عمل المجلد بنجاح" End If End Sub والله يعلم

وعليكم السلام تنبيه : المعادلات من نوع الصفيف تفضل جرب المرفق توزيع السوادس1.rar

السلام عليكم بعد اذن الاخوة الكرام هذا تصوري للاجابة هناك جدول للدرجات و الوصف يمكن التحكم به QUESTION1.rar

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

السلام عليكم مثال جميل وشرح رائع من الأستاذ خضر يمكنك الاعتماد عليه بكل جدارة أخي أبو الوليد . وفعلاً كما ذكر الأستاذ خضر به أمور خاصة يجب مراعاتها أما سؤال كيف يتم احتساب واليسار في الحقيقة الدالة لا تعرف إن كنت تتبع يمينًا أو يسارًا إنما تقوم بإعادة وضع الكائن - مربع تسمية ، مربع نص ، ... - باالنسبة ليسار النموذج بالمعادلة التالية .Left = Me.Width - (.Left + .Width) والعملية الحسابية تعني اجعل بعد الكائن من يسار النموذج = عرض النموذج - ( بعد الحالي للكائن عن يسار النموذج + عرض الكائن ) حيث : .Left : بعد الكائن عن يسار النموذج me.width: عرض النموذج .Width: عرض الكائن ملحوظة مهمة جدًا: في حالة وجود كائن بالنموذج من نوع "مجموعة خيارات" فإن الدالة تغيير الاتجاه ستعطي نتائج غير متوقعة . لذلك تحتاج إلى إضافة أخرى سواء على الدالة المذكورة أعلاه أو مثال الأستاذ خضر . أخوكم أبو سليمان

السلام عليكم أخي ابا الوليد ، بارك الله فيك أولا : لا أنصحك بإستخدام الكود أعلاه لأن به أمور متعددة وضعت لأهداف خاصة بذلك البرنامج. ثانيا: قمت بتصميم مثالاً لك خصيصا ، تستطيع استخدام الطريقة التي فيه ، للتحويل بين لغتين مع أي نموذج وقد وضحت فيه الخطوات اللازمة بالترتيب. مع الاحترام ChangeLanguageExample.rar

السلام عليكم تم تعديل الملف بتفيذ ما تفضل به الأخ أبو هادي : التسجيل يتم فى نفس الخلية b65535 و لكن فى ورقة عمل تسمي S و هي مخفية و محمية بكلمة سر = m Private Sub Workbook_Open() Application.ScreenUpdating = False Sheets("s").Visible = True ActiveWorkbook.Sheets("s").Select ActiveSheet.Unprotect ("m") Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" ActiveSheet.Protect Password:="m", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWindow.SelectedSheets.Visible = False Application.ScreenUpdating = True Application.ActiveWorkbook.Save Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 ActiveSheet.Protect Password:="m", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWindow.SelectedSheets.Visible = False Application.ScreenUpdating = True Application.ActiveWorkbook.Save End Sub و لتفريغ الخلية بعد استفاذ الخمسة مرات لا نفعل الماكرو اذا سأل عند فتح الملف فى حالة مستوي الحماية المتوسط ، أو نضغط شيفت مع الفتح لايقاف الماكرو فى حالة التشغيل التلقائي للماكروهات ثم نظهر الورقة المسماة s ثم نفك حمايتها ، بكلمة السر M ثم نفرغ الخلية التي نسجل بها القيمة و بالنسبة للكود تم اضافة Application.ScreenUpdating = False حتي لا يري المستخدم عملية اظهار و فك حماية الشيت من أجل تسجيل القيمة بها و أعيد تفعيلها قبل الخروج أيضا أضيفت كلمة سر لللحماية عند تفعيلها ActiveSheet.Protect Password:="m" و استخدمنا نفس كلمة السر عند فك الحماية ActiveSheet.Unprotect ("m") مع تحياتي Countopens2.zip