اظهار النص داخل حقل المجموع باالاستعلام عن طريقة دالة column

[kaser906]

السلام عليكم ورحمة الله وبركاتة

بالمرفق يوجد استعلام

حاولت دمج حقل المجوع مع النص عن

لكن للاسف يظهر قيمة حقل النص بدل النص

حاولت اضافو الدالة  column(1)

اترككم مع الصورة للمطلوب مع المرفق

 

 

NamoerAndTeixt.rar

[kaser906]

UP

[jjafferr]

وعليكم السلام

 

حيا الله اخوي كاسر

 

حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ،

لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة

هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول

 

جعفر

 

 

574.NamoerAndTeixt.accdb.zip

[kaser906]

13 ساعات مضت, jjafferr said:

حيا الله اخوي كاسر

ياهلا ويامرحبا بالغايب اللي صار له اسبوع ماله حس ولا خبر

قلت يمكن جاي للسعودية وتمر علينا

13 ساعات مضت, jjafferr said:

حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ،

معلومة جديدة بالنسبة لي استاذي الكريم

 

13 ساعات مضت, jjafferr said:

لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة

الطريقة هذيي اعرفها

لكن المشكلة بتخليني ادور على جميع الجداول والاستعلامات  واعدلها

قلت اضع المشكلة بالمنتدى يمكن لها حل

لكن ما دام ما فيه حل الله يعين نعدل على الجميع

13 ساعات مضت, jjafferr said:

هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول

خلاص من هذا اليوم راح استغني عن هذه الطريقة

 

يعطيك الف عافية استاذي

وامانة اي زيارة للسعودية تزورنا ارسلي على الايميل وانسق معاك 

[رمهان]

جرب فكرة انتقاء القيم بشرط

وبما ان القائمة كقائمة قيم

نستخدم الدالة choose   للمساعدة

Expr1: [prise]*[namepr] & "       " & Choose([nams],"ملي غرام","كيلو غرام","لتر","جالون")

وعليك تغيير قيمة الجالون الى 4 بدلا من 5

 

بالتوفيق

[kaser906]

1 ساعه مضت, رمهان said:

جرب فكرة انتقاء القيم بشرط

وبما ان القائمة كقائمة قيم

نستخدم الدالة choose   للمساعدة

Expr1: [prise]*[namepr] & "       " & Choose([nams],"ملي غرام","كيلو غرام","لتر","جالون")

وعليك تغيير قيمة الجالون الى 4 بدلا من 5

 

بالتوفيق

حل : جميل استاذ رمهان

 

[jjafferr]

شكرا أخوي رمهان ، خليتني افكر بطريقة ثانية

بدل الاستعلام ، نستخدم الكود في وحدة نمطية ، ونناديها من الاستعلام

 

هذا الاستعلام ، وننادي الوحدة النمطية هكذا:

.

والنتيجة:

.

 

وهذه هي الوحدة النمطية:

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

[Shivan Rekany]

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

روعة
من اي كوكب انت ؟
 

[jjafferr]

3 دقائق مضت, Shivan Rekany said:

روعة
من اي كوكب انت ؟
 

هلا والله بشفان

انا من الكوكب الذي كما قلت عنه:

اقتباس

ولست بخبير ، وانما مستخدم عنيد ، لا يقبل الاستسلام للبرنامج ، وانما اُطوّعه لما اريد 

 

جعفر

[kaser906]

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

عندما تجتمع العمالقة وتدور رحى التفكير

تظهر الحلول

شكرا استاذي جعفر