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

الاخوه الافاضل لدى فورم لفاتوره الفورم يوجد به فرام عباره عن مجموعه من التيكست بوكس اريد طباعه هذه الفاتوره بحيث يتم طباعتها كامله اى يتم طباعة التيكست بوكس الموجوده داخل الفرام كلها وليس الظاهر منها فقط print invo.rar

اخى حسين معلومه جميله واجابه متقنه بارك الله فيك وايضا لقد توصلت الى الخطأ ومعالجته بطريقه اخرى If Me.TextBox1.Value <> "" And Me.ComboBox1.Value = "" Then 'If Me.ComboBox1.Value = "" Then MsgBox "HH " Me.TextBox1.Value = "" Me.ComboBox1.SetFocus Me.TextBox1.Value = "" Exit Sub End If

الاخوه للافاضل لدى كود اقول فيه انه عند الكتابه فى التيكست بوكس اذا كانت الكمبوبوكس فارغخ تظهر رساله عن غلق الرساله لا تغلق من اول مره فما هو الخطأ MSGBOX.rar

اخى وليد جائتنى فكره بسيطه اتمنى ان تفى بالغرض Book2.rar

اخى احمد الف مبروك عليك الترقيه ترقيه مستحقه باذن الله وانتظر ترقيه اخرى فى القريب باذن الله فانت تستحقها بالفعل

اخى عبدالله مشكورا على الرد بارك الله فيك

لاخوه الافاضل حاولت سابقا الاستفاده من الكود الاتى Private Sub TextBox1_Change() Set sh12 = Sheets("1") lr = sh12.[A65000].End(xlUp).Row For Each cl In sh12.Range("A5:B" & lr) Exit Sub If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Me.TextBox4 = cl.Offset(0, 3) Me.TextBox5 = cl.Offset(0, 4) Me.TextBox6 = cl.Offset(0, 5) Me.TextBox7 = cl.Offset(0, 6) Me.TextBox8 = cl.Offset(0, 7) Me.TextBox9 = cl.Offset(0, 8) Me.TextBox10 = cl.Offset(0, 9) End If End If Next End Sub وواجهتنى مشكله حاولت حلها ولم استطع وهى ان لوقيمه التيكست بوكس لاتساوى قيمة المتغيرc1 يتم تفريغ جميع التيكست بوكس من البيانات فكيف يتم عمل ذلك

اخى واستاذنا جمال كل عام وانت بخير الكبير لا ياتى الا بما هو عظيم

اخى واستاذنا جمال كل عام وانت بخير الكبير لا ياتى الا بما هو عظيم

اخى حماده اعرف ان الموضوع طول جدا ولكن فجأه جاءتنى فكره اريدك ايضا ان تطبقها على الفورم الخاص بك وعلى الموضوع الذى تفضلت به وافاد الجميع طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة وما اريده ان تشرح للاعضاء كيفيه التعديل على الفاتوره وهذا هو طلبى الان وخصوصا كيف سيتم التعديل على الفاتوره فى حالة تسجيل صف واحد فقط من الفاتوره وعند التعديل اريد تسجيل اكثر من صف كيف سيكون الحل مبدأيا انا فكرت فى حزف الفاتوره ثم تسجيلها فى نفس الوقت فهل يوجد طريقه اخرى

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

اخى واستاذنا معتصم بارك الله فيك موضوع جميل وشرح ممتع وليس هذه اول مره اسمع صوتك ولكنى بالفعل متابع لشروحاتك من خلال اتعلم اون لاين نسال الله لك الصحه العافيه

اخى الحبيب رجب نحمد الله على كونك بصحه جيده وعلى ان غيابك عنا كان بسبب انشغالك فى اعمالك التى تجعلك تغيب عنا لتقدم لنا كل ما هو جدير بالاحترام اعمالك تفوق كلماتنا والاهم هو وجودك معنا فى هذا المنتدى

اخى وليد انا بصراحه مش قادر افهم طلبك ايه بس جرب المرفق واعلمنى هل هذه هى الفكره التى تريدها Book2.rar

اخى مرحبا بك فى هذا المنتدى ولكن نتمنى منك الالتزام بقواعد المنتدى ومنها ان يكون اسم الضهور باللغه العربيه اما بالنسبه لطلبك فراجع الرباط التالى http://www.officena.net/ib/index.php?showtopic=50183&hl=

اخى الحبيب حماده عمر اولا انت استاذى ومعلمى ثانيا انا لم افهم الكلام بالخطأ ولكنى اردت فقط ان ارد لتوضيح المقصود من طلبى ثالثا والاهم يكفينى شرفا ان تنادينى باخى الحبيب فمهما تداخلت واختلطت الامور فههذه الكلمه(اخى الحبيب) تكفى لان تمحو كل شئ وتبقى على المحبه والموده التى هى بالفعل ما زالت ولن تزول بإذن الله

اخى وليد تم اضافة زر للحفظ وايضا تم اضافة كوموبوكس ذكر--انثى جرب وانا فى انتظار ردك تسجيل الجوازات 2014_2.rar

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

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

اخى وليد ممكن توضح اكثر يعنى انت ليك3مطالب 1-عمل زر لحفظ الملف من داخل اليوزر 2-عمال قائمه منسدله داخل الفورم 3-موضوع الطباعه انا اريد منك التوضيح اكثر هل حصلت على اجابه صحيحه بالنسبه للمطلب الاول والثانى

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

اخى وليد هل الاجابه فى المشاركه رقم6 صحيحه ام لا واذا كانت صحيحه يمكنك ايضا استخدام الكود الاتى Me.ComboBox1.List = Array("ذكر", "انثى")

اخى وليد هل تقصد هكذا save.rar

اخى وليد جرب المرفق save.rar

اخى وليد فقط قم باضافة زر الى اليوزر فورم ثم قم بالضغط مرتين على الزر ثم قم بكتابة thisworkbook.save جرب عمل ذلك بنفسك