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

استخدم هذا الخط عن تجربة جميع الاجهزة تستطيع قرائته تحميل الخط من هنا barcode-font

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Combo23_Click() If DLookup("[Id]", "[price]", "[Id] ='" & Me.Combo23.Column(0) & "'") > 0 Then MsgBox "العنصر مضاف من قبل" Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT price.*FROM price;") Rs.AddNew Rs("Id") = Me.Combo23.Column(0) Rs("xname") = Me.Combo23.Column(1) Rs.Update Rs.Close Me.pricesub.Requery End If End Sub مكرر.rar تحياتي

السلام عليكم 🙂 في الكثير من الاحيان لما نكون في وضع التصميم ، في النموذج او التقرير ، نتمنى لو انه بإمكاننا تكبير الشاشة حتى نرى تفاصل الكائنات ونضعها بجوار بعضها بدقة ، ولكن للأسف الاكسس لا يقدم لنا هذه الخاصية (مثل الاكسل والبوربوينت مثلا) 🙂 في الواقع الوندوز يقدم لنا هذه الخدمة ، ولكن كبرنامج مستقل 🙂 يمكنك استخدام برنامج التكبير بطريقة مستقلة ، بإستخدام ازرار الكيبورد: 1. لإغلاق البرنامج ، زر الوندوز + Esc 2. لتكبير الشاشة ، وتكون ثابته ، زر الوندوز + Alt + F 3. لتكبير الشاشة كمكبر يدوي ، زر الوندوز + Alt + L . وهذه هي الاعدادات التي استعملها انا : . والآن اليكم هذه الطريقة في برنامج الاكسس (يمكننا استعمال اختصارات الوندوز اعلاها في عملنا كذلك) : نموذج به نوعين من تكبير الشاشة ، تستعمل الطريقة التي تفضلها لوضعك 🙂 . الكود هو: Private Sub btn_Zoom_Click() 'open/close the magnify glass If Me.btn_Zoom = -1 Then 'turn ON the magnifying glass 'Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub Private Sub btn_Zoom_lens_Click() 'open/close the magnify glass If Me.btn_Zoom_lens = -1 Then 'turn ON the magnifying glass Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide 'Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub . واما كود اغلاق برنامج التكبير ، اي يوقف تشغيله من الكمبيوتر: '--------------------------------------------------------------------------------------- ' Procedure : WMI_KillProcesse ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Forcibly kill all the instances of a specified process ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/ ' Req'd Refs: Uses Late Binding, so none required ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sProcessName : Name of the process to kill ' sHost : Host computer to query, omit for the local PC ' ' Usage: ' ~~~~~~ ' Call WMI_KillProcesse("explorer.exe") ' Call WMI_KillProcesse("excel.exe") ' Call WMI_KillProcesse("calculator.exe") ' ' Revision History: ' Rev Date(yyyy-mm-dd) Description ' ************************************************************************************** ' 1 2015-05-28 Initial Release ' 2 2020-08-21 Added Proc Header ' Code updated ' Updated Error Handler ' Made it Option Explicit compliant '--------------------------------------------------------------------------------------- Public Function WMI_KillProcesse(sProcessName As String, Optional sHost As String = ".") As Boolean On Error GoTo Error_Handler Dim oWMI As Object 'WMI object to query about the PC's OS Dim sWMIQuery As String 'WMI Query Dim oCols As Object Dim oCol As Object Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2") sWMIQuery = "SELECT Name FROM Win32_Process" Set oCols = oWMI.ExecQuery(sWMIQuery) For Each oCol In oCols If LCase(sProcessName) = LCase(oCol.Name) Then oCol.Terminate ' Kill this instances of the process End If Next oCol WMI_KillProcesse = True Error_Handler_Exit: On Error Resume Next Set oCol = Nothing Set oCols = Nothing Set oWMI = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: WMI_KillProcesse" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function جعفر Magnify.mdb

اعكس معادله if الاولى مكان معادله if الثانيه =IF(H2<=0;"انتهت المدة";IF(H2<=30; "إقترب موعد السداد";""))

لا يهم جرب استخدم المرفق و ستجد النتيجة NewData.mdb

ضع هذا .... Me.Text0 = "" me.Text0.SetFocus

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

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

جوجل درايف بارتيشن عبارة عن مجلد داخل الويندوز ويمكن نسخ اي ملف فيه جرب وضع القاعدة في مجلد عادي واجعل مسار الحفظ مجلد موجود بالفعل في بارتيشن جوجل مثلا جوجل بارتيشن هو G والمجلد backup يكون مسار النسخ g:\backup\ وبعدها اسم ملف القاعدة وامتداده

إن كان فهمي للمطلوب صحيحا جرب هذه المعادلة في الخلية C5 =SUMIFS($I$3:$I$5,$H$3:$H$5,B5,$G$3:$G$5,$B$2)+N3-I6 بالتوفيق

السلام عليكم ورحمة الله هذه محاولة في الملف المرفق إن كنت قد فهمت المطلوب جيدا...!! test11.xlsx

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

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

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

تفضل هذا ملفك بعد وضع المعادلات mode fun1_2.xlsx

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

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

عفوا اخي الكريم عرفت المشكلة المشكلة كانت ان الاكسل لدي يستخدم ; و ليس , في المعادلات اشكرك شكرا جزيلا ولو امكن ان تنظر للملف الاخير ولو ممكن تساعدي فيالمعادلة اكون شاكر والا سوف استفيد من معادلتك القيمة جدا واحاول اوظفها انا اشكرك

اخي ا/ محمد صالح قمت باعاة تعريف النطاق isuzu وكان الخطأ ان النطاق غير مكتوب بالكامل يعني مكتوب فقط E$4$ وأعدت تعريفه وتمت طبعا هو كان معرف بالاصل صحيحا ولكن بسبب اني اجرب ببيانات افترضية وارجع امسحها تعمل لي مشاكل وهكذا حتى في الانواع الاخرى بسبب مسح جزء من الجدول وارجع اعرف النطاقات وارجع اجرب وارجع امسح وهكذا ادور في نفس الدائره . لذا افكر اذا بالامكان العمل مع نطاقات عاديه وليس جداول . وانا محرج منك لكثرة طلباتي وانت كما لاحظت ترد على طلبات كثيره غيري جزاك الله عنا وعنهم خيرا . لا اريد اكثر عليك اذا قدرت والا ساعمل الموجود حسب الامكان . شكرا لك مع اجمل التحايا 🌺🌸🌹

حياك الله ا/محمد صالح علم ان شاءالله اعيد تعريف النطاق كما اوضحت . شكرا على التوضيح .

إذا كنت تقصد الحل في عدم تفعيل زر وضع التصميم فجرب وضع هذا الإجراء في موديول جديد وقم بتشغيل لإعادة تمكين زر وضع التصميم sub mas Application.CommandBars("Visual Basic").Controls("Design Mode").Enabled = True Application.CommandBars("Control Toolbox").Controls("Design Mode").Enabled = True End sub ربما يكون هذا السبب في مشكلة القائمة

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

شكرا جزيلا استاذ محمد تم تنزيل الحزمة وتم تعريب الاوفس مع وافر الشكر والتقدير

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

انت معلم و احنا منك نتعلم مشاء الله عليك لست استاذ و لكنك استاذ و رئيس قسم و عميد

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

وهل هذا الفهم خطأ؟ أليس 1 ديسمبر 2021 اصغر من 2 ديسمبر 2021 وهما معا أصغر من 1 يناير 2022 ؟؟

اقصد الكود بعد التعديل يعني بعد اضافة موقع قوقل درايف

هل انت في وضع التصميم ؟ يعني أثناء تصميمك للملف هل يظهر حول القائمة 8 مقابض لتغيير حجمها؟ يمينا ويسارا واعلى واسفل

me.x=null في حدث عند التركيز باعتبار x اسم الحقل

ربما تقصد هذا Debug.Print CDbl(DateValue("your string date"))

السلام عليكم..استخدم هذا الكود في استعلام ليحول لك التاريخ الى رقم Format$([DateField];"yyyymmdd")

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

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs tdf.Attributes = acHidden Next tdf ولاعادة اضهار الجداول تستخدم acNormal بدلا من acHidden

لتحديث ربط الجداول استخدم الكود التالي Dim strDbFile As String Dim strPassword As String Dim strConnect As String strDbFile = CurrentProject.Path & "\bb.MDB" strPassword = "19801213011" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As DAO.TableDef Dim db As DAO.Database Set db = CurrentDb For Each tdf In db.TableDefs ' ignore system and temp tables If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next لإخفاء جدول معين استخدم التالي Application.SetHiddenAttribute acTable,"Customers", True

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

لن تجد ما يحقق غرضك مائة بالمائة ولكن يمكنك تطويع الفكرة لما يناسب ملفك لتحويل المعادلة الى كود يمكنك استعمال هذا الإجراء ويمكنك تغيير النطاق E3 كما تشاء With Range("e3") .Formula = "put your formula here" .Value = .Value End With التوفيق

هل الموجود في المدة المحددة تاريخ واحد ام اكثر من تاريخ؟؟

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

نسخة من اظهار تاريخ فى مدة زمنيه محدده تعديل.xls

بسم الله الرحمن الرحيم طلب مني أحد الإخوة الزملاء القائمين على المرتبات عمل برنامج يساعده على أداء عمله في منتهى الدقة والسهولة ورغم أنني غير شديد الصلة ببرنامج الإكسل نظرا لاهتمامي ببرمجة قواعد البيانات الأكسس وحاليا برمجة المواقع بلغة php & my sql قمت بهذه المحاولة فأرجو ممن يهمه الأمر أن يتفضل بعرض مقترحاته حتى يكون برنامجا متكاملا وهذا رابط التحميل http://www.mediafire.com/download.php?mwkz1nitgnn

بارك الله فيك أخي سعيد ونفع بك وجزاك الله كل الخير في الدنيا والآخرة

جهود موفقة أخي سعيد وأنا في انتظار ما سيحدث في التعديلات الجديدة وسيتم عرض البرنامج في صورته النهائية بإذن الله

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

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

للأسف أخي الخطأ في برمجة صفحات منتدانا الرائع أوفيسنا ( خطأ في لغة php يخص طريقة عرض الرابط .... على استعداد لعلاجه) وهذا رابط الملف لمرة أخرى هنـــــــــــا وتم ارفاق الملف بالمنتدى للعلم جاري تطويره salaries.rar

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

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

أشكرك أخي خالد كتب الله لك الخلود في جنته ونعيمه وزادك خلقا وعلما

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