ما ريكم في هذا التطبيق (آراؤكم ونصائحكم وتصحيحاتكم تهمني)

[أبو عبد النور]

السلام عليكم،

لدي تطبيق أردت أن أتعرف على أرائكم حوله وهل من الممكن تطويره وتحسينه أو تصحيح الخطأ فيه إن وجدت.

التطبيق يعتمد على نموذج إدخال يحوي ستة حقول تكست بوكس.

وقد أفردت اهتماما خاصا بالزر إلغاء Cancel بحيث اعتمدت على متغيرين

TypeEntrance

• إذا كانت قيمته 1 فمعناه أن الإلغاء سيشمل الحقلين 5 و6 فقط.
  
• إذا كانت قيمته 2 فمعناه أن الإلغاء سيشمل كل الحقول الستة.
  
  Cancell
  • إذا كانت قيمته 1 فان الإلغاء سيشمل الحقول في النموذج
    
  • أما إذا كانت قيمته 2 فان الإلغاء سيتم في الخلايا على الورقة BD.
    

  هناك مشكل بسيط وهو عند استعمال زر TAB من تكست بوكس إلى آخر أن يتم وضع مؤشر الفأرة في نهاية التكست البوكس وليس في أوله أو بعد الحرف T كما في tbTr.

  ما حل هذه المشكلة ؟

  أترككم مع التطبيق وانتظر منكم التعليقات والانتقادات.

  شكراً.

  entrance_v(1).rar

[الـعيدروس]

السلام عليكم

حقيقة ملف به اشياء قيمة جزاك الله خير

لي طلب بسيط

شرح هذا الجزء من الكود

ما مهمة هذا الجزء

Private Sub Export(ByVal lig As Long)

استخدمت فيه هذه الدالة ماعملها ByVal

ولك منا كل الشكر والتقدير

وعمل ان شاء الله في موازين حسناتك

تم تعديل ديسمبر 29, 2011 بواسطه alidroos

[أبو عبد النور]

أهلا أخي ابو نصار،

ByVal تستعمل عندما لا نريد ان تغير الدالة قيمة المتغيرة.

عكسها ByRef تستعمل عندما نريد تغيير قيمة المتغيرة في الدالة.

كما أنتظر أصحاب الخبرة للادلاء يدلوهم في التطبيق.

[الـعيدروس]

جزاك الله خير

على الشرح

وننتظر المزيد منك

تقبل تحياتي وشكري

[أبو عبد النور]

مرحبا بك اخي الفاضل.

كيف يمكن استبدال الاوامر المتكررة في الاحداث التالية :

MouseDown و KeyDown

باستعمال الـ Class Module ؟

شكراً.

[أبو عبد النور]

السلام عليكم،

هل من احد يساعدني في Class Module ؟

[الـعيدروس]

اخي نرجو منك ارفاق الاكواد

المطلوب اختصارها

او ربطها ببعض في مودويل واحد

كي تتضح الصورة

[أبو عبد النور]

الصيغ المراد اختصارها :

Private Sub tbAD_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Private Sub tbPr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer

Private Sub tbTr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Private Sub tbN_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

بحيث يتكرر فيها الكود التالي :

If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then

	    With tbTr

		    .Text = "T"

		    .SelStart = Len(.Text)

		    .SetFocus

	    End With

    End If

وشكراً.

[الـعيدروس]

من قال لا اعلم فقد افتى

ليست لي دراية بهذا السؤال

واكوادك اعتقد انها لفيجول باسيك VB6

وليست اكواد فيجول الإكسل VBA EXCEL

لاكن حاول استخدام حلقة تكرار في حدث LOAD

ان شاء الله يزبط او انتظار فطاحلة الأكواد

[أبو عبد النور]

السلام عليكم،

لا ليست VB6 وانما قطعا VBA/Excel

والحدث لود LOAD موجود في الـ VB.

شكرا لك اخي ابو نصار على كل حال.

وانتظر المساعدة من الاساتذة.

شكراً مسبقاً.