فورم ادخال وتعديل مرن للكل وبامكانيات واسعة

[deebsagheer]

اللهم اجزيه عنا خير الجزاء.

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

[رعد العزاني]

الاستاذ عبد الله باقشير المحترم

السلام عليكم ورحمه الله وبركاته كل عام وانتم جميعا بألف خير وجميع الاساتذة والزمــلاء والاعضاء بهذا الصرح العلمي الشامخ بخير وعافية أعادة الله علينا جميعا باليمن والخير والبركة

بداية لا اعرف ماذا اقول بعد كل ما قيل في شكر أستاذنا ومعلمنا الجليل باقشير

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

اشكرك جزيل الشكر ولا املك الا ان ابتهل للمولى عز وجل بان يجعل ما تقدمة في ميزان حسناتك وان يطيل الله بعمرك ويجعلك ذخرا وعوننا لنا جميعا ... تحياتي الحارة لسيادتك ولجميع الاستاذة في المنتدى فهم جميعا مبدعون ويستحقون الشكر والتقدير والثناء وأقول لكم جميعا ( سيروا فعين الله ترعاكم )

[الجزيرة]

أخي الحبيب / عبد الله باقشير

هل يمكن تطوير أو تعديل الفورم بحيث لايعرض الأعمدة أو الصفوف المخفيه

أتمنى ذلك واعانك الله عليه فهو خير معين

[ism]

اكثر من رائع ... كنت قد احببت ان استفيد من هذا الفورم في برنامج ولكني لا اعلم كيف اغير امتداد الخلايا في البرنامج

فهل تعينني فيه ؟؟

[أبوســـارة1973]

جهد جبار

في ميزان حسناتك

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

[خالد الشاعر]

استاذى القدير

مبدع .. مبدع.. مبدع

لا اجد كلمات تعبر عن هذا العمل

جعلة الله فى ميزان حسناتك

تم تعديل نوفمبر 12, 2012 بواسطه khhanna

[غالب عبد]

جزاك الله كل خيـــــ ر

[ابو تميم]

العلامة والعملاق في عالم الاكسل الأستاذ عبد الله باقشير

جزاك الله خيرا وأطال عمرك ورزقك من حيث لا تحتسب

منذ أول يوم تم نشر هذا الموضوع وأنا أتابعه وأحلل خفاياه وفهمت بعضا منها وهذا بالنسبة إلي إنجاز عظيم أن أفهم وأحلل ولو نسبة بسيطة جدا من أكواد علامة قدير مثلك

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

تم إنشاء سؤال جديد لتعم الفائدة على الرابط التالي :

http://www.officena....showtopic=44043

تم تعديل نوفمبر 16, 2012 بواسطه ابو تميم

[عبدالله المجرب]

على نفس رابط السؤال تم وضع محاولة

[nchteiwi]

الاستاذ عبد الله باقشير المحترم

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

أستاذنا ومعلمنا الجليل باقشير

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

لو تكرمتم لدي سؤال ؟؟

عندما احاول في المثال الاول ان ادرج في القائمة المنسدلة الجنس ذكر او انثى يعطيني ما هو في العمود N4.5 وليس كما هو في المثال الثاني ؟؟؟

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

تم تعديل نوفمبر 19, 2012 بواسطه nchteiwi

[عبدالله باقشير]

الاستاذ عبد الله باقشير المحترم

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

أستاذنا ومعلمنا الجليل باقشير

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

لو تكرمتم لدي سؤال ؟؟

عندما احاول في المثال الاول ان ادرج في القائمة المنسدلة الجنس ذكر او انثى يعطيني ما هو في العمود N4.5 وليس كما هو في المثال الثاني ؟؟؟

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

حمل المرفق الذي في المشاركة 1

في هذا الموضوع

[اسلام سيد]

بارك الله فيك استاذنا عبد الله باقشير

[أبوعبد الله]

أخي الحبيب وأستاذي الكريم / أبو علي ( عبدالله باقشير )

أنت رائع ومبدع دائماً أسأل الله تعالى أن يرفع درجاتك وقدرك في الدنيا والآخرة .

تلميذك وأخوك ومحبك أبو عبدالله

[أحمد السيد]

الله الله على الجمال والله مبدع

ربنا يبارك فيك ويوسع عليك كمان وكمان

فعلا مبدع

[الزباري]

السلام عليكم

الاستاذ الخبير عبد الله باقشير حفظك الله ورعاك .. أرجو المعذرة .. لقد استفدت كثيرا من هذا النموذج.. ولكن لو أردت أن أختار قيمة من قائمة موجودة في شيت آخر فما السبيل؟

وتفضلوا بقبول فائق الإحترام والتقدير

[بومحمد2000]

زادك الله من فضله و جزاك عنا كل خير

[هشام كوكب]

بارك الله فيك

وزادك علماً

[عادل ابوزيد]

الاستاذ الفاضل عبد الله باقشير

اعمالك نجوم تتلألا فى منتدانا لترشد عقولنا فى ظلمات قلة المعرفة

جعلها لله فى ميزان حسناتك

[م/ مغترب]

السلام عليكم

 

هل ممكن تعديل الكود الخاص بإحظار البيانات بناءا على السجل  على ان يتم إحظار البيانات بناءا على الرقم المكتوب بغض النظر عن التسلسل

 

على نفس ملف الاستاذ الكبير / عبد الله باقشير

 

Private Sub TextSerial_Change()
Dim v
v = Me.TextSerial.Text
If Len(v) = 0 Then Exit Sub
If Not IsNumeric(v) Then GoTo 1
If v = 0 Or v > ContRow Then GoTo 1
Exit Sub

 

1: Me.TextSerial.Text = Left(Me.TextSerial.Text, Len(Me.TextSerial.Text) - 1)
End Sub

Private Sub TextSerial_AfterUpdate()
If Len(Me.TextSerial) Then Me.ScrollBar1.Value = Me.TextSerial.Value: Me.TextSerial = ""
End Sub

 

 

أرجو ان تكون الفكرة وصلت

 

وشكرا

[عبدالله باقشير]

السلام عليكم

 

هل ممكن تعديل الكود الخاص بإحظار البيانات بناءا على السجل  على ان يتم إحظار البيانات بناءا على الرقم المكتوب بغض النظر عن التسلسل

 

على نفس ملف الاستاذ الكبير / عبد الله باقشير

 

Private Sub TextSerial_Change()

Dim v

v = Me.TextSerial.Text

If Len(v) = 0 Then Exit Sub

If Not IsNumeric(v) Then GoTo 1

If v = 0 Or v > ContRow Then GoTo 1

Exit Sub

 

1: Me.TextSerial.Text = Left(Me.TextSerial.Text, Len(Me.TextSerial.Text) - 1)

End Sub

Private Sub TextSerial_AfterUpdate()

If Len(Me.TextSerial) Then Me.ScrollBar1.Value = Me.TextSerial.Value: Me.TextSerial = ""

End Sub

 

 

أرجو ان تكون الفكرة وصلت

 

وشكرا

 

الطلب غير مفهوم

[م/ مغترب]

 

السلام عليكم

 

هل ممكن تعديل الكود الخاص بإحظار البيانات بناءا على السجل  على ان يتم إحظار البيانات بناءا على الرقم المكتوب بغض النظر عن التسلسل

 

على نفس ملف الاستاذ الكبير / عبد الله باقشير

 

Private Sub TextSerial_Change()

Dim v

v = Me.TextSerial.Text

If Len(v) = 0 Then Exit Sub

If Not IsNumeric(v) Then GoTo 1

If v = 0 Or v > ContRow Then GoTo 1

Exit Sub

 

1: Me.TextSerial.Text = Left(Me.TextSerial.Text, Len(Me.TextSerial.Text) - 1)

End Sub

Private Sub TextSerial_AfterUpdate()

If Len(Me.TextSerial) Then Me.ScrollBar1.Value = Me.TextSerial.Value: Me.TextSerial = ""

End Sub

 

 

أرجو ان تكون الفكرة وصلت

 

وشكرا

 

الطلب غير مفهوم

 

 

أرفقت صورة وتم الكتابة اسفلها المطلوب 

وشكرا على ردك السريع

[عبدالله باقشير]

السلام عليكم

ليس لاي عمود علاقة بتسلسل البيانات في الفورم

التسلسل يوخذ تلقائيا حسب موقع السجل في قاعدة البيانات

اما عمود التسلسل هذا اختياري ممكن تستخدمه وممكن لا

 

فهمت

[م/ مغترب]

السلام عليكم

ليس لاي عمود علاقة بتسلسل البيانات في الفورم

التسلسل يوخذ تلقائيا حسب موقع السجل في قاعدة البيانات

اما عمود التسلسل هذا اختياري ممكن تستخدمه وممكن لا

 

فهمت

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

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

جرب الغاء التسلسل و ادخل ارقام عشوائيه في الخلايا ( C11:C16) واذهب للفورم الى رقم السجل وحاول ان تبحث بها  لن تظهر .

 

الغاء شرط التسلسل وجعل ادخال الرقم مفتوح ليظهر في البحث بالفورم

وشكرا

تم تعديل أغسطس 6, 2013 بواسطه م/ مغترب

[م/ مغترب]

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

 

استاذنا الكبير /  عبدالله باقشير

 

هل عرفت قصدي من الصورتين

 

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

كيف اغير في البرمجة

وشكرا

[مهدي محمد]

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

عند البحث علي اكبر من الرقم 2958465   يعطي الرسالة      MyVelue = IIf(IsDate(.Cells(R, 1)), Format(.Cells(R, 1), DtF), .Cells(R, 1))

 نرجو منكم اذا تفضلتم بحل  المشكلة ولكم منا خالص الشكر والتقدير