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

استخدم هذا الخط عن تجربة جميع الاجهزة تستطيع قرائته تحميل الخط من هنا 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

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

جوجل درايف بارتيشن عبارة عن مجلد داخل الويندوز ويمكن نسخ اي ملف فيه جرب وضع القاعدة في مجلد عادي واجعل مسار الحفظ مجلد موجود بالفعل في بارتيشن جوجل مثلا جوجل بارتيشن هو 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

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

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

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

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

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

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

إذا كنت تقصد الحل في عدم تفعيل زر وضع التصميم فجرب وضع هذا الإجراء في موديول جديد وقم بتشغيل لإعادة تمكين زر وضع التصميم 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"))

مساهمة من العبد لله لإثراء الموضوع تم الاستغناء عن جدول قيم الحروف والزر في النموذج وتم استعمال دالة بسيطة 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 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

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

جميع ما تريد من الأكواد لعمل هذه المهام موجود داخل البرنامج لكن تفضل هذا يعرض المجلد 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 سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

تفضل هذا الكود فقط انسخ و الصق في ازرار النسخة الاحتياطية On Error GoTo ErrH Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) DoCmd.RunSQL "CREATE TABLE Backup (Backup_NO INT , Backup_Name VARCHAR (50) , Backup_Path VARCHAR (100), Backup_Date Date);" End If Dim MyFile, DstFile, DataName As String Dim Syso As Object MyFile = CurrentProject.FullName DataName= "Backup-" & Format(Now, "dd-mm-yyyy") & "-(" & Format(Now, "hh.nn.ss") & ")" DstFile = CurrentProject.Path & "\Backup\" & DataName & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" Dim db As DAO.Database Dim MaxBackup_NO As Integer MaxBackup_NO = Nz(DMax("[Backup_NO]", "[Backup]"), 0) + 1 Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Backup") With rs .AddNew ![Backup_NO] = MaxBackup_NO ![Backup_Name] = DataName ![Backup_Path] = DstFile ![Backup_Date] = Now() .Update End With rs.Close Set rs = Nothing MsgBox "تم انشاء قاعدة البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

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

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

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

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

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

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

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

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

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

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

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

أخي الكريم لعل ماتريده تجده في المرفق .. تقبل تحياتي . Number.rar