kaser906 قام بنشر فبراير 9, 2017 مشاركة قام بنشر فبراير 9, 2017 السلام عليكم ورحمة الله وبركاتة بالمرفق يوجد استعلام حاولت دمج حقل المجوع مع النص عن لكن للاسف يظهر قيمة حقل النص بدل النص حاولت اضافو الدالة column(1) اترككم مع الصورة للمطلوب مع المرفق NamoerAndTeixt.rar رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 10, 2017 الكاتب مشاركة قام بنشر فبراير 10, 2017 UP رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 10, 2017 مشاركة قام بنشر فبراير 10, 2017 وعليكم السلام حيا الله اخوي كاسر حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ، لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول جعفر 574.NamoerAndTeixt.accdb.zip 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 13 ساعات مضت, jjafferr said: حيا الله اخوي كاسر ياهلا ويامرحبا بالغايب اللي صار له اسبوع ماله حس ولا خبر قلت يمكن جاي للسعودية وتمر علينا 13 ساعات مضت, jjafferr said: حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ، معلومة جديدة بالنسبة لي استاذي الكريم 13 ساعات مضت, jjafferr said: لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة الطريقة هذيي اعرفها لكن المشكلة بتخليني ادور على جميع الجداول والاستعلامات واعدلها قلت اضع المشكلة بالمنتدى يمكن لها حل لكن ما دام ما فيه حل الله يعين نعدل على الجميع 13 ساعات مضت, jjafferr said: هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول خلاص من هذا اليوم راح استغني عن هذه الطريقة يعطيك الف عافية استاذي وامانة اي زيارة للسعودية تزورنا ارسلي على الايميل وانسق معاك رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 جرب فكرة انتقاء القيم بشرط وبما ان القائمة كقائمة قيم نستخدم الدالة choose للمساعدة Expr1: [prise]*[namepr] & " " & Choose([nams],"ملي غرام","كيلو غرام","لتر","جالون") وعليك تغيير قيمة الجالون الى 4 بدلا من 5 بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 1 ساعه مضت, رمهان said: جرب فكرة انتقاء القيم بشرط وبما ان القائمة كقائمة قيم نستخدم الدالة choose للمساعدة Expr1: [prise]*[namepr] & " " & Choose([nams],"ملي غرام","كيلو غرام","لتر","جالون") وعليك تغيير قيمة الجالون الى 4 بدلا من 5 بالتوفيق حل : جميل استاذ رمهان رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 شكرا أخوي رمهان ، خليتني افكر بطريقة ثانية بدل الاستعلام ، نستخدم الكود في وحدة نمطية ، ونناديها من الاستعلام هذا الاستعلام ، وننادي الوحدة النمطية هكذا: . والنتيجة: . وهذه هي الوحدة النمطية: Function Lookup_Values(N) 'rsT = Row Source Type 'rs = Row Source rsT = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSourceType").Value rs = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSource").Value If rsT = "Value List" Then Dim x() As String x = Split(rs, ";") For i = LBound(x) To UBound(x) If x(i) = N Then Lookup_Values = x(i + 1) Lookup_Values = Replace(Lookup_Values, Chr(34), "") Exit For End If Next i End If End Function . ولكن ، الجواب الاساسي كان ولا يزال: 18 ساعات مضت, jjafferr said: حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ، عن طريق SQL الاستعلام جعفر 574.1.NamoerAndTeixt.accdb.zip 2 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 16 دقائق مضت, jjafferr said: شكرا أخوي رمهان ، خليتني افكر بطريقة ثانية بدل الاستعلام ، نستخدم الكود في وحدة نمطية ، ونناديها من الاستعلام هذا الاستعلام ، وننادي الوحدة النمطية هكذا: . والنتيجة: . وهذه هي الوحدة النمطية: Function Lookup_Values(N) 'rsT = Row Source Type 'rs = Row Source rsT = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSourceType").Value rs = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSource").Value If rsT = "Value List" Then Dim x() As String x = Split(rs, ";") For i = LBound(x) To UBound(x) If x(i) = N Then Lookup_Values = x(i + 1) Lookup_Values = Replace(Lookup_Values, Chr(34), "") Exit For End If Next i End If End Function . ولكن ، الجواب الاساسي كان ولا يزال: جعفر 574.1.NamoerAndTeixt.accdb.zip روعة من اي كوكب انت ؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 11, 2017 مشاركة قام بنشر فبراير 11, 2017 3 دقائق مضت, Shivan Rekany said: روعة من اي كوكب انت ؟ هلا والله بشفان انا من الكوكب الذي كما قلت عنه: اقتباس ولست بخبير ، وانما مستخدم عنيد ، لا يقبل الاستسلام للبرنامج ، وانما اُطوّعه لما اريد جعفر 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 11, 2017 الكاتب مشاركة قام بنشر فبراير 11, 2017 46 دقائق مضت, jjafferr said: شكرا أخوي رمهان ، خليتني افكر بطريقة ثانية بدل الاستعلام ، نستخدم الكود في وحدة نمطية ، ونناديها من الاستعلام هذا الاستعلام ، وننادي الوحدة النمطية هكذا: . والنتيجة: . وهذه هي الوحدة النمطية: Function Lookup_Values(N) 'rsT = Row Source Type 'rs = Row Source rsT = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSourceType").Value rs = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSource").Value If rsT = "Value List" Then Dim x() As String x = Split(rs, ";") For i = LBound(x) To UBound(x) If x(i) = N Then Lookup_Values = x(i + 1) Lookup_Values = Replace(Lookup_Values, Chr(34), "") Exit For End If Next i End If End Function . ولكن ، الجواب الاساسي كان ولا يزال: جعفر 574.1.NamoerAndTeixt.accdb.zip عندما تجتمع العمالقة وتدور رحى التفكير تظهر الحلول شكرا استاذي جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان