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

الاصدقاء الاكارم تحية طيبة الكثير يسال عن طرق البحث في عدة حقول و غالبا ما تكون الطريقة هي استخدام الاستعلام و باضافة عدة معايير له لكن في بعض الاحيان لا يمكن تطبيق هذه المعايير على الاستعلام و نحتاج الى كتابة الكود يدويا في هذا التطبيق اقدم لكم طريقة بسيطة للبحث في جدول مكون من اربع حقول مع ملاحظة انه يمكن البحث ب 21 طريقة من خلال هذا المثال البسيط قد يسال البعض من اين تاتي 21 طريقة و لا يوجد في المثال سوى اربعة حقول الجواب : يمكنك البحث كالآتي 1 الرقم 2 الاسم 3 التاريخ 4 ملاحظات 5 الرقم و الاسم 6 الرقم و التاريخ 7 الرقم و الملاحظات ...... وصولا الى البحث في الحقول الربعة مجتمعة والله من وراء القصد DbSearch.rar

من اجل ظهور الحقل الفارغ نكتب Like "*" & [Forms]![frm_name]![combo_name] & "*" or is null

السلام عليكم يمكن إدراج هذا العنصر من خلال قائمة عناصر تحكم ActiveX بإتباع الخطوات التالية: 1- نفتح النموذج في وضع التصميم 2- نضغط على القائمة عناصر تحكم ActiveX 3- تظهر نافذة بها مجموعة كبيرة من العناصر نختار منها العنصر Microsoft ProgressBar control, version 6.0 ثم نضغط على موافق كما توضح الصور التالية: 2- 3-

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

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

هذا يعد جميع القيم في الجدول الذي هو مصدر بيانات النموذج =Count([fild_a])

الاخ العزيز تحية طيبة ارجو ان يكون هذا المطلوب تحياتي محمد علي الطيب برنامج شئون الطلاب الإصدار النهائى 27.rar

فی اسفل السطر اللي كتبت فیھا غادر اكتب Me.TERHEL.BackColor = vbRed وفی اسف السطر اللی کتبت موجود اکتب Me.TERHEL.BackColor = vbGreen

اتفضل Dim Sql As String SQL = "UPDATE bookintable SET bookintable.totalofbook = forms!allbookqure!totbook WHERE (((bookintable.bookin)=forms!start!booktran));" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True MsgBox "تم تحدیث"

جرب هذا المرفق تم اضافة رقمين الى الجدول حتى يصبح 14 رقم موزعة على رقمين كل يوم الكود Option Explicit Sub Rand() Dim g(14), c, r, arr(), t$ ReDim arr(1 To 2) Do c = Application.RandBetween(1, 14) If Not g(c) Then r = r + 1 arr(r) = c t = "=INDEX($F$4:$F$17," & arr(r) & ")" Cells(r + 1, "a") = Evaluate(t) g(c) = True End If Loop Until r = 2 End Sub الملف Random_salim.rar

بلى يوجد واتفضل اليك مثال على ذلك افتح التقرير ... image.rar

يا أخي الكريم لو لاحظت الصورة الأولى ( شكل شريط الأدوات ) لعرفت أن إصدار هذا الأوفيس هو 2010 و ليس 2007 . أما فيما يخص العبارة الموجودة في الأعلى (Access 2007) فهي تخص صيغة الملف و ليس إصدار الأوفيس.

ارفع الملف نفسه او نسخة(فارغة ) عنه اذ لا يمكن التعامل مع الصورة

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

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

البداية للنسخ هو آخر صف حيث يتم عمل تعبئة تلقائية لآخر صف ... ولمدى عدد الصفوف المطلوبة طبقاُ للمتغير c الذي يشير للخلية Q1

تستخدم IIF لاختبار شرط زي IF لكن مختصرة في شرط واحد .. لو تحقق يعمل كذا ولو لم يتحقق يعمل كذا .. بالنسبة للدالة المعرفة تقوم بمعرفة رقم آخر صف أو رقم آخر عمود .. حيث قمت بدمج الدالتين المعرفتين في دالة معرفة واحدة .. فإذا أردت معرفة رقم الصف تكتب في البارامتر الثاني حرف الـ R ، وإذا أردت معرفة رقم آخر عمود تكتب الحرف C المهم في السطر الكود بيشوف رقم آخر صف فلو كان رقم آخر صف يساوي 9 .. إذاً المتغير المسمى lr هيساوي 9 أما إذا كان لا يساوي 9 يتحقق الجزء الثاني من الشرط حيث تقوم الدالة المعرفة باحتساب رقم آخر صف والمتغير sh يشير لورقة العمل المطلوب استخراج رقم آخر صف منها ، وهذا المتغير بدوره متغير لأنه يعمل على مصفوفة من أوراق العمل أرجو أن تكون الصورة قد اتضحت الآن

جرب إضافة السطرين التاليين On Error Resume Next sh.Range("A" & lr + 1).Resize(c, lc).SpecialCells(xlCellTypeConstants).ClearContents بعد هذا السطر في الكود sh.Range("A" & lr).Resize(1, lc).AutoFill Destination:=sh.Range("A" & lr).Resize(c + 1, lc)

يفضل طرح موضوع جديد لكل طلب جديد تيسيراً للبحث فيما بعد

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

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

بدل ان تكتب الكود كم مرات وهو نفس الكود تكدر تكتب الكود مرة واحدة وبعد في اي حالة تريد تكدر تستخدمه مثلا كتبت هذا الكود الاسفل في حدث الحالي وتريد ان تستخدم نفس الكود في حدث اخر بدل ان تكتبه من جديد في حدث اخر تقدر في حدث مثلا بعد تحديث ان تكتب هذا فقط Form_Current تحياتي

أستاذ حسين اعرض استعلام الالحاق فى طريقة عرض التصميم ثم من قائمة عرض اختر عرض sql ثم انسخ الكود الذى سيظهر لديك وفى زر اﻷمر ضع هذا الكود: Docmd.runsql "وبين علامتى التنصيص الصق الكود الذى قمت بنسخه منذ قليل" وإذ أردت أن لا تزعجك رسالة التأكيد فى كل مرة تضغط الزر ضع هذا الكود بعد الكود أعلاه Docmd.setwarning false جرب ولا تنسانا بدعوة فى ظهر الغيب تمنياتى بالتوفيق