ام ناصر

سلمت الایادي استاذ ربي يبارك بجهودك الطيبة 

هل من الممكن ان يكون ذات الكود بجملة الـ SQl ؟

 عفواً استاذ ،
تم رفع الملف يحتوي المثال والنتيجة المطلوبة  

T2.xlsx

السلام علیکم 

کیف یمکننی استیراد ملف ذو صيغة (SQL.) في برنامج الاكسل دون القیام بعملیة الاتصال بقاعدة البيانات ،اي ان الملف تم تصديره من قاعدة بيانات (MYSQL) ومتوفر على الجهاز لكن احتاج استیراد تلك البيانات في اكسل.

...مع كل التقدير

سلمت الایادي استاذ ،
كيف ممكن ان اغير الكود من ثلاث اعمدة وليس من عمودين ؟
جربت اغير بالكود مانفع 

اخي الكريم  جزاك الله خير للرد، ممكن اعرف اين اضع هذه الدالة ؟
لاني مو متمرسة في الاكسل

السلام عليكم ..

لدي استفسار عن كيفية تحويل حقل يحتوي على مجموعة من البيانات وفق حقل اخر يحتوي على (ID) خاص بتلك البيانات الى اسطر متعددة اعتماداً على هذا الـ (ID) كما موضح في الصورة المدرجة ، علما ان البيانات تفوق ال1000 سطر وطريقة تحويلها بأستخدام (Transpose) لاتؤدي الغرض المطلوب ،أضافةً لأستغراقها وقت كبير ، ارجوا المساعدة في حل هذه المشكلة ولكم جزيل الشكر .مرفق الصورة وملف الاكسل كنموذج مبسط مدرج في ادناه

T1.xlsx

13 ساعات مضت, ابو ياسين المشولي said:

اذا كان نص بيكون هكذا

Set rs2 = CurrentDb.OpenRecordset("select * from skills where id='" & rs1(0) & "'")

  

شكرا جزيلا استاذ @ابو ياسين المشولي في ميزان حسناتكم ان شاء الله.

عفواً استاذ @رمهان 

لو كان الـ (id) عبارة عن (Text) كيف حتكون معالجة الكود لانه يظهر لي مسج عدم تطابق الكود مع البيانات من نوع (Text) حاولت اعالجه متوصلت لنتيجة .

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

لو سمحت ممكن شرح مفردات الكود ..اكون شاكرة لحضرتك 

عفوا الاستعلام يظهر مؤهلات الموظف الاول مكررة اما الموظف الآخر فأحدى مؤهلاته مفقودة 

1 ساعه مضت, ابو ياسين المشولي said:

شوف المرفق

Update22-3.accdb 440 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

24 دقائق مضت, ابو ياسين المشولي said:

هل هذا ينفع

SELECT Information.ID, Information.Name, Information.[Date of commencement of work], Nz(DLookUp("[Skills]","[Skills]","[ID]=" & [ID])) AS Skills
FROM Information;

 

استاذ ابو ياسين شكرا لمروركم وتفضلكم بمشاركة الحل لكن الاستعلام لم يوصلني للنتيجة المطلوبة , الموظف (علي محمد ناصر) لديه اكثر من مهارة في جدول المهارات ولم يظهر الاستعلام الاَ احداهن المطلوب كما موضح في الصورة رقم 5 المرفقة اعلاه.

تحية طيبة لجميع اساتذة واعضاء المنتدى الكرام..

لدي نموذج مبسط لجدولين احدهما لمعلومات الموظفين والآخر لمهارات كلاً منهم , المطلوب عمل تقرير يظهر جميع الموظفين مع جميع المهارات ان امتلكوها .

 حاولت ان اعمل استعلامين الاستعلام الاول :اظهر لدي فقط الموظفين الذين لديهم مهارات دون ان يظهر البقية وذلك لارتباط الجدولين بـ (ID)  الذي  يمثل رقم الموظف كما موضح في الصورة رقم 3

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

النتيجة المطلوبة للتقرير هي كما في موضح في الصورة رقم 5

النموذج المبسط مرفق ادناه.

جزيل الشكر لكل من يتابع الموضوع..

Update22-3.rar

للرفع

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

لدي ملف اكسل مستورد من جهاز بصمة فيه البيانات الموضحة في المرفق والصورة ادناه

المشكله هي ان الجهاز تم شرائه حديثاً وفيه آليه استخراج بيانات بصمة الدخول (in) وبصمة الخروج (out) على شكل عدة صفوف وليست اعمدة  لليوم الواحد  اي قد تكون 19 بصمة دخول وخروج  او اقل وفق عدد البصمات المسجلة للموظف في الجهاز علما ان نوع الجهاز هو (ingress)

السؤال هو   هل هنالك امكانيه تعديل للاكسل بأن تحدث البيانات من هذه السجلات لتكون في اعمدة ؟  على ان تحدد الاعمدة المكونة لحد اقصى 10 اعمدة لبصمة (in) و 10 اعمدة لبصمة (out) ويكون بذلك بيانات التاريخ 13-02-2019 سجلاً واحداً  بدلا عن 19 سجل وبيانات التاريخ 12-02-2019 لنفس الموظف  يكون بدلا عن 6 سجلات سجل واحد بـ 6 أعمدة لبصمة الـ (in) و 6 عمدة لبصمة (out) ,ليتسنى لي تحديث تلك البيانات مع برنامج الحضور والانصراف الذي تم اعداده مسبقا وفق بيانات جهاز البصمة القديم. 

b1.xls

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

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

اهلا استاذ جعفر سلمت الايادي ..

الكود  يحذف جميع المرفقات في الجدول لو تفضلت بشرحه اكون شاكرة لك لاني حاولت جعل الحذف لمرفق محدد كأن يكون المفتوح في النافذة فقط ظهر لي خطأ في استكمال تنفيذ الشفرات البرمجية .

strSQL = "SELECT Table1.ID, Table1.image FROM Table1 WHERE (((Table1.ID) Like [Forms]![Form1]![ID]) AND ((Table1.image.FileName) Is Not Null));"

Option Compare Database
    Private Sub Command32_Click()
    Dim strSQL As String
    Dim rst As DAO.Recordset '1_________>> DAO.Recordset
    Dim childrst As DAO.Recordset
    Dim db As DAO.Database
    Dim RC As Integer
    Dim i As Integer
    'from https://stackoverflow.com/a/42239279
    strSQL = "SELECT * FROM Table1 WHERE Not (Table1.image.FileData) Is Null;"
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) '2__>>.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

    If Not rst.BOF And Not rst.EOF Then '3_______>> BOF
        rst.MoveFirst___________________ '4_______>>MoveFirst
    End If
    Do Until rst.EOF
        Set childrst = rst.Fields("image").Value
        childrst.MoveLast: childrst.MoveFirst '5___>> childrst.MoveLast (:) childrst.MoveFirst
        RC = childrst.RecordCount
                For i = 1 To RC
                childrst.Delete
                childrst.MoveNext
        Next i

        rst.MoveNext
        
        Loop
End Sub

السلام عليكم ..

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

المثال المبسط مرفق ادناه..مع التقدير

مثال1.rar

في ٢١‏/٥‏/٢٠١٨ at 15:09, ابا جودى said:

هذا لاخر شهر فقط

انا ان كنتى تريدين التاريخ ضمن نطاق كل التواريخ اخبرينى فقط

p1-3.accdb

وهذا لكل النطاق من اصغر تاريخ بداية لاكبر تاريخ نهاية

p1-4.accdb

المثال الثاني موافق لما طلبت جزاك الله عنا خير الجزاء استاذ .

للرفع

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

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

اساتذتي الافاضل لدي مثال مبسط مرفق ادناه الفكرة منه هي عند ادخال تاريخ غياب في النموذج ويكون هذا التاريخ غير داخل ضمن الفترات الموجودة في الـ (Sub form) التي تعتبر فترة استحقاق راتب يعطي البرنامج رسالة تنبيه (عذرا تاريخ الغياب غير داخل ضمن فترات الاستحقاق السابقة ).

شكري وتقديري لكل من يتابع الموضوع .

p1.rar

6 ساعات مضت, sandanet said:

نص الرسالة واضح وهو ان المرجع المذكور في الرسالة غير موجود في الجهاز .. الحل هو البحث في الانترنت عن ملف المرجع ذو الاصدار 4.8

من هذا نفهم ان عمل قاعدة البيانات مرتبط ايضا بملفات انظمة الحاسوب واصداراته وليس فقط على اصدار الاوفس ؟؟

للرفع

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

  لدي قاعدة بيانات تعمل بصورة جيدة على جهاز الحاسوب الخاص بي عند نقلها على جهاز آخر  ذو مواصفات أعلى تظهر رسائل النظام ادناه على الرغم من ان نسخة الاوفس المستخدمة هي نفسها في كلا الجهازين ,كيف يمكنني حل هذه المشكلة وتلافي ظهور تلك الرسائل .

مع التقدير لكل من يتابع الموضوع ..

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

4 ساعات مضت, ابوخليل said:

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

اكيد استاذ واعتقد اثناء التحويل ايضا يتتطلب انشاء مفاتيح فريدة للجداول

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

في 3/12/2018 at 12:35, ابا جودى said:

جربى الاتى عمل قاعدة بيانات بتنيسق MDB فارغة ثم افتحيها ثم قومى بعمل استيراد للكائنات من القاعدة القديمة اليها

استاذي الفاضل @ابا جودى قمت بتجربة مااشرت اليه وتم تغيير الامتداد بنجاح الا ان بيانات احد الجداول اثناء تحويلها الى الـ SQL server 2012 قد فقدت ولم تتم عملية التحويل بصورة صحيحة فما العمل بهذه الحالة ؟ الصور ادناه مع التقدير