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

تفضل بعد اذن جميع الأساتذة لك ما طلبت جلب المرتب من عدة أوراق بدلالة الرقم بمعادلة Vlookupالقومى.xlsm

رائع أستاذ مصطفى ولك بعد إذنك يمكن تقليل الشروط وتعطي نفس الناتج تحليل اعدادى(1).rar

تفضل 🙂 اضفت معيار جديد: Me.NewRecord And Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.NewRecord And DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub . بس اخي عبداللطيف ، الافضل ان تضع الكود قبل تحديث حقل الاسم وليس قبل تحديث النموذج 🙂 جعفر

كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar

كيفية ادراج فلاش داخل الاكسل رابط الملف ادراج فلاش بالاكسل.rar

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

اعتقد هذه هي الطريقة الصحيحة 🙂 . بس لازم نعمل طريقة بحيث يكون لكل قاعة 6-7 اشخاص !! رجاء تفكر معاي ، لأني ما قادر اوصل الى طريقة سهلة 😞 جعفر

أشكرك أستاذ مصطفى على كلامك الطيب ونحن أخوة كل منا يتعلم من الآخر بالنسبة للأستاذ محمد قاسم12 سبب أن المعادلة لم تعمل معك بعد التعديل هو يجب أن يكون المعيايير لها نفس عدد الصفوف من وإلى وتم عمل معادلة لمعرفة المتغيب في جميع المواد أما النتيجة الإجمالية فيجب عمل أعمدة لكل المواد لمعرفة هل الطالب ناجح أم راسب أم غائب وعمود يتم فيه معادلة لمعرفة عدد مواد الرسوب لكي يكون الناجح في الإحصاء العام الذي عدد مواد رسوبه صفر تحليل اعدادى(2).rar

الله يحفظكم ويرعاكم استاذنا الفاضل احمد فانتم استاذنا ومنكم تعلما ونتعلم الكثير لكم ودي واحترامي

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

وعليكم السلام تفضل cHART.xlsx

هناك معايير لم نتعرف عليها ماهي الدرجة الصغرى والكبرى للنجاح لاحظ الملف جعلت الصغرى للنجاح 40 والكبرى 100 ويمكن التعديل لان الملف ليس به توضيح كافي لاحظ الخلايا الحمراء لاحصاء العربي فقط ويمكن اكماله تحياتي لكم تحليل اعدادى.rar

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

بالتوفيق اخي

اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

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

الظاهر ان البيانات لما تخرج من مربع السرد يعطي 255 حرف فقط ، لذلك تفضل هذه طريقة ثانية 🙂 جعفر 1011_test.accdb.zip

1. رجاء ارفاق رسالة الخطأ ، 2. بالنسبة الى الحقل الجديد ، شو نوع الحقل (نص ، رقم ، او تاريخ) ؟ جعفر

وعليكم السلام 🙂 الظاهر ان الحقل من نوع مذكرة في احد الجداول ، ومن نوع نص في الحقل اللي في الصورة اعلاه ، لذلك فهو يأخذ 255 حرف فقط !! جعفر

تفضل 🙂 Dim rst As dao.Recordset dim myWhere as string Set rst = Form.RecordsetClone myWhere = "ID=" & [Text1] myWhere = myWhere & " And Code=" & [Text2] myWhere = myWhere & " And Age=" & [Text3] rst.FindFirst myWhere If Not rst.EOF Then Bookmark = rst.Bookmark . شوف هذا الرابط لبقية انواع الحقول من نص ، وتاريخ جعفر

Select Case Me!إطار102 Case 1 1 Case 2 2 Case 3 3 Case 4 4 Case Else End Select Me.Repaint If DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 And Me!إطار102 = False Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If شكلك مستعجل شوف هل هذا طلبك تقييم.accdb

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

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 في المرات القادمة، رجاء وضع سؤال واحد لكل موضوع، حتى تحصل على فرصة اكبر للحل 🙂 جعفر

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

شوف المرفق كيف لم ينجح معك UP (3).rar

بارك الله فيك استاذى غلطة مطبعية جربت اكثر من مره ولم افلح

للاسف لم ينجح معى

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

اتفضل هذا تعديل على كود الاخ جعفر On Error Resume Next Dim id As Integer Dim Msg, Style, Title, Response id = Nz(DLookup("[site_ID]", "qard", "[site_ID]=" & Me.site_ID & ""), 0) If id <> 0 Then Me.Undo Cancel = True Total.Locked = True dat_1.Locked = True not_n.Locked = True Me.أمر76.Enabled = False Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _ "المعرف رقم " & id & vbCrLf & vbCrLf & _ "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _ "No : فقط الغي هذا السجل" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "التكرار ممنوع" Response = MsgBox(Msg, Style, Title) Else Total.Locked = False dat_1.Locked = False not_n.Locked = False Me.أمر76.Enabled = True If Response = vbYes Then DoCmd.FindRecord id, , , , , acAll, True End If End If

بالفعل استاذى الاوفيس لدى3013 بارك الله فيك القروض المسددة تنقل الى جدول القروض المنتهيه بفضل الكود الذى تفضلت على به

معلمنا الفاضل بارك الله فيك نقلت الكود ولم يعمل معى UP.rar

عفوا ، يجب تغيير الصفر الى واحد ، الكود الصح هو Private Sub Sub_AfterUpdate() Me.LETTERS = Me.SUB.Column(1) End Sub جعفر

ممكن المساعدة عندي داتا ارقام سعودية بدي ارسل اعلان عن طريق برنامج ولكن الارقام لايوجد كود السعودية ممكن طريقة الاضافة 55.xlsx

السلام عليكم ورحمة الله حل آخر باستعمال التنسيق على الأرقام... بن علية حاجي حل باستعمال التنسيق.xlsx

شكرا لكم جميعا

خل آحر 55_55.xlsx

أهلا بك اخى الكريم فى المنتدى تفضل تم الحل بالتنسيق 55.xlsx او يمكنك بهذه المعادلة اذا كنت تريد ظهور الأرقام بعمود اخر ويمكنك سحب المعادلة للأسفل =CONCATENATE("+966",$A1)

تفضل 🙂 . . . . . . جعفر 1011_test.accdb.zip

السلام عليكم اعضاء ومديري هذا المنتدي الرائع كلما دخلت علي هذا المنتدي دخلت سائلا اما هذه المرة ادخل لكم ببرنامج هو ثمرة علمكم انتم ولو لاحد الفضل فيه بعد الله فيكون لكم انتم وان كان لي فضل فيه فقط هو اني طالب علم واهدي هذا البرنامج بصفة خاصة لاساتذتي أ/ حماده عمر أ / البروفسير أ / عبد الله المجرب أ / العيدروس وجزاكم الله خيرا ارجو ان ينال اعجابكم واود فقط ان اتأسف لاساتذتي ان كنت قد اسميت نفسي عند تعريفي لنفسي داخل البرنامج بمصمم برامج ولكن اتمني من الله ذلك برنامج حسابات متكامل.zip

هذا مثال افتح النموذج tbl_main وهناك مربع عدد السجلات يمكن اخفاؤه السجلات الجديده يتم تعديلها . السابقة لابد من النقر على تعديل ثم ادخال الباس وورد 123 بالتوفيق New Microsoft Access Database (4).rar

معليش الموضوع يحتاج توضيح اكثر مثلا فتحت النموذج وبه 10 سجلات سابقة هنا لا استطيع التعديل ! ثم تم ادخال 5 سجلات هنا اعدل عادي بدون كلمة مرور ! قفلت النموذج وفتحته مرة ثانية خلاص نفس القصة السابقة يصبح ال 15 سجل لا تعدل الا بكلمة مرور ! وهكذا هل تصوري هذا هو المطلوب ام لديك تصحيح ؟

اخي العزيز ارفق لك مثال جميل ستستفيد من الافكار الموجودة فيه وقد قمت باضافة كود ادخال الرقم السري الذي سيظهر لك عند النقر على زر تعديل سيظهر نموذج به بيانات جرب تعديل اي بيانات مباشرة ستلاحظ تجميدها ثم انقر زر تعديل لتظهر لك رسالة تطالبك بالرقم السري جرب ادخال اي نص اورقم ثم ادخل "1234" وستلاحظ الفرق بالتوفيق,,, ___________.rar