استعلام بشكل مختلف

[jo_2010]

الخبراء الافاضل

ارجو مساعدتى عملت قاعدة بيانات بسيطة بها نموذج مرتبط باستعلام جدولى

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

الضغط على زر لفتح تقرير يعرض الموجود فى النموذج فقط بعد الفلترة والتصفية

اليكم القاعدة للتعديل عليها

لكم كل الشكر والتقدير

Database1.rar

[زياد الحسناوي]

35 دقائق مضت, jo_2010 said:

الخبراء الافاضل

ارجو مساعدتى عملت قاعدة بيانات بسيطة بها نموذج مرتبط باستعلام جدولى

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

الضغط على زر لفتح تقرير يعرض الموجود فى النموذج فقط بعد الفلترة والتصفية

اليكم القاعدة للتعديل عليها

لكم كل الشكر والتقدير

Database1.rar

@jo_2010

تفضل وان شاء الله يكون المطلوب 

 

Database11.accdb

[jo_2010]

اخى الفاضل  زياد

اشكرك على سرعة الرد

ولكن مااريدة هو العمل على الاستعلام الجدولى الذى اريد ان يظهر التقريركما بالشكل فى الاستعلام بحيت تكون اسماء التحاليل هى راس العمود

ارجو مساعدتى ان امكن ولك الشكر مقدما

[زياد الحسناوي]

33 دقائق مضت, jo_2010 said:

اخى الفاضل  زياد

اشكرك على سرعة الرد

ولكن مااريدة هو العمل على الاستعلام الجدولى الذى اريد ان يظهر التقريركما بالشكل فى الاستعلام بحيت تكون اسماء التحاليل هى راس العمود

ارجو مساعدتى ان امكن ولك الشكر مقدما

@jo_2010

تم التعديل حسب ما فهمت من كلامك

Database11.accdb

[jo_2010]

الفاضل المميز الاستاذ زياد

تحية خالصة على المجهود ولكن ارجو من حضرتك فتح نموذج A ورؤية شكل النموذج الذى اريد ان يظهر فى التقرير بنفس الشكل واكرر اسفى على تعب حضرتك فى ايجاد حل لمساعدتى خالص الشكر والتقدير

مرفق قاعدة البيانات بعد التعديل على نموذج A

Database11.rar

[jo_2010]

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

[زياد الحسناوي]

16 ساعات مضت, jo_2010 said:

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

@jo_2010

اعتذر للتأخير 

بس لحد الان ما وصلت لحل 

لم اعمل ع استعلام جدولي 

جربت كثير طريق بس لما اربط الاستعلام ب الفورم ما يقبل 

راح احاول وان شاءالله اوصل لحل

 

و  الاساتذة ميقصرون اكيد 

[عبد اللطيف سلوم]

هناك صعوبة في عمل ذلك كونه الاستعلام يعتمد على الجداول والاستعلامات

وهنا لا نستطيع عمل استعلام من خلال النموذج 

أتمنى انه يكون هناك حل لطلبك عند الخبراء 

 

[jo_2010]

اشكر محاولاتكم التى قمت بتجربتها من قبل ولم اتوصل لحل لذلك اناشد الخبراء بمد يد المساعدة حتى نتعلم جميعا من هذة الفكرة التى ستساعدنى كثرا فى عملى ولم من خالص الشكر

قام الاستاذ جعفر بحل لنفس المشكلة تقريبا مع اختلاف البيانات وحاولات ان اطبقها على البرنامج عندى ولم اتمكن من يستطيع المساعدة اليكم القاعدة الت اشتغل عليها الاستاذ جعفر لعلها تساعد انا بحكم خبرتى البسيطة لم استطيع الاستفادة منها اليكم القاعدة

 

[زياد الحسناوي]

5 ساعات مضت, jo_2010 said:

اشكر محاولاتكم التى قمت بتجربتها من قبل ولم اتوصل لحل لذلك اناشد الخبراء بمد يد المساعدة حتى نتعلم جميعا من هذة الفكرة التى ستساعدنى كثرا فى عملى ولم من خالص الشكر

قام الاستاذ جعفر بحل لنفس المشكلة تقريبا مع اختلاف البيانات وحاولات ان اطبقها على البرنامج عندى ولم اتمكن من يستطيع المساعدة اليكم القاعدة الت اشتغل عليها الاستاذ جعفر لعلها تساعد انا بحكم خبرتى البسيطة لم استطيع الاستفادة منها اليكم القاعدة

rpt_Monthly_Crosstab.accdb.zip

@jo_2010

تفضل القي نظرة على شكل التقرير

العمل ما زال ولكن ارسلت لك الملف لكي يطمئن قلبك وبان محاولاتي ما زالت مستمرة

Database11.rar

[jo_2010]

اشكرك على تعبك من اجل ايجاد حل لهذة المشكلة لك خالص التقدير

[jo_2010]

السادة الخبراء والاعضاء المميزين ارجوكم إيجاد حل لمشكلتي جازاكم الله كل خير  ولكم خالص الشكر مقدما

[jo_2010]

الاخوة الافاضل الخبراء الاعزاء

اليكم قاعدة بيانات بسيطة بها استعلام رقم 1 هل من الممكن عمل استعلام بشكل الصورة رقم 1

اليكم البرنامج والصورة كل ماريدة تجميع اسماء التحاليل فى صف واحد بدل تكرار الاسم والتاريخ عدة مرات على حسب عدد التحاليل 

هل هذا متاح ام انة مستحيل افيدونى لان خبرتى محدودة بالاكسيس ولم منى خالص الشكر

1.accdb

تم تعديل فبراير 25, 2019 بواسطه jo_2010

[jjafferr]

السلام عليكم 🙂

 

تم دمج الموضوعين ، وحذف مشاركه في موضوع آخر 🙂

خلينا نشتغل في مكان واحد ، في هذا الموضوع 🙂

 

من الصورة المرفقة في مشاركتك الاخيرة ، عملت الاستعلام التالي:

انت تريد ان تجعل للشخص سجل واحد ، بحيث تجمع بيانات الحقل TName مفصولا بفاصلة ،

ولكن ماذا عن بقية الحقول اذا كانت البيانات مختلفة ، مثل الحقل TCode كما هو في الصورة في الاسفل؟

.

جعفر

[jo_2010]

 

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

علي الرد اولا كنت اريد من حضرتك عمل دمج لاسماء التحاليل 

الاسعار في خانة اخري جنب بعض زي اسماد التحاليل ثم

الاجمالي في خانة ثالثة

كود التحاليل غير مهم

[jjafferr]

السلام عليكم 🙂

 

عملت تغيير على النموذج ليصبح خفيفا 🙂

ولما تختار الشهر والسنه والمنطقة ، افتح الاستعلام qry_New_Request_Results ليعطيك النتيجة المطلوبة 🙂

 

الاستعلام :

عملنا وحدة نمطية اسمها Concat لجمع بيانات الحقل ، ونرسل لها اسم الحقل المراد تجميع بياناته في سطر واحد ، ونرسل اسم الشخص ،

ونعمل هذا لكل حقل

.

والنتيجة:

.

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

Public Function Concat(F_Name, P_Name)
On Error GoTo err_Concat


    'F_Name = Field Name
    'P_Name = Person Name
    
    Dim rst As DAO.Recordset
    Dim RC As Integer
    Dim i As Integer
    Dim Add_Me As String
    Dim strSQL As String
    

    'do the query SQL for this Field name ONLY
    strSQL = "Select [" & F_Name & "] From [New_Request] Where [PName]= '" & P_Name & "'"
    Set rst = CurrentDb.OpenRecordset(strSQL)           'make the Recordset in memory
    rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount
    
    'loop through the Records
    For i = 1 To RC
    
        'ONLY add this value if we didn't add it before
        If InStr(Add_Me, rst(F_Name)) = 0 Then
            Add_Me = Add_Me & ", " & rst(F_Name)        'Concatenate these values
        End If
        
        rst.MoveNext
    Next i
    
    Concat = Mid(Add_Me, 3) 'remove the initial comma
    
    
Exit_Concat:
    rst.Close: Set rst = Nothing
    
    Exit Function
err_Concat:

    If Err.Number = 3021 Then
        'no data
        Concat = ""
        Resume Exit_Concat
        
    ElseIf Err.Number = 3061 Then
    
            'too few parameters, expected xx
            'this error occurs when trying to run a query which needs its parameters from a Form,
            'the Form should be open with the parameter, then this code take the values properly
            
            Dim qdf As DAO.QueryDef
            Dim prm As Parameter
            
'            For Each qdf In CurrentDb.QueryDefs
'                If qdf.Name = "NewQueryDef" Then
'                    CurrentDb.QueryDefs.Delete "NewQueryDef"
'                    Exit For
'                End If
'            Next
            
            Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSQL)
            For Each prm In qdf.Parameters
                prm.Value = Eval(prm.Name)
            Next prm


            Set rst = qdf.OpenRecordset(dbOpenDynaset)
            CurrentDb.QueryDefs.Delete "NewQueryDef"
            
            Resume Next
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

 

جعفر

 

1015.Concatenate.accdb.zip

[jo_2010]

الاستاذ الفاضل جعفر

خالص الشكر لحضرتك لقد قمت بعمل ماكنت احلم بة واكثر

لذلك كلمة شكرا  لحضرتك لاتكفى خالص الشكر والتقدير والاحترام ياسيدى الفاضل كتر الف خيرك

 

[jo_2010]

هل لى الحق ان اطمع فى علمك الوفير لعمل تقرير يفتح على حسب تصفية الاستعلام الجدولى 

اعلم ان حضرتك عملت من قبل هذا

وارسلت لى الرابط لكنى لم استطيع الاستفادة 

ارسل لحضرتك هذة القاعدة للعمل عليها جزام الله كل خير ارجوك ساعدنى

LAB.rar

[jjafferr]

2 ساعات مضت, jo_2010 said:

خالص الشكر لحضرتك

حياك الله 🙂

 

1 ساعه مضت, jo_2010 said:

لعمل تقرير يفتح على حسب تصفية الاستعلام الجدولى

رجاء فتح موضوع جديد لهذا الطلب ، فهو خارج عن موضعنا الذي نحن به 🙂

 

جعفر

[canary2522]

بصراحة عمل جبار وحاولت اعمله بطريقة اخرى ولم استطع لاني لايوجد لدي الخبره الكافيه فانا مبتدء

عملت قاعدة بيانات تتكون من 2 جداول 

1- فاتورة مبيعات

2- بيان فاتورة المبيعات

وعملت نموذج للفاتورة فرعي واساسي

والمطلوب اريد جمع جميع الملاحضات المدخلة في النموذج الفرعي واضافتها الى جدول فاتورة المبيعات في حقل ملاحضات 

ولكم المرفق للتعديل عليه 

[safaa salem5]

On 2/25/2019 at 11:00 PM, jjafferr said:

السلام عليكم 🙂

 

تم دمج الموضوعين ، وحذف مشاركه في موضوع آخر 🙂

خلينا نشتغل في مكان واحد ، في هذا الموضوع 🙂

 

من الصورة المرفقة في مشاركتك الاخيرة ، عملت الاستعلام التالي:

انت تريد ان تجعل للشخص سجل واحد ، بحيث تجمع بيانات الحقل TName مفصولا بفاصلة ،

ولكن ماذا عن بقية الحقول اذا كانت البيانات مختلفة ، مثل الحقل TCode كما هو في الصورة في الاسفل؟

.

جعفر

المفروض يبقى فى فصل الزيارات عن بعضها

افرض نفس  المريضه ميرفت

جات تحلل بعد اسبوع مثلا

كدا هيتم جمع كل التحاليل مع بعضها تحت الاسم

والصحيح أن يتم فصل الزيارتين عن بعض

انا أواجه نفس المشكله وعايزه اضافه فلتر ب

ID 

الزياره

تم تعديل نوفمبر 20, 2023 بواسطه safaa salem5

[Eng.Qassim]

9 ساعات مضت, safaa salem5 said:

كدا هيتم جمع كل التحاليل مع بعضها تحت الاسم

والصحيح أن يتم فصل الزيارتين عن بعض

انا أواجه نفس المشكله وعايزه اضافه فلتر ب

ID 

ابنتي العزيزة ..من الواضح انك تريدي تجميع التحاليل حسب التاريخ 

ال 

ID ثابت لك مريض (عافانا واياكم)

[safaa salem5]

5 minutes ago, Eng.Qassim said:

ابنتي العزيزة ..من الواضح انك تريدي تجميع التحاليل حسب التاريخ 

ال 

ID ثابت لك مريض (عافانا واياكم)

ايوه تمام حضرتك

بشمهندس عمر تكرم مشكورا باضافة كود الزياره  داخل الاستعلام

فاصبح كالتالى

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

ومتشكره جدا لحضرتك ولو فى اى كومنت انا يشرفنى اتعلم من حضرتك

[Moosak]

في حال وجود سؤال جديد متعلق بهذا الموضوع .. يرجى فتح موضوع جديد والإشارة لهذه الصفحة وذلك حسب قوانين المنتدى 🙂 

 

شكرا لكم 🙂 🌹