اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

"" حطلك اشي بسر البال مش صورة شوية زعران "" ... بمزح معك

--------------------------

برنامج اكثر من رائع وما نزال ننتظر منك المزيد والمزيد

""عماد العبادي ""

قام بنشر

اخونا الكريم استاذ: احمد ( ابو عبدالله )

عتب عليك مازحا الاستاذ : الحسامي ، على صورة واجهة البرنامج رغم حبنا الجارف لهذا الفريق

فإقبل مني عتابي ( مازحا ايضا ) على الصورة التي اسفل توقيعك .. ياتشيلها ؟ وإلا هتخسر كتير من معجبيك

نتكلم جد ..

البرنامج ، كما هي أعمالك دائماً ، رائع واكثر من رائع ، ولكن حسب طلبك من سرد أي خطأ أو نسيان :

* شاشة البحث والتعديل وطباعة كشوف الحساب ليس بها زر عوده للصفحة الرئيسية أو خروج 0 كما هي في استعلام الشيكات والاكواد

* يجب على المستخدم معرفة اسماء الصفحات حتى يستخدم زر مشاهدة الصفحات للتنقل بينها

* ياريت يكون في زر ولو خافت وصغير ليظهر الصفحات كما هو في اعمالك السابقة (على ما اذكر الفهرس)

وفقك الله لما فيه الخير وبارك لك في عبدالله وفي أهل بيتك

أخوك : حسن

قام بنشر

اخي العزيز المدريدي (ابو العبادي)

تقبل تحياتي

==========================================

اخي العزيز الاهلاوي new4a

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

تقبل تحياتي

==========================================

اخي العزيز اشرف من الواضح انك ما بتحب برشلونه

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

وهذا سهل لان الرقم هو نفس الرقم الافتراضي لالاغلب اجهزة في الدنيا مثل الرسيفر ومكون من اربع ارقام(سهل جدا)

تقبل تحياتي

==========================================

اخي العزيز عادل

انت الاروع

تقبل تحياتي

============================================

اخي العزيز ابو احمد

انت هيك تمام تمام

تقبل تحياتي

قام بنشر (معدل)

الرجاء العمل على حذف السطر الذي باللون الازرق من الكود التالي في فورم الاكواد رقم 7

Private Sub ComboBox1_Change()

Dim r As Integer, rr As Integer, endrow As Integer

With Sheet26

endrow = .Range("a" & .Rows.Count).End(xlUp).Row

For rr = 2 To endrow

If .Cells(rr, 1).Value = Val(ComboBox1) Then

[b][color="#000080"]Application.Cells(rr, 1).Activate[/color][/b]

For r = 1 To 5

Me.Controls(mycon(r)).Value = .Cells(rr, r).Value

Next r

Exit For


Else

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""


End If

Next rr

End With

End Sub

Application.Cells(rr, 1).Activate

اقصد هذا السطر

تم تعديل بواسطه احمد حمور-ابوعبدالله
  • 2 months later...
قام بنشر

الاخوه الكرام

الشرح مرفق مع الملف

وارجوا المعذره في حالة وجود اخطاء في البرنامج مع تنبيهي لها لمعالجتها ان وجدت

الاخ العزيز جزاكم الله خير لى سؤال عند ادخال اكثر من 15 رقم في الخلية بالاكسيل تظهر الارقام اصفار

فهل من طريقة ادخال اكثر من 15 قيمة في الخلية

  • 1 month later...
قام بنشر (معدل)

البرنامج جميل ورائع وكعادتك وكما شاهدت لك الكثير من الاعمال المتميزة ....

** لكن لمن اراد ان يستخدم بعض الطرق التي استخدمت في البرنامج فلن يستطيع ذلك

مثل طريقة استخدام الفورم وطريقة الاستدعاء له والحقول التي يرسل لها البيانات .... الخ

وذلك في برنامج آخر ......

فأنا في حاجة الى رغبة معرفة عمل الفورم عن طريق شاشة ثابته وبنفس الاسلوب لعمل ادخالات آخرى في برنامج آخر .

وعمل الايقونات الازمة للطباعة او العرض او التعديل ... الخ

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

ومن الافضل عمل لنا ملف مفتوح له ... للاستفادة للجميع

الله يعطيك العافية يا ابوعبدالله على كل هذا المجهود الجميل وان يعطيك على قد نيتك الصافية

كما ارجو بأن لاتنساني في طلبي ...

تم تعديل بواسطه A_ALOMANI
قام بنشر

اخي الكريم ابو المومني

كود الحمايه لصفحة الفجوال بيسك هو 0000 اربع اصفار

ورقم السري لمشاهدة الصفحات هو 1234

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

* ابقاء اسماء الصفحات كما هي

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

يعني في امور يجب الانتباه لها ولكنها بسيطه ان شاء الله

المحاوله هي الاساس للنجاح

وشكرا لك مره اخرى على التعليق الجميل

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information