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

و عليكم السلام و رحمة الله و بركاته اخي العزيز محمد يمكن عمل ذلك بالطريقة التاليه : 1: تعين قيمة لخاصية النموذج ( Tag ) او بالعربي ( علامه ) و لتكن القيمه 1 2: في حدث عن النقر لزر الترحيل تضيف الكود التالي : Me.Tag = 2 الكود سيعين قيمة للخاصيه Tag للنموذج و هي 2 3 : في حدث عند النقر لزر امر الخروج للنموذج تضع الكود التالي : If Me.Tag = 2 Then DoCmd.Close Else MsgBox "لم يتم ضغط زر الترحيل" Exit Sub End If الكود سيفحص قيمة الخاصية للنموذج فإن كانت 2 اي انه قد تم ضغط زر الترحيل فسيتم اغلاق النموذج و ان كانت القيمة غير ذلك فانه سيظهر رسالة للمستخدم بأنه لم يتم ضغط زر الترحيل و يتم الخروج من الاجراء .... يمكنك استبدال الكلمة close بالكلمة quit ان اردت الخروج من البرنامج. ملاحظة : الخاصية Tag للنموذج تجدها في صفحة الخصائص و بالتحديد في اخر التبويب ( غير ذلك ) بالتوفيق

حياكم الله اخواني كود جميل استاذ يوسف ولكن ماذا لو قام المستخدم بالضغط على زر الترحيل ... ومن ثم لم ينفذ .. بمعنى ان المستخدم ضغط الغاء الأمر لم يضغط اوكي لتنفيذ الترحيل . هنا يجب ان ننقص عدد العلامات عند الالغاء me.tag= me.tag-1 . طبعا هذا اذا كان هناك رسالة تحتوي vbyes ,,vbno .. سوى ذلك اخ محمد ... لماذا لا تضع زر الترحيل من ضمن أمر الأغلاق .. ينفذ الترحيل ثم يغلق النموذج .. بالتوفيق للجميع .

وعليكم السلام أخي الغالي أبا الحسن والحسين إضافة لما تفضلت به في الملف المرفق من الكود ..إضافة بسيطة جداً لكي يعمل الكود على كلا النظامين 32 بت و64 بت (حيث أن الملف المرفق في المشاركة الخاصة بك سيعمل على 64 بت فقط) استبدال أسطر الإعلانات العامة في الموديول بهذه الأسطر #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If ليصبح الكود النهائي بهذا الشكل (الكود يوضع في حدث الفورم ) #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long #End If Sub RemoveCaption(objForm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97 Else mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+ End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() Call RemoveCaption(Me) End Sub ونقطة أخيرة للاستفادة الكاملة من الكود يمكنك وضع الإعلانات العامة والإجراء المسمى RemoveCaption في موديول عادي ..بينما يوضع حدث زر الأمر وحدث بدء تشغيل الفورم في حدث الفورم أي يمكن الفصل بينهما تقبل تحياتي

هذا هو الحل الاسهل ، واخونا عبدالله استعمله ، ولكن لأنه وضعه في اعدادات مصدر الحقل بعلامة = ، فقفل الادخال ، واخونا سعيد تفادى هذا الخطأ بوضع التنسيق في الكود انا كنت اعمل على نفس الفكرة ، ولكن بتفكيك مكونات الحقل a11 (طبعا الادخال سيكون كما هو ، وبعد الخروج من الحقل ، وفي نفس مكان سطر اخي سعيد ، كنت سأنادي وحدة نمطيه تقوم بتفكيك بيانات الخانه ، ثم إعادة تركيبها بالطريقة المطلوبه) جعفر هكذا: Private Sub a11_AfterUpdate() On Error Resume Next Dim sc As Integer Dim d As Date Dim S As String sc = Calendar Calendar = 0 d = CDate(a11.Text) Calendar = 1 S = CStr(d) a11hijri = Format(S, "YYYY/MM/DD") Calendar = sc Call Reverse_Date_Format End Sub Function Reverse_Date_Format() Dim x() As String If InStr(Me.a11, "-") > 0 Then a = "-" ElseIf InStr(Me.a11, "/") > 0 Then a = "/" End If x = Split(Me.a11, a) a0 = x(0) a1 = x(1) a2 = x(2) If Len(a0) > Len(a2) Then Me.a11 = a0 & a & a1 & a & a2 Else Me.a11 = a2 & a & a1 & a & a0 End If End Function جعفر

حياكم الله اخواني . اخ عبدالله جزاك الله خير انا اعتمدت تقريبا نفس الحل ولكن من خلال الكود .. بالمناسبة مرفقك لا يقبل الإدخال في حقل التاريخ لا اعلم لماذا . الأستاذ جعفر ماشاء الله عليك ... ليتنا كلنا كسالى . الأخ السائل الكريم اول شئ قم بتجربة حل الأستاذ جعفر .. ان كان يناسبك فخير وبركة .. ============================= ما لاحظته انا انك وضعت قناعي ادخال في النموذج وفي الجدول .... قم بالغاء القناعين . وقم بالإدخال عادي وبعد الخروج من الحقل سيتغير التاريخ كما طلبت فقط اظف سطر الى الكود الموجود لديك. Private Sub a11_AfterUpdate() On Error Resume Next Dim sc As Integer Dim d As Date Dim S As String sc = Calendar Calendar = 0 d = CDate(a11.Text) Calendar = 1 S = CStr(d) a11hijri = Format(S, "YYYY/MM/DD") Calendar = sc Me.a11 = Format(a11, "YYYY/MM/DD") End Sub لا حظ الإضافة هي السطر الأخير في الكود .. بالتوفيق فيه سؤال محيرني جدا ... ولكن وقفت عند رغبتك وما حبيت اكثر الأسئلة ماهو التقويم المعتمد في القاعدة ؟؟؟؟؟ اذا كان هجري فلماذا نحول الى هجري .... واذا كان ميلادي فلماذا لانضع الحقل تاريخ وكفى .. بالتوفيق

السلام عليكم ورحمة الله تفضل كود إخفاء إطار الفورم مع ملف إكسل جاهز KHMB إخفاء اطار الفورم.rar

السلام عليكم ورحمة الله عفوا لم انتبه الى اختلاف التسلسل بين الصفين تم اضافة عمود جديد وتم اخفاؤه اليك المطلوب نتيجة ام المؤمنين.rar

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

السلام عليكم ورحمة الله تعالى وبركاته واجهت مشكلة كبيرة عند حساب الايام بين تاريخين تاريخ البدء وتاريخ الانتهاء على سبيل المثال وكان ما يهمنى هو عدم احتساب الجمعة والسبت ضمن هذين التاريخين على اعتبار انهم عطلة اسبوعية ثم خطر ببالى كذلك عدم احتساب الاعياد والمناسبات الرسمية بحثت وظللت ابحث وسهرت ولم انم منذ الأمس بسبب هذه المعضلة ولكن لم اجد اى حل فى اى منتدى حتى تفضل على الاستاذ ابو خليل جزاه الله عنا كل الخير ان شاء الله ولكن بصراحة هذا الحل لم يرضى طموحى فذهبت للبحث مرة اخرىووجدت فى موقع مايكروسوفت هذا الحل الذى أحدث خطأ فنجم عنه خلل فى الحسابات وحاولت فهم الية العمل وظللت اجرب واحاول وأخيرا بفضل الله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل توصلت لحل وقمت بتجربته مرار وتكرارا وبعد أن تأكدت من صحة ودقة معالجة البيانات قررت ان ارفعه على هذا الصرح الشامخ ملاحظة يمكن الاستفاده من هذا المرفق فى الاتى 1- حساب ايام العمل الفعليه بدون ايام الاجازات الرسمية والعطلة الاسبوعية --- العطلة الأسبوعية بالنسبه لى انا كانت الجمعهة والسبت ممكن تعديلها ☺ 2- حساب الاجازة التى تخصم من الرصيد فيستثنى منها ايام الاجازات الرسمية والعطل الاسبوعية كذلك للعلم تعدل بيانات الاجازات الرسمية والتواريخ من خلال القاعدة طبقا لكل دولة حتى لا يتم احتساب هذه التواريخ أحبكم فى الله وانتظر ردكم بعد التجربة ActualDaysCalcult.rar

تفضل اخي هذا بالنسبة للتركيب والصيانه تضع في حدث بعد التحديث لنوع الزيارة . If Me.ziarah = "Tarkeeb" Then Me.Add_ziarh.Enabled = False ElseIf Me.ziarah = "Syannah" Then Me.add_ziarah.Enabled = True Me.add_ziarah.Value = 1 End If End Sub وهذا بالنسبة لزيادة 80 يوم تلقائي .. هو نفس الكود في الأعلى تضعه في حدث بعد التحديث للحالة: Me.ziarh = DateAdd("d", 80, AkhrZiarh) طبعا لك الخيار ان تغير المسميات الإنجليزية بالمسميات العربية لديك ... او تغير مسمياتك الى الإنجليزية ومازلت عند نصيحتيى جاوبتك فقط ارضاء لشخصك الكريم ..... بالتوفيق

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

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

أخي الكريم ارفق الملف الأخير .. وارفق شكل النتائج المتوقعة ..اضرب مثال أو مثالين لتتضح الصورة

أخي الفاضل أحمد محمد الحمد لله أن تم المطلوب على خير .. وإلى لقاء في موضوعات أخرى تفيد جميع إخوانك بالمنتدى You're welcome .. يا ويلكم يا ويلكم تقبل تحياتي

أخي الكريم مهند الحمد لله أن تم المطلوب على خير .. وإلى لقاء في موضوعات أخرى تقبل وافر تقديري واحترامي

إليك الملف المرفق كنموذج لشكل المعادلة .. التي يجب أن تكون عليها =SUM('عميل رقم(1):عميل رقم(4)'!A1) لاحظ وجود علامة Apostrophe قبل أول اسم لورقة العمل الأولى وبعد اسم آخر ورقة عمل .. هذا مع المسميات باللغة العربية يليها علامة تعجب ثم مرجع الخلية المطلوب جمعها أرجو أن يفي بالغرض total.rar

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

أخي الكريم أحمد إليك ملف للأخ الحبيب محمد الريفي لعله يفيدك في طلبك SUMIF In Multiple Sheets.rar أين المرفق الذي تريد تطبيق المعادلة في مشاركتك السابقة فيه؟

الأخ العزيز KHMB شكرا جزيلا لك .. وفقكم الله لكل خير .. مع شكري للعزيز ياسر خليل المبدع ....

نرحب بالمهندس يوسف احمد.. واخي سعيد صواب فعلا لماذا لا تضع كود الترحيل مع زر الاغلاق؟

السلام عليكم ورحمة الله اخي العزيز الاستاذ الفاضل / ياسر خليل بارك الله فيك رائع جدا فعلا ممكن لايعمل عند الكثير لان الاغلبية يعمل علي نظام 32 بت جزاك الله خير

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

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

استبدل في كل المصنف ..

أخي الكريم صلاح بالفعل مشكلة غريبة ..من المفترض أن يعمل الكود سواء الحرف كابيتال أو صمول .. ولكن يبدو أن سبب المشكلة كما تبين لك تقبل تحياتي

فعلا الحل بسيط لم يأتى على بالى .. بارك الله فيك اخى ابو البراء.. شكراً لك

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

شكرا استاذى الغالى هذا حقا ما اردت جعل الله هذا العمل فى ميزان حسناتك اللهم امين

أخي الكريم أحمد محمد حاول أن تتناول نقطة نقطة حتى لا يتوه الأعضاء منك لبندأ بمرفق آخر غير الأول حيث أنني لا أرى أن المرفق معبر عن الطلب في مشاركتك الأخيرة تطلب جمع نطاق في عدد 50 صفحة في نطاق محدد .. لما لا ترفق ملف به 5 صفحات فقط كنموذج ليحاول الأعضاء على أساسه وتكون الأمور أكثر وضوحاً وصدقني كلما كان الموضوع واضح حتى لو كان صعب ستجد استجابة .. تقبل وافر تقديري واحترامي

جرب هذا الملف متابعة المشتريات salim.rar

اخى الحبيب السلام عليكم ورحمة الله اليك المطلوب مع خالص تحياتى نتيجة ام المؤمنين.rar

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

بسم الله الرحمن الرحيم لا توجد طريقة امنة لحماية الاكسيل كما نعرف والذي لا يعرفه الكثيرين ان حماية الملفات التنفيذية ايضا لا فائدة منها فهي هشه كالملفات العادية فقمت بوضع حل نهائي ولكن سيكون صعب علي البعض وهو التعامل مع الفيجوال بيسك مباشرة وانشاء برنامجك من عليه وجعل ملف الاكسيل مجرد قاعدة بيانات وحتى ان كنت تريد حماية البيانات ايضا فبنعمل حماية للملف ايضا بكلمة مرور وهي صعب فكها اكيد في المثال المرفق برنامج قمت بطرحه مسبقا ولكن لم يلاحظ احد الحماية الموجودة به فهو ربط الفيجوال بيسك بالاكسيل الكل نظر له انه مجرد ربط فقط ولكنه اكثر الطرق حماية للاكسيل نفسه مرفق مثال بسيط عبارة عن ملفان ملف التشغيل وقاعدة البيانات وقاعدة البيانات aseel.dat هي عبارة عن ملف اكسيل بامتداد aseel.xlsx وتم وضع كلمة مرور عليه كلمة المرور رقم هاتفي طبعا المهم الطريقة امامكم طبعا حد يقدر يستخرج المعادلات او يعدل علي القاعدة بطرق غير الموجودة داخل البرنامج فانا اتيح لك اظهار ملف الاكسيل عادي ان قمت بعمل بعض التعديلات واخفاء الملف لن يستطيع احد العبث بالملف نهائيا وان تفرغت باذن الله اضع لكم شرح لهذا الموضوع باذن الله تعالى مع تحياتي ياسر العربي 101010.rar

لقد وجدت كل ماهو مطلوب للباركود 1D والباركود QRلقراءة الباركود وعملية استرجاع السجل وعن طريق كميرا ويب

اخى الفاضل جرب الملف المرفق ... طريقتين في الحل واحدة بمعادلة اخرى والثانية بالكود تحياتي total.rar

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

أخي الشاعر حياك الله المرفق معدل ، الصوت غير عامل على جهازي هذا جرب المرفق ووافني بالنتيجة .......... NA_Playsound.rar

عندك حق المرفق بعد التعديل وبه شرح بسيط المصنف3.rar

والأن مع الدليل المصور للتعامل مع البرنامج رابط لتحميل البرنامج : http://up.world-acc.net/do.php?id=37 الدليل المصور للتعامل مع البرنامج : - http://up.world-acc.net/do.php?id=38 برنامج حضور وإنصراف.rar الدليل المصور للتعامل مع البرنامج.rar

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

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