حمادة عمر قام بنشر ديسمبر 6, 2013 قام بنشر ديسمبر 6, 2013 اخي الحبيب هل تحتاج عند الاستدعاء اول صف في الفاتورة حيث ان رقم الفاتورة يكرر اكثر من مرة فما البيانات التي تريد ظهورها عند الاستعلام ... هل تقصد اول صف من رقم الفاتورة فمثلا الفاتورة رقم 1 بها اكثر من 10 صفوف بنفس الرقم عند الاستدعاء تريد ان يظهر بيانات الصف الاول ام ماذا تقبل خالص تحياتي
إبراهيم ابوليله قام بنشر ديسمبر 6, 2013 الكاتب قام بنشر ديسمبر 6, 2013 اخى حماده تمام كما فلت اريد اظهار بيانات الص الاول
حمادة عمر قام بنشر ديسمبر 14, 2013 قام بنشر ديسمبر 14, 2013 السلام عليكم اخي الحبيب / ابراهيم استخدم الكود التالي لتنفيذ البحث المطلوب 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 2
إبراهيم ابوليله قام بنشر ديسمبر 14, 2013 الكاتب قام بنشر ديسمبر 14, 2013 اخى حماده بارك الله فيك الكود جميل وبسيط ولكنى اريد عمل ذلك عن طريق Me.Controls("TextBox فهل يمكن عمل ذلك
حمادة عمر قام بنشر ديسمبر 15, 2013 قام بنشر ديسمبر 15, 2013 السلام عليكم الاخ الحبيب / ابراهيم ابو ليلة بارك الله فيك تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك استخدم الكود التالي 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 1
إبراهيم ابوليله قام بنشر ديسمبر 16, 2013 الكاتب قام بنشر ديسمبر 16, 2013 اخى حماده ارجو الا اكون قد اثقلت عليك ولكنى والله ما ابغى غير التعلم ولا اريد غير الالمام باكثر الاساليب والطرق التى تستخدم فى عمل ذلك اعلم انك مشغول جدا واعلم ان الشخص قد يتضايق احيانا حينما يلبى طلب احد وخصوصا حينما تكون النتيجه صحيحه ولكنى اكرر اننى لا اريد سوف التعلم والالمام بأغلب الاكواد التى تستخدم فى الحصول على البيانات بارك الله فيك اخى الحبيب حماده
حمادة عمر قام بنشر ديسمبر 16, 2013 قام بنشر ديسمبر 16, 2013 تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك السلام عليكم الاخ الحبيب / ابراهيم ابو ليلة بارك الله فيك ولكن اخي الكريم كل ما قصدته من هذه العبارة هو انه بالفعل لا حاجة لاستخدام الطريقة الثانية حيث انك تريد البحث لنتائج اول صف فقط وليس انك قد اثقلت علي فنحن هنا اخي الحبيب نتعلم ونعلم بعضنا البعض ابتغاء مرضاه الله وانا احبك في الله اخي الحبيب تقبل اعتذاري ان كنت قد فهمت كلامي بالخطأ وتقبل خالص تحياتي
إبراهيم ابوليله قام بنشر ديسمبر 16, 2013 الكاتب قام بنشر ديسمبر 16, 2013 اخى الحبيب حماده عمر اولا انت استاذى ومعلمى ثانيا انا لم افهم الكلام بالخطأ ولكنى اردت فقط ان ارد لتوضيح المقصود من طلبى ثالثا والاهم يكفينى شرفا ان تنادينى باخى الحبيب فمهما تداخلت واختلطت الامور فههذه الكلمه(اخى الحبيب) تكفى لان تمحو كل شئ وتبقى على المحبه والموده التى هى بالفعل ما زالت ولن تزول بإذن الله
إبراهيم ابوليله قام بنشر ديسمبر 21, 2013 الكاتب قام بنشر ديسمبر 21, 2013 السلام عليكم الاخ الحبيب / ابراهيم ابو ليلة بارك الله فيك تفضل الكود المطلوب ... مع انني لا اعلم ما الفائدة من ذلك استخدم الكود التالي 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 اخى حماده اعرف ان الموضوع طول جدا ولكن فجأه جاءتنى فكره اريدك ايضا ان تطبقها على الفورم الخاص بك وعلى الموضوع الذى تفضلت به وافاد الجميع طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة وما اريده ان تشرح للاعضاء كيفيه التعديل على الفاتوره وهذا هو طلبى الان وخصوصا كيف سيتم التعديل على الفاتوره فى حالة تسجيل صف واحد فقط من الفاتوره وعند التعديل اريد تسجيل اكثر من صف كيف سيكون الحل مبدأيا انا فكرت فى حزف الفاتوره ثم تسجيلها فى نفس الوقت فهل يوجد طريقه اخرى
سما محمد قام بنشر ديسمبر 25, 2013 قام بنشر ديسمبر 25, 2013 استاذ / حمادة عمر موضوع اكثر من رااائع لقد استفدت من الكثير والكثير بارك الله لنا فيك وزادك من علمه والف شكر للاستاذ / ابراهيم صاحب الموضوع شكراا
إبراهيم ابوليله قام بنشر ديسمبر 28, 2013 الكاتب قام بنشر ديسمبر 28, 2013 استاذ / حمادة عمر موضوع اكثر من رااائع لقد استفدت من الكثير والكثير بارك الله لنا فيك وزادك من علمه والف شكر للاستاذ / ابراهيم صاحب الموضوع شكراا الاخت سما فعلا كما قلتى الموضوع شيق جدا وممتع وبه الكثير من المعلومات نشكر الاستاذ حماده عليها بارك الله فيه اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه رقم39
إبراهيم ابوليله قام بنشر ديسمبر 30, 2013 الكاتب قام بنشر ديسمبر 30, 2013 استاذ / حمادة عمر موضوع اكثر من رااائع لقد استفدت من الكثير والكثير بارك الله لنا فيك وزادك من علمه والف شكر للاستاذ / ابراهيم صاحب الموضوع شكراا الاخت سما فعلا كما قلتى الموضوع شيق جدا وممتع وبه الكثير من المعلومات نشكر الاستاذ حماده عليها بارك الله فيه اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه رقم39 للرفع
إبراهيم ابوليله قام بنشر ديسمبر 31, 2013 الكاتب قام بنشر ديسمبر 31, 2013 استاذ / حمادة عمر موضوع اكثر من رااائع لقد استفدت من الكثير والكثير بارك الله لنا فيك وزادك من علمه والف شكر للاستاذ / ابراهيم صاحب الموضوع شكراا الاخت سما فعلا كما قلتى الموضوع شيق جدا وممتع وبه الكثير من المعلومات نشكر الاستاذ حماده عليها بارك الله فيه اخى حماده الرجو النظر فى طلبى الموجود فى المشاركه رقم39 للرفع للرفع
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان