اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


jo_2010

الردود الموصى بها

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

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

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

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

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

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

Database1.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

Database1.rar

@jo_2010

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

 

Database11.accdb

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

@jo_2010

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

Database11.accdb

رابط هذا التعليق
شارك

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

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

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

Database11.rar

رابط هذا التعليق
شارك

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

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

@jo_2010

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

rpt_Monthly_Crosstab.accdb.zip

@jo_2010

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

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

Database11.rar

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

1.accdb

1.jpg

تم تعديل بواسطه jo_2010
رابط هذا التعليق
شارك

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

 

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

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

 

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

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

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

1015.Clipboard01.jpg.0473a620e70dda9250e2763b6d55bf63.jpg

.

جعفر

  • Like 1
رابط هذا التعليق
شارك

 

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

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

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

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

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

رابط هذا التعليق
شارك

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

 

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

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

 

الاستعلام :

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

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

1015.Clipboard02.jpg.94a3305f72b726a7a047b32ab1daf370.jpg

.

والنتيجة:

1015.Clipboard03.jpg.7334aa2a16fc28881d09ad754a9d88ac.jpg

.

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

LAB.rar

رابط هذا التعليق
شارك

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

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

حياك الله 🙂

 

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

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

  • 2 years later...

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 1 year later...
On 2/25/2019 at 11:00 PM, jjafferr said:

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

 

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

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

 

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

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

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

1015.Clipboard01.jpg.0473a620e70dda9250e2763b6d55bf63.jpg

.

جعفر

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

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

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

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

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

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

ID 

الزياره

تم تعديل بواسطه safaa salem5
رابط هذا التعليق
شارك

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

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

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

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

ID 

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

ال 

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

  • Like 1
رابط هذا التعليق
شارك

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 locked this topic

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

 

شكرا لكم 🙂 🌹

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information