jjafferr

العفو أخي محمد اكثر من مشارك يعطي اثراء للمشاركة بطرق عديدة لحل السؤال ، كما هو الحال هنا جعفر

وعليكم السلام تفضل ، هذا استعلام تحديث ، فيه: معيار بتاريخ اليوم ناقصا سنة (يعني نفس تاريخ اليوم بس للسنة الماضية) ، يعني الاستعلام سيعمل تصفية للسجلات ، ويعرض فقط هذا اليوم ، وكود تحديث التاريخ السابق ، بإضافة سنة له ، فيصبح تاريخ اليوم: . تستطيع ان تغير في المعيار حسب حاجتك ، مثلا يمكنك تصفية جميع سجلات السنة السابقة فقط ، او الشه الذي انت فيه ، فتغير المعيار على اساس حاجتك وعلى اساس كم مرة تريد ان تستعمل الاستعلام جعفر

السلام عليكم اخي حسين استعمل الاداة: . لكي تعرض الكود في المشاركة بطريقة صحيحة ، هكذا (طبعا بسبب وجود كلمات عربية في الكود ، فالكود لن يُعرض بطريقة صحيحة) : Inx: Nz(DSum("[كمية]";" مستلم";"[رقم الصنف]='" & [رقم الصنف] & "'");0) otx: Nz(DSum("[الكمية]";"مبيعات";"[رقم صنف]='" & [رقم الصنف] & "'");0) . جعفر

السلام عليكم أخي يحي ، معنى كلامك انك انزلت المرفق وتصفحته ، وصاحب الموضوع قال: . فياريت أخي يحي تتكرم وتترجم كلماتك الى جملة مفيدة ، حتى يستفيد منها صاحب الموضوع جعفر

عفوا ، لا اعتقد بإمكاننا المضي قُدما بدون: 1. قاعدة بياناتك التي بها الجزء المطلوب (تستطيع ان تحذف بقية كائنات قاعدة البيانات التي لا علاقة لها بسؤالك) ، 2. شرح بالتفصيل عن ما تريد ، باسماء الحقول ، 3. مثال من برنامجك تعمله بالاكسل مثلا ، تعطينا النتائج المطلوب عملها. تذكّر ، لا احد يعرف قاعدة بياناتك مثلك ، فلا تجعلنا نُخمن ما تريد ، وانما اشرح طلبك بالتفصيل، لوسمحت جعفر

=IIf([Sexe]="ذ" And [Moy1Sport9C]=99;"معفى";IIf([Sexe]="أ" And [Moy1Sport9C]=99;"معفاة";[Moy1Sport9C])) لتحصل على الكود بالطريقة اعلاه ، استخدم هذه الاداة: . -------------------------------------------------------------------- نعم تستطيع استخدامه في التقرير او الاستعلام . القصد ، احصل على النتيجة المطلوبة من هذا الحقل ، ثم تستطيع ان تأخذ هذه النتيجة الى حقل آخر للجمع ، او حتى استعلام آخر. جعفر

لازم تستخدم شرط او iif شرطية ، ومن الصعوبة عملها بدون معرفة الحقول!! هذا مثال بالتفصيل يشرح كيف يفرز مجموع العدد (وليس مجموع القيمة): . وبإستخدام نفس خطوات المثال ، اعمل المجموع هكذا . جعفر

وعليكم السلام شكرا على مساعدتك نفسك ولو ان مساعدتنا تأتي متأخرة بعض الاوقات ، ولكن اعذرنا على التأخير لا تستعمل الكلمات المحجوزة للأكسس ، وإلا فستصادفك مشاكل ، ولن تعرف سببها!! اخونا العود ابو خليل عمل قاعدة بيانات فيها هذه الكلمات ، فكفاك البحث هنا وهناك ، وجعل البحث في برنامجه . هنا ترى اني ابدلت اسم النموذج الفرعي (الاسم detail محجوز) ، وعليه ابدلت مصدر بيانات الحقلين: . اما لمعرفة القيد متوازن ام غير متوازن ، فعمل تنسيق شرطي للحقلين ، فإذا مجموعهم لا يساوي بعض ، فالحقل يكون ابللون الاحمر: . هنا الرقمين متساويين . وهنا غير متساويين . جعفر 763.2.سند مزدوج.accdb.zip

وعليكم السلام احد هذه الاقتراحات يفي بالموضوع: انك تكتب صفر (او تتركه فاضي) في حقل الجمع تعمل حقل اعفاء نصي فيه كلمة "اعفاء" او نعم ، او ان تعمل حقل نعم/لا بحيث علامة صح تعني "اعفاء" مثلا ، وعليه ، في حقل المجموع تستعمل شرط هذا الحقل في عدم اختسابه جعفر

وعليكم السلام في اعتقادي بأنه عندك خطأ في كتابة الامر ، جرب احد هذين الشرطين ، الاول اذا الحقل [to] نص ، والثاني اذا الحقل [to] رقم [user5]=DLookUp("[user]","t_caht","[to]='" & [xn3] & "' and [read]=false") او [user5]=DLookUp("[user]","t_caht","[to]=" & [xn3] & " and [read]=false") جعفر

وعليكم السلام الله يطول في عمرك اخوي ، طلبك سهل ، بهذه الطريقة تعرف عدد السجلات الالموجودة في الجدول واللي لها علاقة ببيانات النموذج الفرعي: a = DCount("*", "Service", "[Nameemployee1]='" & Me.Name_employee1 & "' And [CustomerNumber]=" & Me.CustomerNumber) MsgBox a لكن عندك خطأ في مربع اختيار المواد بالعربي والانجليزي واللي ما يساوون بعض!! ثم في نفس المربعات ، يجب ان تربط اختيار المادة بأحد اعمدة الاستعلام: جعفر

حياك الله جعفر

لابد من طباعة التقرير بطؤيقة اخرى ، فرجاء حذف تلك الطريقة!! بما انه عندك Acrobat Reader DC و PDFCreator ، فإجعل احدهم كطابعة افتراضية ، ثم اطبع التقرير بالطريقة العادية ، حيث سيطبع التقرير على هذه الطابعة الافتراضية. جعفر

عذرا ، قصدي ارفق السطر الذي فيه المشكلة عفوا ، اي اصدار من الاكسس تشتغل عليه؟ هذا الامر يشتغل على الاكسس 2007 فما فوق

لوسمحت ترفقه هنا

هذه الرسالة تقول ان الامر الذي استعملته فيه فواصل زيادة. جعفر

وعليكم السلام التصدير الى ملف pdf: DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", "c:\temp\myPDFReport.pdf", True, , , acExportQualityPrint . ولكن اذا ممكن نرجع الى اصل المشكلة: هل تستطيع ان تعاين التقرير؟ هل المشكلة في جميع التقارير؟ هل المشكلة في قاعدة بيانات معينة؟ هل جربت تطبع على طابعة اخرى؟ هل جربت تطبع التقرير من كمبيوتر آخر؟ جعفر

شكرا اخي وضاح وانا شاكر متابعتك كذلك جعفر

ولا يهمك في الواقع كنت اقدر اعمل استعلام واحد فقط qry_Absences_Sum ، بحيث في الوحدة النمطية استطيع ان اجعل مصدر البيانات من الجدول ، ولكني جعلت الاستعلام الذي انت عملته (استعلام تجميع دروس الغياب) ولكني اعطيته مسمى انجليزي ، qry_Absences ، هو مصدر البيانات ، والسبب هو انك قد تريد لاحقا ان تعمل تصفية للغياب ، بإستخدام التاريخ او بين تاريخين مثلا ، وبدلا ان ترجع للوحدة النمطية وتعمل تغيير عليها ، فكل الذي عليك عمله هو اضافة التاريخ وتصفيته في الاستعلام qry_Absences جعفر

حياك الله، ولي الشرف

حياك الله همممم ، انت الوحيد الذي سألني عن هذا التسلسل كل سؤال أرد عليه في المنتدى وبه مرفق ، اجعله عندي في تسلسل وإذا تطلب الأمر تعديل جذري عليه، فيظل التسلسل + 0.1 و حقوق الطبع والنشر محفوظة جعفر

انت لم تستعمل الاستعلامات مثل التي انا استعملتها!! عندي استعلامين ، وعندك استعلام واحد ، والكود يرجع ويناديه!! جعفر

تفضل ولا داعي لإستخدام Recordset ، فـ Dcount تفي بالغرض Private Sub Form_Load() 'Me.CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID") 'Me.BIOS = GetWmiDeviceSingleValue("Win32_BIOS", "SerialNumber") C = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID") 'Debug.Print C '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") 'MsgBox obj_Drive.SerialNumber ' Me.HardSerial = obj_Drive.SerialNumber H = obj_Drive.SerialNumber 'Debug.Print H Set obj_FSO = Nothing Set obj_Drive = Nothing ' If DCount("*", "tbl", "[Pro]='" & C & "' And [Hard]='" & H & "'") > 0 Then 'Exists DoCmd.OpenForm "frm2" Else DoCmd.OpenForm "frm1" End If DoCmd.Close acForm, Me.Name End Sub جعفر 775.1.mdb.zip

عذرا ، انا لا اعرف اي شيء ن قاعدة بياناتك ، فاذا اردت النظر فيها ، رجاء ارفاقها ، واخبارنا مكان المشكلة بالضبط جعفر

وعليكم السلام . . . Option Compare Database Option Explicit Public Function Gather_Materials(ByVal N As String) As String 'N = Name Dim rst As DAO.Recordset Dim RC As Integer Dim i As Integer Dim Together As String Dim How_Many_Materials As Integer 'كم عدد المواد في جدول المواد How_Many_Materials = DCount("*", "Materials") ' اقرا بيانات الاستعلام الذي به صافي المواد ، الى الذاكرة العشوائية للكمبيوتر 'ونستخدم اسم الشخص لتصفية الاستعلام Set rst = CurrentDb.OpenRecordset("Select * From qry_Absences Where [Aname]='" & N & "'") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'عدد سجلات الاستعلام qry_Absences Together = "" 'قم بقراءة جميع سجلات الاستعلام ، واضف المواد ، بينهم فاصلة For i = 1 To RC Together = Together & " ، " & rst!Amaterial rst.MoveNext Next i 'اقفل واحذف الالاستعلام من الذاكرة العشوائية rst.Close: Set rst = Nothing 'تخلص من اول فاصلة Together = Mid(Together, Len(" ، ") + 1) 'اذا كان عدد المواد = عدد سجلات الاستعلام If How_Many_Materials = RC Then Together = "جميع الدروس" End If 'ارسل النتيجة الى الاستعلام Gather_Materials = Together End Function . جعفر 774.استعلام تجميع دروس الغياب في حقل واحد.accdb.zip