mrnooo2000

تم اضافة استعلام و تقرير المخازن.rar

نعم أخى وضحت الصورة لكن الامر بهذه الطريقة فيه شىء من عدم المنطقية عموما فى هذه الحالة استخدم هذا الاستعلام SELECT qry.nm, qry.Lastdt, T1.am FROM (SELECT T1.nm, Max(T1.dt) AS Lastdt FROM T1 GROUP BY T1.nm) AS qry INNER JOIN T1 ON (qry.Lastdt = T1.dt) AND (qry.…

لى بعض الملاحظات على تصميم قاعدة البيانات أولا لا تحتفظ بحقل العمر فى الجدول و لكن أحسبه عن طريق استعلام ثانيا لا تستخدم التسميات العربية فى الجداول ثالثا لا تحتاج الى تسجيل اسم الدورة كل مرة رابعا تم التعديل على تصميم الجداول تجدها بالمرفق الفكرة انت لا تحتاج…

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

مشكور أخى على المجهود البرنامج مصنوع بالفيجوال بيسك 2008 لذلك أعتقد أن مكانه ليس هنا و لكن فى القسم المخصص لذلك

ضع الشرط فى الاستعلام ليكون الاستعلام بهذا الشكل SELECT T1.nm, Last(T1.dt) AS Lastمنdt, Last(T1.am) AS Lastمنam FROM T1 GROUP BY T1.nm HAVING (((Last(T1.am))>0)) ORDER BY Last(T1.dt);

أخى الكريم أنا أتحمل الجميع و الحمد لله و لكن أنا كنت أريد منك أن تجرب كى تتعلم و تعرف الطريقة بنفسك فاذا كانت الاجابة جاهزة لن تتعلم شىء تفضل اخى التعديل بطريقتين (كما تفضل أخونا أبو عزو ) و لكن أنا غيرت أسماء مربعات النص 6lab1.rar

أولا النتائج التى وضعتها ليوسف غير صحيحة ثانيا هذا الاستعلام يعطيك ما تريد SELECT T1.nm, Last(T1.am) AS LastOfam, Last(T1.dt) AS LastOfdt FROM T1 GROUP BY T1.nm ORDER BY Last(T1.dt); ابنى عليه التقرير كما تريد

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

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

أخى كلامى واضح ضع اسم الجدول الموجود لديك مكان namee

استخدم هذا الكود dcount("*","namee") حيث namee هو اسم الجدول

البك التعديل 6lab.rar

غير أسماء مربعات التسمية و مربعات النص بحيث تكون مرتبة مثل labl01 labl02 .....................................labl17 txt01 txt02 ....................................txt17 ثم ضع هذا الكود فى حدث عند الفتح للتقرير Dim r As Integer Dim ctl As Control r = DCount("…

هذا هو الكود بعد التعديل On Error Resume Next Dim Yr1, Mn1, Dy1 As Integer Dim Xx, Yy As String Xx = Me.[StDt] Yy = Me.[TDt] 'Yr1 = Mid(Yy, 5, 4) - Mid(Xx, 5, 4) 'Mn1 = Mid(Yy, 3, 2) - Mid(Xx, 3, 2) 'Dy1 = Mid(Yy, 1, 2) - Mid(Xx, 1, 2) + 1 Yr1 = Mid(Yy, 1, 4) …

بالتأكيد ستحتاج الى تعديل الكود

اعكس شكل فناع الادخال لمربع النص

اليك هذه الدالة Function ProcessTabdelimitedFile(ByVal TextFileName As String, ByVal ExcelFileName As String) Dim appExcel As Excel.Application Dim intHandle As Integer Dim strLine As String Dim varElements As Variant Dim intCol As Integer Dim intRow As Intege…

أستاذنا ومشرفنا أبو يوسف على التذكير وآسف إذ كانت وجهة نظري تختلف عن وجهة نظرك قليلا ولكن خطتى اعتمدت على هذا الكود. لا يوجد خلاف هذا ما كنت أقصده بالضبط الاختلاف الوحيد هو أن تصورى لا يحتاج الى التحويل الى تاريخ بحيث يتم التعامل مع النص كما هو فيكون الجزء الا…

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .