-
Posts
3,292 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
29
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبو آدم
-
طلب تعديل على زر عند وضع الماوس تتغير صورة
أبو آدم replied to sofiane05552's topic in قسم الأكسيس Access
أخي العزيز مرفق قاعدة البيانات المعدلة و مجلد صور ، قم بفك الضغط بنفس المجلد جرب و وافني بالنتيجة شكرا UP_NA- Copie.rar -
طلب تعديل على زر عند وضع الماوس تتغير صورة
أبو آدم replied to sofiane05552's topic in قسم الأكسيس Access
أخي العزيز المرفق فيه زر امر و صورة الشرح غير واضح ... هل هذا ما تريده ؟؟؟ Capture.rar -
الحمد لله الذي بفضله تقضى الحاجات
-
الحمد لله الذي بفضله تقضى الحاجات
-
الحمد لله الذي بفضله تقضى الحاجات
-
جرب هذا الكود و وافني بالنتيجة أظن و الله أعلم ان هذا يفي بالغرض و يقضي حاجتك Private Sub tr_fere_Click() On Error Resume Next If Me.mz = False Then Me.mz.Value = 1 End If Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim rstX As DAO.Recordset Dim myRst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("head") rst.AddNew rst("ID").Value = Nz(DMax("ID", "head")) + 1 rst("التاريخ").Value = Me![التاريخ] rst("رقم الاذن").Value = "SYS" & Me![رقم الاذن] rst("مميز الحركة").Value = Me![مميز الحركة] rst("كود نوع الحركة").Value = Me![كود نوع الحركة] rst("كود المخزن").Value = Me![الى المخزن] rst("Descreption").Value = "قيد اضافة مخزني لاذن رقم" & Me![رقم الاذن] rst.Update rst.Close Set rst = Nothing Set dbs = CurrentDb Set frm = Me.d_s12.Form Set myRst = frm.RecordsetClone myRst.MoveFirst Do While Not myRst.EOF Set rstX = dbs.OpenRecordset("details") rstX.AddNew rstX("ID").Value = Nz(DMax("ID", "head")) rstX("كود الصنف").Value = myRst("[كود الصنف]") rstX("الوارد بالكرتونة").Value = myRst("[المنصرف بالكرتونة]") rstX("الوارد الفرعي").Value = myRst("[المنصرف الفرعي]") rstX.Update myRst.MoveNext Loop MsgBox " تم التحويل بين المخازن بنجاح ", vbInformation, "رسالة" myRst.Close Set myRst = Nothing rstX.Close Set rstX = Nothing End Sub
-
إصبر قليلا .... قيد الاجراء
-
أخي العزيز قم بانشاء تقرير بالتصميم الذي تريده و اجعل الجدول مصدر السجلات للتقرير ، Rep1 قم بانشاء زر أمر في النموذج وخلف حدث عند النقر أنقل الكود التالي If Me.FilterOn And Len(Me.Filter & "") > 0 Then DoCmd.OpenReport "rep1", acViewPreview, WhereCondition:=Me.Filter Else DoCmd.OpenReport "rep1", acViewPreview End If افتح النموذج وقم بعملية الفلترة و اضغط زر الامر الخاص بالطباعة ، اذا طلبت الطباعة بدون فلترة يكون مصدر السجلات للتقرير الجدول كاملا و انتظر منك دعوة طيبة بظهر الغيب والله من وراء القصد مرفق تطبيق معدل لقاعدة بياناتك شكرا Up_NA_PrintFilter.accdb
-
ضع في الاستعلام ( السابق ) Fraction: 24*Eval("TimeSerial(" & Format(Replace([late],":",""),"00\,00\,00") & ")") هل هذا ما تقصده ؟؟؟
-
هل يوجد معيار من شهر كذا الى شهر كذا من العام كذا
أبو آدم replied to الحب الميت's topic in قسم الأكسيس Access
شكرا -
هل تريد الاحتساب في الاستعلام ام لاحقا ؟؟ انا شخصيا لا اعدل هيكل الوقت و احتسب في نموذج
-
هل يوجد معيار من شهر كذا الى شهر كذا من العام كذا
أبو آدم replied to الحب الميت's topic in قسم الأكسيس Access
أخي العزيز آسف للطرح خارج الموضوع لكن كخدمة شخصية لي : هل يمكن ان تغير اسم الظهور الخاص بك شكرا -
بالنسبة لي لا استطيع ان اتصور الاجراء مجردا دون القاعدة ... فعذرا
-
ارفق قاعدة للتطبيق لطفا
-
لماذا ؟ عذرا على الرد بسؤال و لكن اريد ان افهم الغاية اذا سمحت !!
-
برجاء المساعدة فى برنامج الحضور والانصراف
أبو آدم replied to محمد على على's topic in قسم الأكسيس Access
أخي العزيز الجدول بحاجة لتعديلات الأفضل ان تثبت رقم الموظف وليس اسمه ادخل حركة الدخول او الخروج مرتبطة باليوم و الوقت ، بمعنى حقل للحركة ( دخول / خروج ) حقل لليوم و حقل للوقت بذلك يتم تغطية حاجتك لتثبيت اكثر من حركة يومية لا تبحث عن الموظف فقط استخدم رقمه و سجل الحركة وتاريخها و وقتها عندما تطلب اسم الموظف يقوم باظهار اول قيد للموظف ، و حينها تقوم انت بادخال معلومات جديدة مكان المعلومات السابقة ( و هذا خطأ) فقط اطلب ادخال سجل جديد و ادخل المعلومات التي يتم لاحقا مطابقتها و تحليلها جرب التعديلات و وافني بالنتيجة .... شكرا -
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
احسن الله اليك كما احسنت الي بدعائك الطيب -
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
أخي العزيز انقل الى استعلام جديد وسمه ما تشاء SELECT [رأس موضوع1E] as ColAll FROM [جدول تسجيل الكتب] WHERE ((([جدول تسجيل الكتب].اللغة)="العربية") AND (([جدول تسجيل الكتب].[حالة الكتاب])="موجود") AND (([جدول تسجيل الكتب].[رأس موضوع1E]) Is Not Null)) UNION ALL SELECT [رأس موضوع 2] FROM [جدول تسجيل الكتب] WHERE ((([جدول تسجيل الكتب].اللغة)="العربية") AND (([جدول تسجيل الكتب].[حالة الكتاب])="موجود") AND (([جدول تسجيل الكتب].[رأس موضوع 2]) Is Not Null)) UNION ALL SELECT [رأس موضوع 3] FROM [جدول تسجيل الكتب] WHERE ((([جدول تسجيل الكتب].اللغة)="العربية") AND (([جدول تسجيل الكتب].[حالة الكتاب])="موجود") AND (([جدول تسجيل الكتب].[رأس موضوع 3]) Is Not Null)) ORDER BY ColAll ; و الله من وراء القصد .... -
مربع النص tee موجود في التطبيق المرفق أصلا !!
-
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
للعلم اسماء الحقول باللغة العربية و على شكل جمل ..... مرهقة جدا في كتابة الاكواد و جمل sql .. ??? اذا كان هذا مطابقا لما تطلب اشعرني حتى ارسله لك قبل ان اغادر المكتب !!! -
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
أخي العزيز هل تريد تطبيق استعلام التوحيد مع شروط ؟ -
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
-
اخي العزيز في الاستعلام ضع الكود المرفق للاحتساب التأخير فقط مع تجنب احتسابات خاطئة للقادمين مبكرا Late: IIf(Format([حضور],"hh:nn:ss")>Format([ساعة الحضور],"hh:nn:ss"),(Format(([حضور]-[ساعة الحضور]),"hh:nn:ss")),"00:00:00") تم التجربة قبل ارفاقها .... و لكن جرب و وافني بالنتيجة
-
جمع بيانات ثلاث أعمدة في عمود واحد / استعلام توحيد
أبو آدم replied to أبو أحمد's topic in قسم الأكسيس Access
ملف المرفق معطوب او فارغ