zizo747 قام بنشر نوفمبر 8, 2009 قام بنشر نوفمبر 8, 2009 السلام عليكم و رحمة الله أرجوا مساعدتي في إيجاد حل لرسالة خطا تظهر لي عند إدخال بيانات جديدة عن طريق فورم و شكرا REMITANCE FORM.rar
عبدالله باقشير قام بنشر نوفمبر 8, 2009 قام بنشر نوفمبر 8, 2009 السلام عليكم كانت العناصر داخل الفورم غير مرتبة من الافضل استخدام Array لتضمين اسماء العناصر بترتيب متتابع MyArray = Array("ComboBox1", "TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "TextBox7", "TextBox8", "TextBox9") شاهد المرفق REMITANCE FORM.rar
عبدالله باقشير قام بنشر نوفمبر 8, 2009 قام بنشر نوفمبر 8, 2009 شكرا اخي قصي اين انتم وغيركم من المدرسين فقد اطلتم الغيبة عن المنتدى
naderwatfa قام بنشر نوفمبر 9, 2009 قام بنشر نوفمبر 9, 2009 بارك الله فيك أخي خبور الأستاذ أستاذ ما في كلام على فكرة أنا مدرس أيضاً و متواجد كل يوم هنا و متابع جيد لما تكتبه في المنتدى
zizo747 قام بنشر نوفمبر 9, 2009 الكاتب قام بنشر نوفمبر 9, 2009 شكر لك أخي على هذه المساعدة والمعلومة لترتيب العناصر ولكن واجهتني مشكلة أخرى تتعلق بتعديل المعلومات حيث أنه لايتم التعديل عند الضغط على CommandButton21 لذا أرجو منك المساعدة مع إيضاح بسيط للخطأ الذي وقعت به و شكرا REMITANCE FORM.rar
عبدالله باقشير قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 السلام عليكم لكن واجهتني مشكلة أخرى تتعلق بتعديل المعلومات حيث أنه لايتم التعديل عند الضغط على CommandButton21 استخدمنا زر واحد للتعديل والاضافة Private Sub CommandButton21_Click() Dim R As Integer, RR As Integer Dim M As String, MM As String, M1 As String, MM1 As String, S As String, SS As String '----------------------------- M = "Customer information has been Saved": MM = "New Customer" M1 = "Supplier information has been Updated ": MM1 = "information Update" '----------------------------- If ComboBox1 = "" Then MsgBox "خلية الكود فارغة", vbCritical, "تنبيه": GoTo 1 Application.ScreenUpdating = False With Sheets("Data") '---------------- If ComboBox1.ListIndex = -1 Then _ RR = .Range("A" & .Rows.Count).End(xlUp).Row + 1: S = M: SS = MM _ Else RR = ComboBox1.ListIndex + 3: S = M1: SS = MM1 '---------------- For R = 0 To 9 .Cells(RR, R + 1).Value = Me.Controls(MyArray(R)).Value Next R End With Application.ScreenUpdating = True MsgBox S, vbSystemModal, SS 1 End Sub تفضل المرفق REMITANCE FORM2.rar
قصي قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 كود الاضافه والتعديل سريع وحلو جدا جزاك الله خيرا
قصي قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 شكرا اخي قصي اين انتم وغيركم من المدرسين فقد اطلتم الغيبة عن المنتدى ان غاب البعض عن المنتدى لظروفه التي لايعلمها الا الله إلا إنه لايمكن ان تغيب عن اي انسان تعرف عليك من اعمالك ومشاركاتك بارك الله فيك
محمدي عبد السميع قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 الله الله للدقه الله الله للجمال حفظك ربنا ورعاك ايها العالم الكبير خبور خير
محمدي عبد السميع قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 كود الاضافه والتعديل عمل مميز غير عادي بارك الله لك
عبدالله باقشير قام بنشر نوفمبر 10, 2009 قام بنشر نوفمبر 10, 2009 السلام عليكم ان غاب البعض عن المنتدى لظروفه التي لايعلمها الا الله إلا إنه لايمكن ان تغيب عن اي انسان تعرف عليك من اعمالك ومشاركاتك بارك الله فيك اخي قصي اكرمك الله كان لكلماتك هذه وقعا على قلبي اسال بها دمعي نتمنى من الله ان يتقبل منا ومنكم صالح الاعمال خالصة لوجهه الكريم اللهم انا نعوذ بك ان نشرك بك مانعلم ونستغفرك مما لا نعلم تقبل تحياتي وشكري اخي الحبيب محمدي حفظك ربي اكرمك الله تقبل تحياتي وشكري
zizo747 قام بنشر نوفمبر 11, 2009 الكاتب قام بنشر نوفمبر 11, 2009 شكرا لك أخي خبور على هذا الكود الرائع و زادك الله علما.......
cat101 قام بنشر نوفمبر 11, 2009 قام بنشر نوفمبر 11, 2009 مشكور مشكور مشكور العالم يسأل عن الرعيه والله انه لشرف مابعده شرف بارك الله فيك لهم الحق في سرعة الكود افرد له مشاركة منفصله مثل كود الستيراد
أبو جديد قام بنشر نوفمبر 11, 2009 قام بنشر نوفمبر 11, 2009 استفدنا منكم والله يعطيكم العافية والأخ خبور خير بدون مدح هذا إن دل يدل على حبك للخير وتعاونك الطيب مع الجميع الله يوفقك دنيا وأخره...
عبدالله باقشير قام بنشر نوفمبر 11, 2009 قام بنشر نوفمبر 11, 2009 السلام عليكم اخي الفاضل / كات ---حفظه الله مشكور مشكور مشكور العالم يسأل عن الرعيه والله انه لشرف مابعده شرف بارك الله فيك جزاك الله خيرا على الكلام الطيب اخي كلنا اخوان في الله نحب ونساعد بعضنا البعض إن شاء الله وان استطعنا ذلك ---------------- اخي الفاضل / مزلزل---حفظه الله الله يكرمك ويوفقك للخيرات دنيا وآخرة تقبلوا تحياتي وشكري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.