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

[هشام شلبى]

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

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

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

نورت المنتدى استاذ هشام

[الشهابي]

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

حفظك الله من كل مكروه

لا تعليق شيء فوق الخيال

واعذرني على التأخر في الرد

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

لا زلنا منتظرين المزيد من هداياك من النوع الثقيل

الله لا يحرمنا منك ومن هداياك

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

[محمد مصطفى ابو حمزة]

كل سنة وحضرتك طيب وشكراً على احلى عيدية

[محمد مصطفى ابو حمزة]

استاذنا الكبير اعزر لى جهلى ولكن يعطى الكود عندى خطا عند استخدام البحث

Private Sub ButtonSerach_Click()

Dim tb1 As Boolean, ib As Boolean

Dim R As Long, c As Integer

Dim MyFind, MySrch, MyVelue

''''''''''''''''''''''

Me.ListFind.Clear

If Len(Trim(Me.TextFind)) = 0 Then Exit Sub

'''''''''''''''''''''

c = Me.BoxFind.ListIndex + 1

'tb1 = CBool(Me.CheckFindDate.Value = True And IsDate(Me.TextFind))

tb1 = CBool(Me.CheckFindDate.Value = True)

If tb1 Then

    If Not IsDate(Me.TextFind) Then kh_SetDate Me.TextFind

    MyFind = CDbl(CDate(Me.TextFind))


Else

    MyFind = Me.TextFind.Value

End If

'''''''''''''''''''''''

With MyRngdate.Cells(2, Ar(c))

    For R = 1 To ContRow

	    If Len(Trim(.Cells(R, 1))) Then

		    If tb1 Then MySrch = .Cells(R, 1).Value2 Else MySrch = .Cells(R, 1).Value

		    ib = UBound(filter(Array(MySrch), MyFind)) + 1

		    If ib Then

			    MyVelue = IIf(IsDate(.Cells(R, 1)), Format(.Cells(R, 1), DtF), .Cells(R, 1))

			    Me.ListFind.AddItem MyVelue

			    Me.ListFind.List(Me.ListFind.ListCount - 1, 1) = R

		    End If

	    End If

    Next

End With

'''''''''''''''''''''''''

End Sub

[محمد مصطفى ابو حمزة]

الخطا فى هذه الجملة

ib = UBound(filter(Array(MySrch), MyFind)) + 1

وذلك عند نقل الفورم الى ملف عندى وليس فى ملفكم الاصلى

جزاكم الله خيرا عنا ونفع بكم الامة

[الجزيرة]

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

وكل عام وأنتم بالف خير وصحة وسلامة والمسلمين أجمعين

ما شاء الله معين لا ينضب من الابداع

بارك الله لك في علمك

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

بعد الاطلاع وتجربة الفورم وجدت أنه من اروع ما يكون

وراح يفيد الكثيرين بشكل كبير

طلب : هل يمكن عدم ظهور الأعمدة الغير معنونه بالفورم

مثلاً : لو حذفت عنوان العمود ( الجنسية ) بالتالي لا تظهر بالفورم ، أتمنى ذلك .

وكل عام والجميع بخير

[يوسف عطا]

عمل رائع من أستاذ أروع نسأل الله أن يجعل ل أعمالك في موازين حسناتك

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

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

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

تقبل الله منا ومنكم وجعلنا ممن ينظر اليهم الرحمن فيقول ( اذهبوا مغفور لكم )

نورت المنتدى اخي الفاضل هشام

كيف صحتكم الان ان شاء الله تكونوا في صحة وعافية

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

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

كل سنة وحضرتك طيب وشكراً على احلى عيدية

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

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

حفظك الله من كل مكروه

لا تعليق شيء فوق الخيال

واعذرني على التأخر في الرد

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

لا زلنا منتظرين المزيد من هداياك من النوع الثقيل

الله لا يحرمنا منك ومن هداياك

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

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

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

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

الخطا فى هذه الجملة

ib = UBound(filter(Array(MySrch), MyFind)) + 1

وذلك عند نقل الفورم الى ملف عندى وليس فى ملفكم الاصلى

جزاكم الله خيرا عنا ونفع بكم الامة

لا ادري ايش المشكلة عندكم

سننتظر اذا اشتكى احدهم من نفس الكود

سنعرف ان المشكلة ليست خاصة بك فقط

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

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

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

وكل عام وأنتم بالف خير وصحة وسلامة والمسلمين أجمعين

ما شاء الله معين لا ينضب من الابداع

بارك الله لك في علمك

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

بعد الاطلاع وتجربة الفورم وجدت أنه من اروع ما يكون

وراح يفيد الكثيرين بشكل كبير

طلب : هل يمكن عدم ظهور الأعمدة الغير معنونه بالفورم

مثلاً : لو حذفت عنوان العمود ( الجنسية ) بالتالي لا تظهر بالفورم ، أتمنى ذلك .

وكل عام والجميع بخير

يمكنك تجاوز هذا العمود عند تعيينك للنطاق في كود اظهار الفورم

Sub kh_Show_UFormChang2()

On Error GoTo 1

With UFormChang

    .kh_SetAddrss "مثال2", "C4:D4,F4:H4", "B4"

    .Show

End With

1:

If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في  : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء"

On Error GoTo 0

End Sub

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

عمل رائع من أستاذ أروع نسأل الله أن يجعل ل أعمالك في موازين حسناتك

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

[محمد مصطفى ابو حمزة]

شكرا استاذنا على الرد وساحاول مع الكود لفهم الخطا

[أنس دروبي]

الله يجزيك الخير أخي عبد الله باقشير

عودتنا دائماً على أعمالك المبدعة والشيقة

جاري التجربة

والله يجزيك الخير مرة أخرى والله أنها أجمل هدية في العيد

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

وشكراً

[الذيب 2015]

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

ابددددددددددداااااااااااااااااع بكل مافي هذه الكلمة من معنى

ماشاء الله علييييييييك

تسلم يمنااااااااااااااك

[khaled0795]

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

يا ريت لو تضيف زر طباعة على الفورم للسجل المستعلم عنه .

ولك جزيل الشكر والامتنان

[سمير هنداوي]

جزاكم الله خيرا أخي الحبيب عبد الله باقشير

تقبل الله منكم

[Akram Galal]

أستاذنا الفاضل

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

وأعداه الله عليك بالصحة والعافية والسعادة

وجزالك الله خيرا علي هذه الأعمال الممتازة التي لا تقدر بثمن

وجعلك الله دائما سباقاً للخير والعطاء .

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

[ياسر الحافظ]

استاذنا الكبير ... الاخ العزيز خبور خير " عبد الله باقشير " المحتـــــــــــــرم :

بداية اعتذر عن التأخير ولكن ان تصل متأخرا وتشاهد وتتعلم من هذا الابداع خيرا من ان لاتصل ابدا

من قلب صادق ( ان شاء الله ) اقول جزاك الله كل الخير ...

هذا العمل ليس هدية عيد ... هذا وسام يعلق على صدر الموقع ( موقعنا الغالي اوفيسنا )

وسام نعتز به جميعا ... نفتخر ونفاخر بهذ العمل الاحترافي المميز .. هذا العمل الجبار حقا

اهنئك من قلبي .. احييك على هذه العطاءات الرائعة ... اغبطك على هذا التفاني في سبيل الاخرين

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

اعتقد اننا يحق لنا ان نفاخر بشخص مثلك امام العالم كله ..

مرة اخرى آسف على التأخير ولكن هذه الايام الامر ليس بيدي ... ولكن الحمد لله لم تفتني فرصة ان افتخر واتفاخر بأن في المنتدى شخص بروعتك ونبلك

واستغل هذه المشاركة لاقول لكل الاحبة .. الاخوة ... اساتذتي الكرام " كل عــــــــــــام وانتم بخير وامان واطمئنان "

وفقك الله ......

ابو الحارث

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

الله يجزيك الخير أخي عبد الله باقشير

عودتنا دائماً على أعمالك المبدعة والشيقة

جاري التجربة

والله يجزيك الخير مرة أخرى والله أنها أجمل هدية في العيد

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

وشكراً

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

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

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

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

ابددددددددددداااااااااااااااااع بكل مافي هذه الكلمة من معنى

ماشاء الله علييييييييك

تسلم يمنااااااااااااااك

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

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

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

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

يا ريت لو تضيف زر طباعة على الفورم للسجل المستعلم عنه .

ولك جزيل الشكر والامتنان

جزاكم الله خيرا أخي الحبيب عبد الله باقشير

تقبل الله منكم

أستاذنا الفاضل

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

وأعداه الله عليك بالصحة والعافية والسعادة

وجزالك الله خيرا علي هذه الأعمال الممتازة التي لا تقدر بثمن

وجعلك الله دائما سباقاً للخير والعطاء .

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

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

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

استاذنا الكبير ... الاخ العزيز خبور خير " عبد الله باقشير " المحتـــــــــــــرم :

بداية اعتذر عن التأخير ولكن ان تصل متأخرا وتشاهد وتتعلم من هذا الابداع خيرا من ان لاتصل ابدا

من قلب صادق ( ان شاء الله ) اقول جزاك الله كل الخير ...

هذا العمل ليس هدية عيد ... هذا وسام يعلق على صدر الموقع ( موقعنا الغالي اوفيسنا )

وسام نعتز به جميعا ... نفتخر ونفاخر بهذ العمل الاحترافي المميز .. هذا العمل الجبار حقا

اهنئك من قلبي .. احييك على هذه العطاءات الرائعة ... اغبطك على هذا التفاني في سبيل الاخرين

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

اعتقد اننا يحق لنا ان نفاخر بشخص مثلك امام العالم كله ..

مرة اخرى آسف على التأخير ولكن هذه الايام الامر ليس بيدي ... ولكن الحمد لله لم تفتني فرصة ان افتخر واتفاخر بأن في المنتدى شخص بروعتك ونبلك

واستغل هذه المشاركة لاقول لكل الاحبة .. الاخوة ... اساتذتي الكرام " كل عــــــــــــام وانتم بخير وامان واطمئنان "

وفقك الله ......

ابو الحارث

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

لهذا الكلام الطيب

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

وازال عنكم الغمة

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

[عابردرب]

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

مبدع بما تعنيه الكلمه ..لقد استفد منه كثير..اسال الله ان يكتب له الاجر

واصل إبداعاتك أيها الغالي .. وفقك الله وسدد خطاك