لؤي الخزرجي قام بنشر فبراير 9, 2015 الكاتب مشاركة قام بنشر فبراير 9, 2015 عاشت يداك اخي الصقر اسف على كثره طلباتي لكن صدقني احتج لها وانا اكرر اسفي مره ثانيه تبقى لي ان ازيد من كرمك بمطلبين فقط 1. اكمال موضوع الاجمالي 2. انشاء فورم بسيطه للدخول للشيتات من خلاله تحياتي لك وللعائله الكريمه وانا اشكرك لكل ماقدمته لي من مساعدة رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر فبراير 23, 2015 مشاركة قام بنشر فبراير 23, 2015 الصـقـر, on 09 Feb 2015 - 11:23 AM, said: اخى الكريم انظر المرفق هل هو المطلوب علما بان هذا كان مطلبك الاول وتم تنفيذه وانت من طلب تعديله بعد ذالك حيرتنى معاك تقبل تحياتى السلام عليكم ورحمة الله وبركاته مرحب بـ الاخ الحبيب حســـــام عيسى ممكن تشرح لنا الكود ده Private Sub TextBox1_Change() On Error GoTo 0 If ActiveCell.Offset(0, -1) = "اسم الصنف" Then Dim SS As Range Set SS = Range("الصنف") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 1 w = ListBox1.ListCount With SS Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 0) = Sheet18.Cells(A.Row, 3).Value ListBox1.List(w, 1) = Sheet18.Cells(A.Row, 2).Value ListBox1.List(w, 2) = Sheet18.Cells(A.Row, 1).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 1 End If If ActiveCell.Offset(0, -1) = "اسم الشاصى" Then Dim mm As Range Set mm = Range("الشاصى") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 2 w = ListBox1.ListCount With mm Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 0) = Sheet3.Cells(A.Row, 16).Value ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 17).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 2 End If If ActiveCell.Offset(0, -1) = "نوع ورقم المركبه" Then Dim nn As Range Set nn = Range("المركبة") m = TextBox1.Text ListBox1.Clear If m = "" Then GoTo 3 w = ListBox1.ListCount With nn Of_1 = .Rows.Count Of_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(m) If Not A Is Nothing Then f = A.Address Do ListBox1.AddItem ListBox1.List(w, 1) = Sheet3.Cells(A.Row, 16).Value w = w + 1 Set A = Range(.Cells(1, 1), .Cells(Of_1, Of_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> f End If End With Set A = Nothing 3 End If رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر فبراير 23, 2015 مشاركة قام بنشر فبراير 23, 2015 اخى الحبيب سيف الدين حسام ننتظر الشرح من القدير أ.ياسر خليل فهو اقدر منى على ايصال المعلومة فالكود يحتاج وقت طويل جدا لشرحه بالكتابه ربما يكون عند الاستاذ القدير ياسر خليل متسع من الوقت ليفيض علينا من علمه بشرح الكود تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
لؤي الخزرجي قام بنشر فبراير 24, 2015 الكاتب مشاركة قام بنشر فبراير 24, 2015 (معدل) السلام عليكم اخي العزيز الصقر انا انتظر تفرغك على احر من الجمر لغرض اكمال باقي الملف اتمنى ان لاتنساني يااخي العزيز 1- اضافه واجهة فورم للدخول اكمال موضوع الاجمالي تحياتي لك وللعائله الكريمه تم تعديل فبراير 24, 2015 بواسطه لؤي الخزرجي رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر فبراير 24, 2015 مشاركة قام بنشر فبراير 24, 2015 اخى الكريم ارفق ملفك على اخر تحديث حتى يتم العمل على شاشة واجهه للدخول انت عايز شاشة بكم مستخدم؟ تقبل تحياتى رابط هذا التعليق شارك More sharing options...
لؤي الخزرجي قام بنشر فبراير 24, 2015 الكاتب مشاركة قام بنشر فبراير 24, 2015 اخي العزيز الصقر السلام عليكم ارفق لك نسخة من الملف باخر تحديث المطلوب هو 1. لقد قمت بانشاء واجهة بسيطه للدخول بمستخدم واحد ( المطلوب التعديل عليها واضافه اكثر من مستخدم مع صلاحيات لكل مستخدم) اسم المستخدم : لؤي // الباسورد : 1982 2. ارفق لك صورة عن فورم واجهة للبرنامج تربط مع الشيتات ارجوا اكمال هذه الفقرتين لكي ننتقل بعد اذنك للفقرات الجديدة تحياتي لك اداره المخازن 2015.rar رابط هذا التعليق شارك More sharing options...
لؤي الخزرجي قام بنشر مارس 2, 2015 الكاتب مشاركة قام بنشر مارس 2, 2015 (معدل) السلام عليكم ارجو منك اخي العزيز ان تضيف لي فقرة صغير في صفحة كشف المركبه وقد حاول بعد الاصدقاء مساعدتي ولكن لم ينجح الامر ارجو منك اضافتها يوجد تفاصيل داخل الملف في صفحة كشف المركبه تحياتي لك وللعائلة الكريمه لؤي ادارة المخزن تعديل.rar تم تعديل مارس 2, 2015 بواسطه لؤي الخزرجي رابط هذا التعليق شارك More sharing options...
محمد الفلسطيني قام بنشر يونيو 14, 2015 مشاركة قام بنشر يونيو 14, 2015 اخى الحبيب تفضل الملف على اخرى تحديث له الملف عندى يعمل تمام لا يستغرق وقت طويل ولا شئ ويتم الحفظ فى قاعدة البيانات بعد اخر صف مكتوب حضرتك بتشتغل على اوفيس كام؟؟ رابط هذا التعليق شارك More sharing options...
ashraf_6770 قام بنشر يونيو 16, 2015 مشاركة قام بنشر يونيو 16, 2015 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عمر الزناتى قام بنشر أكتوبر 24, 2017 مشاركة قام بنشر أكتوبر 24, 2017 في ٢٤/٢/٢٠١٥ at 16:18, لؤي الخزرجي said: اخي العزيز الصقر السلام عليكم ارفق لك نسخة من الملف باخر تحديث المطلوب هو 1. لقد قمت بانشاء واجهة بسيطه للدخول بمستخدم واحد ( المطلوب التعديل عليها واضافه اكثر من مستخدم مع صلاحيات لكل مستخدم) اسم المستخدم : لؤي // الباسورد : 1982 2. ارفق لك صورة عن فورم واجهة للبرنامج تربط مع الشيتات ارجوا اكمال هذه الفقرتين لكي ننتقل بعد اذنك للفقرات الجديدة تحياتي لك اداره المخازن 2015.rar السلام عليكم اخى الحبيب وجزاك الله خير كيف يمكن ان اضيف اسم مستخدم واسم الشركة على الواجهة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.