فورم ادخال و تعديل وبحث (باستخدام اسم نطاق للقائمة المنسدلة)

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

اخي الكريم..

لو كان هنالك سهواَ (خطا املائي) في كتابة كلمة (تاريخ الميلاد)مثلا  في اليوزر فورم ...وتريد تصحيح ذلك

كيف يمكن الدخوك والتصحيح..

 

تقبل تحياتي واسف على الاطالة

 

الذي يظهر على الليبلات هو نطاق صف رؤوس اعمدة البيانات

يعني ما هومكتوب في راس العمود يظهر في الليبل

 

من فضلك اقرأ الشرح  !!!!!!!!!!!!!!!

[أبو ليمونه]

اخي عبدالله ...

 

بارك الله فيك لم اشاهد هذا الموضوع من قبل

 

موضوع شامل وكامل

 

وسوف احاول تطبيقة على الفورم الذي اقوم بتصميمه هذه الايام ...

 

تحياتي لك

[انحيلة]

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

[ريان أحمد]

السلام عليكم

 

 

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

 

 

شاهد المرقف

 

ققق.rar

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

السلام عليكم

 

 

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

 

 

شاهد المرقف

 

هكذا يحصل مع اي عمود فيه معادلات للحفاظ على المعادلة من التغيير.........!!

تحياتي

[ريان أحمد]

شكرا لكن

 

عتدما قمت بالبحث بدلالة العمود  الذي به دالة ظهر الخطأالذي في المرفق

 

كذلكفيما يخص البحث بدلالة الأعمدة الكلمة التي توصع في خانة البحث حساسة للكلمة يعني مثلا للو وصعت كلمة sol  لا يأتي بالبحث بينما لو وصعت SOL يأتي بالبحث

 

كذلك هل يمكن زيادة عمود أو إثنان في الليست لبيحث

Sans titre.rar

تم تعديل ديسمبر 31, 2013 بواسطه ريان أحمد

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

شكرا لكن

 

عتدما قمت بالبحث بدلالة العمود  الذي به دالة ظهر الخطأالذي في المرفق

 

كذلكفيما يخص البحث بدلالة الأعمدة الكلمة التي توصع في خانة البحث حساسة للكلمة يعني مثلا للو وصعت كلمة sol  لا يأتي بالبحث بينما لو وصعت SOL يأتي بالبحث

 

كذلك هل يمكن زيادة عمود أو إثنان في الليست لبيحث

 

غير كود زر البجث بهذا

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)
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 = InStr(1, MySrch, MyFind, vbTextCompare)
            If ib Then
                MyVelue = .Cells(R, 1).Value
                If IsDate(MyVelue) Then MyVelue = Format(MyVelue, DtF)
                Me.ListFind.AddItem MyVelue
                Me.ListFind.List(Me.ListFind.ListCount - 1, 1) = R
            End If
        End If
    Next
End With
Me.LblFindCount = Me.ListFind.ListCount
'''''''''''''''''''''''''
End Sub

تحياتي

[أشرف فتحى]

شكرًا جزيلاً

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

بحيث  تظهر الأسماء التى تبدا باول حرف ثم ثانى حرف  اكتبه فقط  وهكذا

وعند الضغط على الاسم ينقلنى اليه فى شيت الاسماء

Copy of عملاء2014.rar

تم تعديل يناير 2, 2014 بواسطه أشرف فتحى

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

شكرًا جزيلاً

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

بحيث  تظهر الأسماء التى تبدا باول حرف ثم ثانى حرف  اكتبه فقط  وهكذا

وعند الضغط على الاسم ينقلنى اليه فى شيت الاسماء

 

عند الضغط على  زر GO ينقلك الى الاسم فى شيت الاسماء

 

المرفق 2003

Copy of عملاء201114.rar

[ريان أحمد]

السلام عليكم

 

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

 

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

السلام عليكم

 

ضع اسم الكود الذي يفتح هذا الفورم في امر الزر  من الفورم الاخر الذي تريده ان يفتح الفورم

 

تحياتي

[Xima Alfadni]

السلام عليكم

 

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

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

، طرحتها عليكم لابداء الراي وجارى المزيد من الاستفادة من الفكرة و تطويرها و ساطرحها عليكم لعموم الفائدة

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

و السلام عليكم

IMP30001.zip

[Xima Alfadni]

السلام عليكم

 

تعديل اضافى على الملف المرفق

وشكرا

IMP30003.zip

[جلال الجمال_ابو أدهم]

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

 

حسب فهمى للمطلوب ان يتم استدعاء فورم الادخال و البحث من يوزر فورم اخر 
يتم الاتى

فى يوزر الفور الثانى انشأ زر امر لاستدعاء فورم الادخال و البحث

ضع كود استدعاء / اظهار فورم الادخال و البحث فى زر الامر الذى تم عمله
مرفق ملف _ تحياتى
 

Copy of عملاء2014.rar

[ريان أحمد]

هذا هو المطلوب  شكرا جزيلا وجزاك الله كل خير

[محسن أبومحمد]

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

استاذنا

هل يمكن اظهار البيانات داخل ال frame علي شكل 4اعمدة

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