كيفية تصغير اليوزر فورم

[أبوبسمله]

الان, عاطف عبد العليم محمد said:

السلام عليكم ورحمة الله وبركاته

يا أبا البراء  

        فكرة جميلة نفذتها ولكن الوضع كما هو     ــ  جزاك الله خيرا   

واخي احمد  

          يكفيني ماوصلنا اليه 

وفق الله الجميع لما يحب ويرضى

جزاك الله كل خيرا ابوالبراء

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

وانت صاحب السؤال لك حرية ما تريد من الاكتفاء او التكمله بارك الله فيك

تقبل تحياتى ومرورى

[ياسر خليل أبو البراء]

أخي الكريم عاطف

أحب أن أوجه إليك نصيحة .. نحن هنا : كما قالها عمر المختار .. نحن لا نستسلم ، ننتصر أو نموت

وهكذا نحن في طلب العلم ننتصر أو نموت ! وهذا هو شعارنا

أخبرتنا أن الوضع كما هو ولم تذكر المشكلة .. ماذا يظهر لديك من رسائل خطأ ؟ التجربة الأخيرة تعمل عندي ومتأكد من عملها بشكل جيد جداً بل بشكل ممتاز ، فكونها لا تعمل عندك فلابد إن شاء الله من معرفة السبب .. ارفق ملفك الذي جربت عليه وارفق التعديل للإطلاع عليه وموافاتك بسبب كون الوضع لم يتغير

تقبل تحياتي

[عاطف عبد العليم محمد]

يا أبا البراء  السلام عليكم ورحمة الله وبركاته

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

طبعا المشكلة الرئيسية  هي عدم عمل نموذج البحث عند الضغط مرتين على عمود3

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

 

طبعا المطلوب حل المشكلة من اي من الافاضل لمن يتيسر له الوقت  

وفق الله الجميع

 

نموذج ادخال معصلج.rar

تم تعديل مارس 23, 2016 بواسطه عاطف عبد العليم محمد

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول

إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column = 3 Then
        Call kh_Show_UFormChang1
    End If

'**********************************************************
    If Target.Column = 5 Then
        Target.Value = Date
        Selection.NumberFormat = "yyyy/mm/dd"
        Target.Offset(0, 1).Select
    End If


    If Target.Column = 6 Or Target.Column = 8 Then
        Target.Value = Target.Offset(-1, 0)
        Target.Offset(0, 1).Select
    End If
    ThisRow = Target.Row


    If Target.Column = 7 And Range("f" & ThisRow) = "قيد يومية" Then

        YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution")
        Select Case YESNO
        Case vbYes
            Target.Value = Range("f4").Value + 1
            Target.Offset(0, 1).Select
        Case vbNo
            Target.Value = Range("f4").Value
            Target.Offset(0, 1).Select
        End Select
    End If

    If Target.Column = 7 And Range("f" & ThisRow) = "استلام شيك" Then

        YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution")
        Select Case YESNO
        Case vbYes
            Target.Value = Range("g1").Value + 1
            Target.Offset(0, 1).Select
        Case vbNo
            Target.Value = Range("g1").Value
            Target.Offset(0, 1).Select
        End Select
    End If
    If Target.Column = 7 And Range("f" & ThisRow) = "قبض نقدي" Then

        YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution")
        Select Case YESNO
        Case vbYes
            Target.Value = Range("g2").Value + 1
            Target.Offset(0, 1).Select
        Case vbNo
            Target.Value = Range("g2").Value
            Target.Offset(0, 1).Select
        End Select
    End If


    If Target.Column = 7 And Range("f" & ThisRow) = "صرف نقدي" Then

        YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution")
        Select Case YESNO
        Case vbYes
            Target.Value = Range("g3").Value + 1
            Target.Offset(0, 1).Select
        Case vbNo
            Target.Value = Range("g3").Value
            Target.Offset(0, 1).Select
        End Select
    End If

    If Target.Column = 7 And Range("f" & ThisRow) = "صرف شيك" Then

        YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution")
        Select Case YESNO
        Case vbYes
            Target.Value = Range("g4").Value + 1
            Target.Offset(0, 1).Select
        Case vbNo
            Target.Value = Range("g4").Value
            Target.Offset(0, 1).Select
        End Select
    End If
End Sub

وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل ..

أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر

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

 

 

[أبوبسمله]

2 ساعات مضت, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول

إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة

وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل ..

أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر

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

نعم الاخ والصديق والمعلم والناصح النصوح

تقبل تحياتى ياغالى

ننتظر تجربة عم عاطف

[عاطف عبد العليم محمد]

4 ساعات مضت, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول

إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة

وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل ..

أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر

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

 

 

سعادة المراقب العام      ابو البراء

يافندم  للأسف لم يعمل الكود  ولا يوجد سطر أصفر 

النموذج يظهر ولكن غير فعال 

وبعدين يافندم  الواحد ما بيصدق حد يرد عليه  في موضوعه ويستوعب طلبه  لان احيانا مافي احد بيرد

( وطبعا ما على المحسنين من سبيل  )  بس عشان كده بنتمنى اللي بدأوا  يردوا  ياخدوا  الشيلة للآخر  وبرضه احنا فاهمين ( ما على المحسنين من سبيل ) 

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

بس حل المشكلة يافندم وتذكر نصيحتك 

19 ساعات مضت, ياسر خليل أبو البراء said:

أحب أن أوجه إليك نصيحة .. نحن هنا : كما قالها عمر المختار .. نحن لا نستسلم ، ننتصر أو نموت

وهكذا نحن في طلب العلم ننتصر أو نموت ! وهذا هو شعارنا

وللأخ / احمد   عن الأخ ابو البراء 

نعم الاخ والصديق والمعلم والناصح النصوح        ..... صدقت

و تقبلوا تحياتي 

[أبوبسمله]

ان شاء الله سوف نجاهد لحل المشكله حتى 

لو فكينا الاكسيل حته حتى عند الميكانيكى ههههه 

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

بالتوفيق

[عاطف عبد العليم محمد]

وفوق كل ذي علم عليم (من آية 76 يوسف ) 

تم تعديل مارس 24, 2016 بواسطه عاطف عبد العليم محمد