نجوم المشاركات
Popular Content
Showing content with the highest reputation on 30 يول, 2020 in all areas
-
الفرق واضح وبين في الجملة الاولى التركيز على ( النموذج) ثم التركيز على (الحقل النصي) ثم ( الأمر بفتح سجل جديد ) وهذا يعني ان السطر الاخير من الكود حين اعطيت الحقل النصي قيمة لم يكن التركيز عليه بمعنى ان تسلسل الاحداث في الكود غير منطقية تركيز على النموذج/ تركيز على الحقل / فتح سجل جديد / اعطاء قيمة للحقل بعكس الكود الثاني : تركيز على النموذج / فتح سجل جديد / تركيز على الحقل / اعطاء قيمة للحقل3 points
-
السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb2 points
-
بعد اذن اخي الاستاذ @الفلاحجى حل اخر في البداية عملنا استعلام اسميتة q_1 وجعلنا الاستعلام يساوي SELECT Student.المادة FROM Student GROUP BY Student.المادة HAVING (((Student.المادة) Like "*" & [Forms]![FORM2]![text3].[Text] & "*")) ORDER BY Student.المادة; ثم النموذج لمربع التحرير والسرد في تبويب بيانات غيرنا توسيع تلقائي الى لا اخيرا في حدث عند مفتاح اعلى وضعنا الكود التالي If Len(Me.text3.Text) > 0 Then Me.text3.RowSource = "q_1" Me.text3.Dropdown Else Me.text3.RowSource = "SELECT Student.المادة FROM Student GROUP BY Student.المادة" End If والنتيجة قائمة.mdb2 points
-
جرب هذا الملف 1- تم تصحيح البيانات للقوائم المنسدلة 2 تم تغيير اسماء الصفخات الى اللغة الاجنبية 3- تم وضع بيانات عشوائية لزيادة الصفوف (صفين لا يكفيان) في الشيت الاساسي "’Main"' 4- في الصفحة "Final" استبدل اسم العامود الى ما تريد(من القائمة المنسدلة في الصف الثالث) 5- اضغط على الزر "Run Please" Option Explicit Sub From_one_to_two() Dim M As Worksheet Dim F As Worksheet Dim LF%, col%, i% Dim F_rg As Range, y% Dim S_rg As Range Dim max_ro% Application.ScreenUpdating = False Set M = Sheets("Main"): Set F = Sheets("Final") Set S_rg = M.Range("A3:AM3") col = F.Cells(3, Columns.Count).End(1).Column F.Range("a5").Resize(5000, col).Clear For i = 2 To col Set F_rg = S_rg.Find(F.Cells(3, i), lookat:=1) If F_rg Is Nothing Then GoTo Next_I y = F_rg.Column max_ro = M.Cells(Rows.Count, y).End(3).Row F.Cells(5, i).Resize(max_ro).Value = _ M.Cells(4, y).Resize(max_ro).Value Next_I: Next LF = F.Range("A5").CurrentRegion.Rows.Count F.Range("A5").Resize(LF) = _ Evaluate("Row(" & 1 & ":" & LF & ")") With F.Range("A5").Resize(LF, col).SpecialCells(2) If .Cells(1, 1) <> vbNullString Then .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 19 End If End With Application.ScreenUpdating = True End Sub الملف مرفق Nhnd_7788.xlsm2 points
-
السلام عليكم الحمد لله انك توصلت الى حل المشكلة كنت مررت في وقت مضى لمشكلة من هذا النوع ‘ وبمساعدة اخوتي هنا و بالمحاولات والتجربة والبحث توصلت الى حل المشكلة وكتبت هذا التقرير2 points
-
السلام عليكم ارجو من اصحاب الخبره مساعدتي في معرفة طريقة عمل استعلام ربع سنوي للمبيعات والمشتريات لحساب الضريبة ولكم شكري وتقديري ودعواتي الصادقة1 point
-
حيا الله اخوي يوسف 🙂 الحقول باللون البرتقالي مخفية ، وهي تسلسل لكل مجموعة ، بينما الحقول باللون الاصفر تأخذ قيمة الحقل البرتقالي . والنتيجة . والسبب انك ما تقدر تحسب عدد السجلات ، لأنه في الواقع التقرير فيه مجاميع عدد السجلات (انظر الاستعلام مصدر بيانات التقرير لرؤية العدد الصحيح) 🙂 جعفر 1238.APE.accdb.zip1 point
-
1 point
-
جزاك الله خيرا اخى واستاذ خالد اسال الله لكم اليوم اخوانى واساتذتى وفى هذه الساعات المباركات ان يجزيكم عنا خير الجزاء ويبارك لكم ويرزقكم الفردوس الاعلى1 point
-
كان من المفورض طرح هذه الأسئلة مسبقاً و دون تضييع الوقت تم تعديل الماكرو خسب ما تريد Option Explicit Sub From_one_to_two() Dim M As Worksheet Dim F As Worksheet Dim LF%, col%, i% Dim F_rg As Range, y% Dim S_rg As Range Dim max_ro% Dim Flt_rg Application.ScreenUpdating = False Set M = Sheets("Main"): Set F = Sheets("Final") Set S_rg = M.Range("A3:AM3") col = F.Cells(3, Columns.Count).End(1).Column F.Range("a5").Resize(5000, col).Clear For i = 2 To col Set F_rg = S_rg.Find(F.Cells(3, i), lookat:=1) If F_rg Is Nothing Then GoTo Next_I y = F_rg.Column max_ro = M.Cells(Rows.Count, y).End(3).Row M.Cells(4, i).Resize(max_ro - 2).SpecialCells(12).Copy F.Cells(5, y).PasteSpecial (12) Next_I: Next LF = F.Range("A5").CurrentRegion.Rows.Count F.Range("A5").Resize(LF) = _ Evaluate("Row(" & 1 & ":" & LF & ")") F.Range("A5").Resize(LF).NumberFormat = "[$-,200] 0" With F.Range("A5").Resize(LF, col).SpecialCells(2) If .Cells(1, 1) <> vbNullString Then .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True End If End With F.PageSetup.PrintArea = F.Range("A3").Resize(LF + 2, col).Address Rem ++++++++++ Optional +++++++++++++++ ' If M.FilterMode Then ' M.Range("a3").CurrentRegion.AutoFilter ' End If Rem ++++++++++ Optional +++++++++++++++ Application.ScreenUpdating = True End Sub الملف من جديد Mhnd_7788_with filter.xlsm1 point
-
1 point
-
هههه لا والله استاذي الغالي @محمد سلامة الهدف كان ايضاح مايمكن الوصول اليه بعد بسيط من الحقول ودون الحاجة الى كتابة اسماء الكائنات المطلوب تطبيق الصلاحيات عليها او اضافة حقول مخفية في فورم تسجيل الدخول بخصوص نقطة بيع اصدارة تجربية قريب ان شاء الله بعد انهاء الملاحظات المعلقة من عدة اشهر بسبب انشغالي الفترة الماضية علما بان هذا الملف ليس متعلق بنقطة بيع وانما ملف بسيط لتطبيق الصلاحيات على اي برنامج اكسس بدون الحاجة الى اجراء تعديلات او اضافة احداث على النماذج التي سيتم تطبيق الصلاحية عليها حيث يم التركيب و التعديل بشكل تلقائي كلام صحيح والبرنامج مازال تحت التجربة وكان لي هدف معين من عمله اثناء التجربة بهذا الشكل وفي النسخة النهائية يكتفى بالتسمية التوضيحية للكائن تحياتي وتقديري1 point
-
1 point
-
1 point
-
كل شوية تشوقنا كده بصورة علي الماشي 🌹💓🤩😂 يمكن في اخفاء اسم التقرير الاصلي وترك فقط اسم التقرير الذي يعرفه المستخدم انا عملها عندي كده لان المستخدم لايهمه اسم التقرير أو النموذج داخل قاعدة البيانات وقد يسبب له لخبطه كل عام وحضرتك بخير تحياتي 🌹 واديني مستني😂1 point
-
السلام عليكم اخى @فايز.. وكل عام وانت واخوانى واساتذتى بخير تقبل الله من ومنكم صالح الاعمال اتفضل اطلع على هذا الرابط والمثال المرفق ان شاء الله تجد فيه ما تريد وجزاهم الله خيرا اساتذتنا الكرام بالتوفيق اخى1 point
-
السلام عليكم وبالإضافة لما تفضل به أساتذتنا الكرام من باب تجربتي البسيطة في ربط برنامج اكسيس بـ SQL Server فكان الأداء والسرعة لا تقارن جدا . وأيضا لست بحاجة لمجلد لمشاركة قاعدة البيانات إلا فحالة مشاركة الملفات ... وكذلك الاجهزة المتصلة بالواي فاي فأداؤها جيد جدا 👍 . أيضا والحمدلله قمت بتصميم بعض الصفحات من خلال فيجوال استديو بلغة السي شارب بتقنية asp.net وربطتها بنفس القاعدة في الشبكة الداخلية وأداء خرافي .1 point
-
يحدث هذا عند استخدام الكلمات العربية في الكود ، لهذا السبب فيُنصح بإستخدام الكلمات الانجليزية في تسمية جميع كائنات الاكسس🙂 خليني اكتب المصطلحات بالانجليزي علشان الكود يكون واضح ، وبعدها تقدر تغيره : frm_Search : نموذج بحث بالسعر تجربة1 ، وان هذا النموذج هو نموذج رئيسي ، وبقية حقول البحث موجودة عليه ، Area_From : المساحة من Area_To : المساحة الى Area_Size : اسم حقل المساحة الذي نضع المعيار فيه واذا لم تكتب اي قيمة في حقل "المساحة من" فنفترض ان اقل مساحة = 0 ، بينما اذا لم تكتب اي قيمة في حقل "المساحة الى" فنفترض ان اكبر مساحة = 100000 عليه ، تصبح المعادلة: Area_Size : حقل المساحة لا يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Area_Size : حقل المساحة يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) Or [Area_Size] Is Null او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Or [Area_Size] Is Null جعفر1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
لا يُنصح بإستعمال حقول Lookup ، ولا حقول المرفقات في الجدول ، ولا عمل الكومبوبوكس في الجدول.1 point
-
1 point
-
1 point
-
وماذا عن المبلغ الأكبر من 5000 هل عليه خصم فيستمر الخصم 20% أم بدون خصم؟ عملت العديل بحيث أي مبلغ بعد 3750 يشمله 20% خصم =IFERROR(IF(A1<=1250;A1*2.5%;IF(AND(A1>1250;A1<=2500);(A1-1250)*10%+1250*2.5%;IF(AND(A1>2500;A1<=3750);(1250*2.5%)+(1250*10%)+(A1-2500)*15%;IF(A1>3750;(1250*2.5%)+(1250*10%)+1250*15%+(A1-3750)*20%;0))));0)1 point
-
1 point
-
تفضل اخي الكريم هذا مثال لما طلبت نموذج frmIndex هو المسئول عن عملية التحويل db1.rar تحياتي1 point
-
استاذى ومعلمى علي المصري اشكرك شكرا جزيلا وجعل الله عملك فى ميزان حسناتك1 point
-
السلام عليكم سنفرض ان لديك حقل في نموذج الواجهة عبارة عن checkbox اذا وضعت علامة صح يقوم بالتحويل الى نموذج Update واذا لم توضع علامة صحيقوم بالتحويل الى نموذج Home وهذا الكود if checkbox = true then DoCmd.OpenForm "frmUpdate" else DoCmd.OpenForm "frmHome" endif تحياتي1 point
-
1 point
-
السلام عليكم 🙂 اذا سمحت لي اخي أبوعبدالله 🙂 يكفي لقفل النموذج الذي عليه الكود ، ان نستعمل الكود التالي بدون ذكر اسم النموذج 🙂 ، ونحتفظ به كقالب لجميع النماذج : docmd.Close acForm, me.name, acSaveNo جعفر1 point
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم السطر الاول يقوم بفتح النموذج الثاني السطر الثاني يغلق النموذج الاول DoCmd.OpenForm "frmUpdate" DoCmd.Close acForm, "frmIndex" ملاحظة لا تقم بتسمية الجداول او الاستعلامات او النماذج او التقارير او العنار باسماء محجوزة مثل ( Update او Index ... الخ ) تحياتي1 point
-
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar1 point
-
1 point
-
السلام عليكم لماذا لا تفكر بصورة معاكسة ؟ اربط الإكسل بالأكسس قم بالخطوات التالية : استورد الورقة من إكسل إلى قاعدة أكسس ستظهر بأكسس كجدول قم بعمل النموذج الخاص بالإدخال لهذا الجدول الآن اذهب إلى برنامج إكسل قم بعمل ملف جديد. من تبويب بيانات في ملف الإكسل ستجد تبويباً فرعياً إحضار بيانات خارجية ادخل هذا التبويب ستجد من أكسس اختره و اتبع خطوات المعالج بعدها أغلق ملف الإكسل سيكون الإدخال عبر الأكسس و عندما ترغب بفتح الأكسل أغلق قاعدة بيانات أكس أولاً و بعدها اعرض ملف الإكسل ثم حدد أي خلية و بالماوس الأيمن ستجد خيار تحديث و بعد الضغط عليه ستظهر البيانات المدخلة حديثاً. الخطوات لن تأخد منك أكثر من ٣ دقائق و تستطيع التحكم بفرز و تصفية و تنسيق الجدول في إكسل .1 point
-
وعليكم السلام ورحمة الله واجهت من قبل مشكلتك بعد ترقية الويندوز إلى 10 جرّب الخط simplified Arabic المرفق simpo.zip1 point
-
1 point
-
أخى الحبيب ( عباس ) شكرا على كلماتك المشجعة الجميلة مثلك وكل ماأتمناة وأرجوة أن تحقق المعادلة المطلوب لأختى السائلة وهذا هو الهدف المرجو1 point
-
السلام عليكم لواجب التصحيح فالدالة هي لاستاذنا الكبير ابو تامر (عمر الحسيني) وشكراً1 point
-
Version
927 تنزيل
هذه الدالة تقوم بعمل الدالة VLookUp ولكن يمكن استعمالها لمن يريد اضافة دوال بإسمه في الملف الذي يعمل عليه الدالة VLookUp لها اربع متغيرات هي : 1. lookup_value (قيمة البحث) 2. table_array (جدول البيانات) 3. col_index_num (رقم العمود) 4. range_lookup (قيمة منطقية للتطابق في البحث صفر وواحد لاي نتيجة) الدالة المعرفة MyLook لها ثلاثة متغيرات هي 1. LookVal (قيمة البحث) 2. Rng (جدول البيانات) 3. iCol (رقم العمود) * الغرض من الدالة انه يمكن تعديل اسمها كما تريد وتحصل على نتيجة مماثلة لنتيجة الدالة VLookUp Function MyLook(LookVal As Variant, Rng As Range, iCol) For r = 1 To Rng.Rows.Count If Rng.Cells(r, 1) = LookVal Then MyLook = Rng.Cells(r, iCol): Exit For Next End Function1 point