Khalid Jnb قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 (معدل) السلام عليكم لدي قاعدة بيانات كبيرة الحجم تحتوي على حقول كثيرة جدا عند اختيار الامر select لاختيار عدد الحقول المطلوبة لايسمح لي باختيار حقول اخرى هل يمكن تجزئة الكود الى سطرين او اكثر وشكرا Private Sub ChooseTble_AfterUpdate() If Not IsNull(Me.ChooseTble) = True Then If Me.ChooseTble = "Table1" Then Me.Box.RowSource = "Table/Query" Me.Box.RowSource = "SELECT Table1.[ت ],Table1.[اسم الموظف], Table1.[العنوان الوظيفي], Table1.[مكان العمل]" & _ "FROM Table1;" Box.Requery End If تم تعديل فبراير 4, 2019 بواسطه خالد سيسكو رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يعني تقدر تعمل (للأسف تم قلب الاسماء ، لأنها بالعربي!!) : "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل] FROM Table1" 15 دقائق مضت, خالد سيسكو said: عند اختيار الامر select لاختيار عدد الحقول المطلوبة لايسمح لي باختيار حقول اخرى هذا غير ممكن ، يمكن عندك خطأ في مكان ما!! جعفر 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر فبراير 4, 2019 الكاتب مشاركة قام بنشر فبراير 4, 2019 استاذ جعفر السلام عليكم عندي اكثر من 75 حقل تم ادراج كثير من الحقول ولكن الحقول الاخيرة لااستطيع كتابتها هل يمكن تجزئةجملة (select) الى سطرين رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 اها ، قصدك السطر في VBA لا يقبل ان يكون طويل !! نعم يمكن تجزئة السطر ، هكذا: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL وهنا مثالين على الطريقة: جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 4, 2019 مشاركة قام بنشر فبراير 4, 2019 وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يجب الانتباه الى اضافة مسافة فارغة بين كل سطر، ابتداءً من السطر الثاني: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL . لذا، من الافضل استعمال الطريقة التالية للسطور ابتداءً من السطر الثاني ، هكذا : dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & chr(32) & " FROM Table1" Me.Box.RowSource = mySQL جعفر رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر فبراير 4, 2019 الكاتب مشاركة قام بنشر فبراير 4, 2019 السلام عليكم استاذ جعفر شكرا لك تم العمل بنجاح بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان