كيف أعمل( Combobox) مرتبط بـ (Textbox)

[ابو محمد العربي]

السلام عليكم 

عثرت فى المنتدى الرائع على هذا الملف وحاولت على قدر استطاعتى التغير فيه الى الشكل الذى يناسب عملى ومشكلتى فى التالى

1-فى فورم الادخال اريد بعد اختيار الكود الموجود  Combobox يظهر تلقائيا فى Textbox العنصر ويرحل الى الشيت dd

 

2- فى فورم البحث عن الاستعلام عن الكود يظهر الكود البحث فقط مثلا البحث عن الكود1 يظهر الكود 1و1212 واريد ابدال زر الموجود فى الفورم الى زر طباعة هذا التقرير مع التنسيق فى جداول

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / AHMED2512

بارك الله فيك

بالنسبة للطلب الاول والخاص بالكومبوبكس تم تنفيذ المطلوب علي حسب فهمي لطلبك

وتم تنفيذ الترحيل ايضا الي شاشة dd

 

اما بخصوص الطلب الثاني والخاص بفورم البحث

البحث يتم بصورة صحيحة جدا ... فما المطلوب

اي من الازرار تريد ان تجعله للطباعة وما هو الشكل الذي تريد طباعته ( هل كما هي النتائج في الليست ام ان هناك جدول معين تريد الطباعة علي طريقته )

تقبل خالص تحياتي

 

 

النور1111.rar

[ابو محمد العربي]

حيالك الله شكرا اخى

EMembers-3

 اكرمك الله وبارك فيك وانفعنا الله بعلمك العظيم الطلب الاول هو المطلوب  ولكم جزيل الشكر على تعبكم معى

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

عن الطلب الثانى عند الاستعلام عن الكود 1 يعطى بيانات 1و 1212 وانا اريد اظهار بيانات الكود 1 فقط وثانيا ابدال الزر نسخ اليست فى ملف جديد الى طابعة التقرير كماهى النتائج فى الليست مع تنسيقها فى جدول فى شكل تقريرا

وشكرا

[ابو محمد العربي]

 

حيالك الله شكرا اخى

EMembers-3

 اكرمك الله وبارك فيك وانفعنا الله بعلمك العظيم الطلب الاول هو المطلوب  ولكم جزيل الشكر على تعبكم معى

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

عن الطلب الثانى عند الاستعلام عن الكود 1 يعطى بيانات 1و 1212 وانا اريد اظهار بيانات الكود 1 فقط وثانيا ابدال الزر نسخ اليست فى ملف جديد الى طابعة التقرير كماهى النتائج فى الليست مع تنسيقها فى جدول فى شكل تقريرا

وشكرا

 

اساتذة المنتدي وخبراؤه الكبار

      تحياتى للجميع على الجهد المبذول ومنكم نتعلم و بارك الله فيكم

ارجو التكرم بالرد على طلبى عند الاستعلام عن الكود 1 يعطى بيانات 1و 1212 وانا اريد اظهار بيانات الكود 1 فقط وثانيا ا طابعة التقرير كماهى النتائج فى الليست مع تنسيقها فى جدول فى شكل تقريرا

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

السلام عليكم

 

بالنسبة لهذا الطلب

 

عند الاستعلام عن الكود 1 يعطى بيانات 1و 1212 وانا اريد اظهار بيانات الكود 1 فقط

 

 

غير كود زر البحث في الفورم بهذا

Private Sub ButtonFind_Click()
Dim MyValue
Dim MyAr() As String
Dim ib As Boolean
Dim R As Integer, i As Integer, ii As Integer
Dim MyColmnFind As Integer, LastRow As Integer
Dim dt1 As Date, dt2 As Date
'-------------------------
MyColmnFind = Me.ComboFind.ListIndex + 1
If MyColmnFind = 0 Then Exit Sub
If MyColmnFind = 11 Then Me.TextFind = ""
'-------------------------
Me.ListFind.Clear
'-------------------------
With sRng.Worksheet
    LastRow = .Range("A65536").End(xlUp).Row
    If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("k2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt)
    If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("k2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt)
End With

'-------------------------
sColmn = ""
With sRng
    For R = 2 To LastRow
        Select Case .Cells(R, 11).Value2: Case dt1 To dt2
            ib = CStr(.Cells(R, MyColmnFind)) = CStr(Me.TextFind)
            If ib Then
                sColmn = sColmn & R & " "
                ii = ii + 1
                ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
                For i = 1 To ContColmn
                    If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _
                    Else MyValue = .Cells(R, i).Value2
                    MyAr(i, ii) = MyValue
                Next
            End If
        End Select
    Next
End With
If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0


End Sub

تحياتي

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

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

 

 بارك الله فيك _ تم تبديل الكود و لم يعطى النتيجة المطلوبة _ حيث يعطى النتيجة الصحيحة قبل غلق الملف_ و عند اعادة فتحه يعطى النتيجة القديمة باظهار 1نتائج +1212 _ قد يكون الخطأ من طرفى فيرجى ارفاق الملف

 

مع تقديرى و احترامى لشخصكم الكريم

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

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

 

 بارك الله فيك _ تم تبديل الكود و لم يعطى النتيجة المطلوبة _ حيث يعطى النتيجة الصحيحة قبل غلق الملف_ و عند اعادة فتحه يعطى النتيجة القديمة باظهار 1نتائج +1212 _ قد يكون الخطأ من طرفى فيرجى ارفاق الملف

 

مع تقديرى و احترامى لشخصكم الكريم

 

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

اعد المحاولة

تحياتي

[ابو محمد العربي]

السلام عليكم 

الاستاذ القدير والمعلم الفاضل عبد الله باقشير عمل متميز جدابارك الله فيك وجزاك خيرا

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

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

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

[أبو حنــــين]

السلام عليكم

جرب المرفق

2.rar

[أبو أريج]

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

[ابو محمد العربي]

السلام عليكم

الاخ ابو حنين بارك الله فيك وجزاك الله خيرا عمل اكثر من رائع 

تقبل تحياتى

[أبو حنــــين]

اخي     kingdz2011

اخي    AHMED2512

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