اذهب الي المحتوي
أوفيسنا

عبدالرحمن هاشم

المشرفين السابقين
  • Posts

    820
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

Community Answers

  1. عبدالرحمن هاشم's post in اي جزء من الحقل في القائمة المنسدلة was marked as the answer   
    وعليكم السلام 
    جرب المرفق 
    test.accdb
  2. عبدالرحمن هاشم's post in استشارة فى مشروع تقسيط was marked as the answer   
    السلام عليكم.. تفضل أخي مرفقك بعد التعديل
    فبعد إدراجك مدة القرض والتاريخ قم بالضغط على زر تنفيذ
     
     
     
    qest---up.rar
  3. عبدالرحمن هاشم's post in عدم إظهار المناطق التى لا تحتوى على بيانات في نموذج البحث was marked as the answer   
    تفضل أخي جرب المرفق
    القاعدة مضاف إليه بيانات.rar
  4. عبدالرحمن هاشم's post in بحث شامل متعدد في رقم نص تاريخ و اكثر من حقل was marked as the answer   
    تسلم يا كبير خيرك سابق

    أخي الفاضل ماجد جرب هذا التعديل
    ولكن لاحظ أن القاعدة التي أرفقتها أنت حقل إلى تاريخ ستجد به تواريخ قبل من تاريخ أي أن تاريخ نهاية الدورة أكبر من تاريخ بدايتها وهذا بالطبع يسبب عدم جلب النتائج
    الدورات---Up.rar
  5. عبدالرحمن هاشم's post in مشكلة عند فتح التقرير was marked as the answer   
    بعد أذن أخي الكريم مارد
     
    تفضل أخي الفاضل مرفقك بعد التعديل
    سبب مشكلتك هو أنك جعلت الأرصدة الغير مرصدة في استعلام التوحيد جعلتها هذا "" والمستحسن أن تجعلها 0 لكي يتم التجميع
     
    وأضفت إليك إضافة بسيطة في التقرير يعلمك إن كان الحساب دائن أم مدين
     
    أتمنى يكون المطلوب
     
    مشكلة فى تقرير.rar
  6. عبدالرحمن هاشم's post in استفسار عن كيفية عمل تقرر باجمالي ارصدة العملاء was marked as the answer   
    انظر الاستعلام QryAcntCust حسب طلبك
     
     
    تحياتي
    Database1---up.rar
  7. عبدالرحمن هاشم's post in الدالة if was marked as the answer   
    وعليكم السلام
     
    لو افترضنا أن مربع التحرير والسرد اسمه ListBox ومربع النص txt
    ضع هذا الكود في حدث بعد تحديث مربع التحرير والسرد
    If Me.ListBox = "نقدا" Then Me.txt= "02" Else If Me.ListBox = "آجل" Then Me.txt= "01" End If: End If:
  8. عبدالرحمن هاشم's post in كيف طريقة تغيير حقل يوجد به دالة منشئ التعبير إلى كود برمجي ؟ was marked as the answer   
    وعليكم السلام ورحمة الله
    جرب أخي هذا التعديل
    Tabel1---up.rar
  9. عبدالرحمن هاشم's post in استفسار بخصوص القيم الافتراضية والعلاقات was marked as the answer   
    مشاركة بجانب مشاركة أخونا الكريم أستاذ راعي الغنم لإيضاح تغير السعر عند اختيار الصنف
     
    لديك جدول الأصناف يحتوي على اسم الصنف وسعر الصنف
    إذن من المفضل أن يكون جدول الفاتورة جدولان وهما [رأس الفاتورة] و[تفاصيل الفاتورة].. بمعنى:
     
    ◘ جدول رأس الفاتورة يحتوي على رقم الفاتورة وتاريخها واسم العميل وبياناته وهكذا
    ◘ جدول تفاصيل الفاتورة يحتوي على رقم الفاتورة ومرتبط بجدول رأس الفاتورة (كما أجاب أستاذ راعي) وحقل مربع تحرير وسرد للأصناف مرتبط بجدول الأصناف وحقل آخر سعر الصنف
     
    أي أن حقل السعر موجود في جدول الأصناف وفي جدول تفاصيل الفاتورة.. والغرض من ذلك هو بعدما تختار الصنف سيقوم بجلب السعر الموجود في جدول الأصناف في حقل السعر الموجود في جدول تفاصيل الفاتورة وذلك لكي تتمكن من التعديل على سعر الصنف
     
    لأنك لو جعلت حقل السعر الموجود في جدول الأصناف هو نفس الحقل الموجود في تفاصيل الفاتورة فذلك خطأ لأنك لو قمت بتعديل سعر الصنف سيتم تعديل السعر في كافة الفواتير السابقة.. أما بطريقة جلب السعر من جدول الأصناف ووضعه في جدول تفاصيل الفاتورة فتعديلك حينها على سعر الصنف سيقتصر على السعر الموجود في الفاتورة الحالية فقط ولن يتأثر السعر في جدول الأصناف
  10. عبدالرحمن هاشم's post in عدم تكرار حقلين بالسجلات في نظام الصادر (معدل) was marked as the answer   
    أخي الفاضل.. جرب المرفق بعد إضافة هذا الكود في حدث عند الخروج من الحقل nambook
    Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![seq] = Me![seq] And rst![typ] = Me![typ] And rst![year1] = Me![year1] And rst!nambook = Me!nambook Then MsgBox " هذا الكتاب مكرر بنفس الإسم والسنة والرقم التسلسلي ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه لا يمكن تسجيله" Me.Undo DoCmd.CancelEvent [seq].SetFocus Exit Do End If rst.MoveNext Loop rst.Close اتمنى يكون المطلوب
    sadra----UP.rar
  11. عبدالرحمن هاشم's post in إحصاء جمع عدد الذكور والإناث في نموذج was marked as the answer   
    جرب هذا التعديل أخي
     
    احتساب الذكور والإناث حسب الاستعلام
    وآخر احتساب حسب النموذج الفرعي
     
    وافنا بالنتيجة.. اتمنى يكون المطلوب
    count combobox items---UP.rar
  12. عبدالرحمن هاشم's post in عند الكتاب أو اللصق فإن الحرف الأول يتحول إلى حرف كبير was marked as the answer   
    وعليكم السلام ورحمة الله
     
    الكود التالي بعد الكتابة فقط
    ضعه في حدث بعد تحديث الحقل Textbox
    Textbox = StrConv(Textbox, vbProperCase)
  13. عبدالرحمن هاشم's post in عمل نموزج مرتبط بأكثر من جدول was marked as the answer   
    هل تقصد هذا التعديل؟
    مندوب ---.rar
  14. عبدالرحمن هاشم's post in الفئات العمرية was marked as the answer   
    مرحبا بك
    قم بتشغيل الاستعلام QrySum وانظر التجميعات بالوحدة النمطية المرفقة
     
    أتمنى يكون المطلوب
    db5---up.rar
  15. عبدالرحمن هاشم's post in عاوز اعرف طريقة عمل زر لحذف بيانات عمود داخل جدول was marked as the answer   
    وعليكم السلام ورحمة الله
     
    لو افترضنا أن الجدول الذي به العمود اسمه Tabl والعمود الذي تريد مسحه هو Nam فسيكون الكود في زر كالتالي:
    DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tabl SET Tabl.Nam = Null;" DoCmd.SetWarnings True MsgBox "Êã ÍÐÝ ÈíÇäÇÊ ãä ÍÞá" & Chr(13) & " Nam"
  16. عبدالرحمن هاشم's post in اظهار كلمة المرور was marked as the answer   
    تفضل أخي
    ولكن عدلت حقل الباسوورد وجعلته txtpassword لأن مسمى password محجوز للأكسس
     
    اظهار كلمة المرور.rar
  17. عبدالرحمن هاشم's post in اظهار تعليمات عند وضع الماوس على زر امر was marked as the answer   
    وعليكم السلام
     
    من خيارات الزر أو مربع النص في غير ذلك اختر نص تلميح عنصر التحكم واكتب أمامه النص الذي تريد إظهاره عند الوقوف على الحقل
  18. عبدالرحمن هاشم's post in كيف يمكن حذف السطر الفارغ فى النموذج الفرعى المرتبط بنموذج رئيسي was marked as the answer   
    لو افترضنا أن مصدر النموذج الفرعي هو الجدول Sub_Tabl والحقل الأساسي الذي إذا كان فارغا وليس به بيانات فيحذف الصف بكامله هو txt..
    فضع هذا الكود في حدث عند الإغلاق للنموذج الفرعي
    Dim sqlDELETE As String sqlDELETE = "DELETE Sub_Tabl FROM Sub_Tabl WHERE isnull([txt]) " DoCmd.SetWarnings False DoCmd.RunSQL sqlDELETE
  19. عبدالرحمن هاشم's post in طلب اضافات وتعديلات في برنامج كمبيالات was marked as the answer   
    تفضل أخي الكريم
    افتح النموذج FrmQry والذي يمكنك من خلاله معرفة كل العملاء المتأخرين أو لعميل معين
    وصممت التقارير على ذلك
     
     
    كمبيالة.rar
  20. عبدالرحمن هاشم's post in نموذج بحث مطور was marked as the answer   
    تفضل أخي الكريم تم حذف هذا السطر من الكود من حدث مربع القائمة والذي مهمته هو إغلاق نموذج البحث بعد تنفيذ الأمر بجلب البيانات المطابقة
    DoCmd.Close acForm, "Search", acSaveYes search--.rar
  21. عبدالرحمن هاشم's post in مشكلة فى نموذج البحث was marked as the answer   
    وعليكم السلام
     
    السبب أخي الكريم أنه من المفترض أمام stDocName تكتب اسم النموذج هكذا "TmpPat" ويفضل أن يكون الرابط رقم (PCode) وليس اسم (PName)
     
    عموما قمت بوضع كود آخر في المرفق وهو:
    Dim stDocName As String Dim stLinkCriteria As String stDocName = "TmpPat" stLinkCriteria = "[PCode]=" & Me![SearchList] DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, "qc1", acSaveYes مع تعديل بسيط في العلاقات وجعلت مصدر النموذج qc1 الاستعلام qc1 ليعمل بشكل صحيح
     
    أتمنى يكون المطلوب
    تحياتي :)
    نظام جديد---edit.rar
  22. عبدالرحمن هاشم's post in فورم _ ما هو الخطاء فى هذا الفورم was marked as the answer   
    جزاك الله أخي الكريم كل خير.. مشاغل الشغل :)
     
    هذا حل بسيط وهو زر من أجل التعديل لينقلك إلى نموذج للتعديل لأنك بالاستعلام تجمع الاسم بالكامل
    أرجو أن يفي بالغرض
     
    خالص تحياتي
    student6-----.rar
  23. عبدالرحمن هاشم's post in المساعده فى نقل نموزج البحث الى ملفى was marked as the answer   
    وعليكم السلام
     
    بعد أذنك أخونا الفاضل اسير الشوق.. هذا مثال آخر شبيه له ولكن بطريقة أخرى بها مميزات.. قم بتشغيل النموذج FrmSrch
     
    وسيقوم بإظهار البحث في مربع قائمة ويمكنك النقر المزدوج على السجل المطلوب ليفتح معك النموذج na_stoudnt ووضعت به زر للرجوع لنموذج البحث
     
    وقمت بدمج الاسماء كلها في الاستعلام لتجنب الشبه بين الاسماء ومن مميزات البحث قمت بوضع دالة لمعلمنا الفاضل (أكسسنا) تقوم بتجاهل الحروف المهمزة (أإا - ة ه) لانه من الوارد أن يسجل الاسم مثلا (أحمد - احمد) أو (هبة - هبه) فبدون هذه الدالة سيجلب ما تمت كتابته بالضبط فقط ويتجاهل الآخر
     
    ملحوظة.. جعلت البحث بالاسم أو برقم البطاقة ويمكنك من خلال الاستعلام وضع المعيار تحت الحقل الذي تريد البحث عنه
     
    خالص تحياتي
    الملف الخاص بي.rar
  24. عبدالرحمن هاشم's post in طلب تعديل طريقة تسهيل جلب was marked as the answer   
    وعليكم السلام
     
    أخي الكريم أرفق ملفك عبر المنتدى هنا... يبدو هناك مشكلة في التحميل لم يحمل معي من الرابط
  25. عبدالرحمن هاشم's post in كيف يتم الحذف البيانات من الفورم الرئيسي والفرعي was marked as the answer   
    وعليكم السلام ورحمة الله
     
    يجب أخي الكريم أن يكون رابط بين الجدولين
    Database5.rar
×
×
  • اضف...

Important Information