أبو آدم

أخي العزيز مرفق قاعدة البيانات المعدلة و مجلد صور ، قم بفك الضغط بنفس المجلد جرب و وافني بالنتيجة شكرا UP_NA- Copie.rar

أخي العزيز المرفق فيه زر امر و صورة الشرح غير واضح ... هل هذا ما تريده ؟؟؟ 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") & ")") هل هذا ما تقصده ؟؟؟

شكرا

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

أخي العزيز آسف للطرح خارج الموضوع لكن كخدمة شخصية لي : هل يمكن ان تغير اسم الظهور الخاص بك شكرا

بالنسبة لي لا استطيع ان اتصور الاجراء مجردا دون القاعدة ... فعذرا

ارفق قاعدة للتطبيق لطفا

لماذا ؟ عذرا على الرد بسؤال و لكن اريد ان افهم الغاية اذا سمحت !!

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

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

أخي العزيز انقل الى استعلام جديد وسمه ما تشاء 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 موجود في التطبيق المرفق أصلا !!

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

أخي العزيز هل تريد تطبيق استعلام التوحيد مع شروط ؟

أخي العزيز هل هذا قصدك

اخي العزيز في الاستعلام ضع الكود المرفق للاحتساب التأخير فقط مع تجنب احتسابات خاطئة للقادمين مبكرا Late: IIf(Format([حضور],"hh:nn:ss")>Format([ساعة الحضور],"hh:nn:ss"),(Format(([حضور]-[ساعة الحضور]),"hh:nn:ss")),"00:00:00") تم التجربة قبل ارفاقها .... و لكن جرب و وافني بالنتيجة

ملف المرفق معطوب او فارغ