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

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

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

إن كان فهمي للمطلوب صحيحا جرب هذه المعادلة في الخلية 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 ؟؟

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

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

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

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

مساهمة من العبد لله لإثراء الموضوع تم الاستغناء عن جدول قيم الحروف والزر في النموذج وتم استعمال دالة بسيطة Public Function CharVal(SearchStr) As Long Dim i As Long, myval As Long If Not IsNull(SearchStr) Then Dim d As Object: Set d = CreateObject("Scripting.Dictionary"): d.Add "أ", 1: d.Add "ب", 2: d.Add "ج", 3: d.Add "د", 4: d.Add "ه", 5: d.Add "و", 6: d.Add "ز", 7: d.Add "ح", 8: d.Add "ط", 9: d.Add "ي", 10: d.Add "ك", 20: d.Add "ل", 30: d.Add "م", 40: d.Add "ن", 50: d.Add "س", 60: d.Add "ع", 70: d.Add "ف", 80: d.Add "ص", 90: d.Add "ق", 100: d.Add "ر", 200: d.Add "ش", 300: d.Add "ت", 400: d.Add "ث", 500: d.Add "خ", 600: d.Add "ذ", 700: d.Add "ض", 800: d.Add "ظ", 900: d.Add "غ", 1000: d.Add "ا", 1: d.Add "إ", 1: d.Add "آ", 1: d.Add "ء", 1: d.Add "ى", 10: d.Add "ئ", 10: d.Add "ؤ", 6: d.Add "ة", 5: d.Add " ", 0 For i = 1 To Len(SearchStr) myval = myval + d(Mid(SearchStr, i, 1)) Next i End If CharVal = myval End Function يتم استدعاؤها بعد تحديث مربع النص Private Sub text1_AfterUpdate() Me.text3.Value = CharVal(Me.text1.Value) End Sub تحياتي للجميع mas_charval.mdb

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

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم 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

تفضل هذا الحل تم انشاء ملف Word و اضافة تصميم البطاقة لملف الوورد و اضافة اشارات مرجعية و تم تحديد حجم الصفحة حسب الحجم في البطاقة الموجودة في التقرير قم بالتجربة ستجد انك حققت الهدف 2New.zip 1-مصطفى (122146).docx

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

جميع ما تريد من الأكواد لعمل هذه المهام موجود داخل البرنامج لكن تفضل هذا يعرض المجلد Function BrowseForFolder(Optional OpenAt As Variant) As Variant Dim ShellApp As Object Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please choose a folder", 0, OpenAt) On Error Resume Next BrowseForFolder = ShellApp.self.Path On Error GoTo 0 Set ShellApp = Nothing Select Case Mid(BrowseForFolder, 2, 1) Case Is = ":" If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid Case Is = "\" If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid Case Else GoTo Invalid End Select Exit Function Invalid: BrowseForFolder = False End Function الاستدعاء و حفظ المسار داخل الجدول في حقل النموذج [TextBox1] = BrowseForFolder("c:\\")

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

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

تفضل هذه المشاركة مع الأخوان Dawam1 (1).zip

اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

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

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

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

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

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

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

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

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