خطأ فى استدعاء بيانات فاتوره

[حمادة عمر]

اخي الحبيب

هل تحتاج عند الاستدعاء اول صف في الفاتورة

حيث ان رقم الفاتورة يكرر اكثر من مرة

فما البيانات التي تريد ظهورها عند الاستعلام ... هل تقصد اول صف من رقم الفاتورة

فمثلا الفاتورة رقم 1 بها اكثر من 10 صفوف بنفس الرقم

عند الاستدعاء تريد ان يظهر بيانات الصف الاول ام ماذا

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

[إبراهيم ابوليله]

اخى حماده

تمام كما فلت

اريد اظهار بيانات الص الاول

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[حمادة عمر]

السلام عليكم

اخي الحبيب / ابراهيم

استخدم الكود التالي لتنفيذ البحث المطلوب

Private Sub Texinv_Change()
On Error GoTo 100
       Worksheets("invoice").Activate
       Columns(2).Find(Texinv, MatchCase:=True).Activate
          TextBox1 = ActiveCell.Offset(0, 0).Value
          TextBox2 = ActiveCell.Offset(0, 1).Value
          TextBox3 = ActiveCell.Offset(0, 2).Value
          TextBox4 = ActiveCell.Offset(0, 3).Value
          TextBox5 = ActiveCell.Offset(0, 4).Value
          TextBox6 = ActiveCell.Offset(0, 5).Value
          TextBox7 = ActiveCell.Offset(0, 6).Value
          TextBox8 = ActiveCell.Offset(0, 7).Value
          TextBox9 = ActiveCell.Offset(0, 8).Value
          TextBox10 = ActiveCell.Offset(0, 9).Value
          TextBox11 = ActiveCell.Offset(0, 10).Value
          TextBox12 = ActiveCell.Offset(0, 11).Value
          TextBox13 = ActiveCell.Offset(0, 12).Value
          TextBox14 = ActiveCell.Offset(0, 13).Value
          TextBox15 = ActiveCell.Offset(0, 14).Value

    Exit Sub
100: MsgBox ("الرقم غير موجود او خطأ")
End Sub

[حمادة عمر]

ملفات مرفقة

 

inv++.rar

[إبراهيم ابوليله]

اخى حماده

بارك الله فيك

الكود جميل وبسيط

ولكنى اريد عمل ذلك عن طريق

Me.Controls("TextBox

فهل يمكن عمل ذلك

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ابراهيم ابو ليلة

بارك الله فيك

تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك

استخدم الكود التالي

Private Sub Texinv_Change()
Dim LR, Mh As Long
Dim i As Integer
Dim S As Double
On Error Resume Next
'==================================
S = Me.Texinv.Value
Labnow.Caption = Now
'==================================
'مسح التكستات SAMA_CLEAR
For i = 2 To 16
Me.Controls("TextBox" & i) = ""
Next
'==================================
With Sheet1
    LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    Mh = WorksheetFunction.Match(S, .Range("B2:B" & LR), 0) + 2
End With
'==================================
For i = 2 To 16
Me.Controls("TextBox" & i) = Sheet1.Cells(Mh - 1, i).Value
Next
End Sub

واليك الملف بالمرفقات

 

inv11-sama.rar

[إبراهيم ابوليله]

اخى حماده

ارجو الا اكون قد اثقلت عليك

ولكنى والله ما ابغى غير التعلم

ولا اريد غير الالمام باكثر الاساليب

والطرق التى تستخدم فى عمل ذلك

اعلم انك مشغول جدا

واعلم ان الشخص قد يتضايق

احيانا حينما يلبى طلب احد

وخصوصا حينما تكون النتيجه صحيحه

ولكنى اكرر

اننى لا اريد سوف التعلم والالمام بأغلب

الاكواد التى تستخدم فى الحصول على البيانات

بارك الله فيك اخى الحبيب

حماده

[حمادة عمر]

 

تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك

 

 

السلام عليكم

الاخ الحبيب / ابراهيم ابو ليلة

بارك الله فيك

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

حيث انك تريد البحث لنتائج اول صف فقط

وليس انك قد اثقلت علي

فنحن هنا اخي الحبيب نتعلم ونعلم بعضنا البعض ابتغاء مرضاه الله

وانا احبك في الله اخي الحبيب

تقبل اعتذاري ان كنت قد فهمت كلامي بالخطأ

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

[إبراهيم ابوليله]

اخى الحبيب

حماده عمر

اولا انت استاذى ومعلمى

ثانيا انا لم افهم الكلام بالخطأ

ولكنى اردت فقط ان ارد لتوضيح المقصود من طلبى

ثالثا والاهم

يكفينى شرفا

ان تنادينى باخى الحبيب

فمهما تداخلت واختلطت الامور

فههذه الكلمه(اخى الحبيب)

تكفى لان تمحو كل شئ

وتبقى على المحبه والموده

التى هى بالفعل ما زالت ولن تزول بإذن الله

[إبراهيم ابوليله]

السلام عليكم

الاخ الحبيب / ابراهيم ابو ليلة

بارك الله فيك

تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك

استخدم الكود التالي

Private Sub Texinv_Change()
Dim LR, Mh As Long
Dim i As Integer
Dim S As Double
On Error Resume Next
'==================================
S = Me.Texinv.Value
Labnow.Caption = Now
'==================================
'مسح التكستات SAMA_CLEAR
For i = 2 To 16
Me.Controls("TextBox" & i) = ""
Next
'==================================
With Sheet1
    LR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    Mh = WorksheetFunction.Match(S, .Range("B2:B" & LR), 0) + 2
End With
'==================================
For i = 2 To 16
Me.Controls("TextBox" & i) = Sheet1.Cells(Mh - 1, i).Value
Next
End Sub

واليك الملف بالمرفقات

 

inv11-sama.rar

اخى حماده

اعرف ان الموضوع طول جدا

ولكن فجأه جاءتنى فكره

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

وعلى الموضوع الذى تفضلت به وافاد الجميع

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

وما اريده ان تشرح للاعضاء كيفيه التعديل على الفاتوره

وهذا هو طلبى الان

وخصوصا كيف سيتم التعديل على الفاتوره

فى حالة تسجيل صف واحد فقط من الفاتوره

وعند التعديل اريد تسجيل اكثر من صف

كيف سيكون الحل

مبدأيا انا فكرت فى حزف الفاتوره

ثم تسجيلها فى نفس الوقت

فهل يوجد طريقه اخرى

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[سما محمد]

استاذ / حمادة عمر

موضوع اكثر من رااائع

لقد استفدت من الكثير والكثير

بارك الله لنا فيك وزادك من علمه

 

والف شكر للاستاذ / ابراهيم صاحب الموضوع

شكراا

[إبراهيم ابوليله]

استاذ / حمادة عمر

موضوع اكثر من رااائع

لقد استفدت من الكثير والكثير

بارك الله لنا فيك وزادك من علمه

 

والف شكر للاستاذ / ابراهيم صاحب الموضوع

شكراا

الاخت سما

فعلا كما قلتى

الموضوع شيق جدا

وممتع وبه الكثير من المعلومات

نشكر الاستاذ حماده عليها

بارك الله فيه

اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه

رقم39

[إبراهيم ابوليله]

 

استاذ / حمادة عمر

موضوع اكثر من رااائع

لقد استفدت من الكثير والكثير

بارك الله لنا فيك وزادك من علمه

 

والف شكر للاستاذ / ابراهيم صاحب الموضوع

شكراا

الاخت سما

فعلا كما قلتى

الموضوع شيق جدا

وممتع وبه الكثير من المعلومات

نشكر الاستاذ حماده عليها

بارك الله فيه

اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه

رقم39

 

للرفع

[إبراهيم ابوليله]

 

 

استاذ / حمادة عمر

موضوع اكثر من رااائع

لقد استفدت من الكثير والكثير

بارك الله لنا فيك وزادك من علمه

 

والف شكر للاستاذ / ابراهيم صاحب الموضوع

شكراا

الاخت سما

فعلا كما قلتى

الموضوع شيق جدا

وممتع وبه الكثير من المعلومات

نشكر الاستاذ حماده عليها

بارك الله فيه

اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه

رقم39

 

للرفع

 

للرفع