أبو آدم

أخي العزيز

مرفق قاعدة البيانات المعدلة و مجلد صور ، قم بفك الضغط بنفس المجلد 

جرب و وافني بالنتيجة

شكرا

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")

تم التجربة قبل ارفاقها .... و لكن جرب و وافني بالنتيجة

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