jjafferr

تفضل جرب هذا السطر بعد التعديل عليه : Amount2: DLookUp("[Amount]";"Sand_T";"[EmployeeID]= " & [EmpID ] & " and [Sdate]=#" & [MovDate] & "#")

وعليكم السلام ايش رايك ترفق لنا هذه الجزئية من برنامجك ، وتشرح لنا من واقع بياناته شو النتيجة اللي تريدنا نساعدك للوصول لها 🙂 جعفر

في هذه الحالة ، رجاء عمل موضوع جديد ، وتكتب فيه جميع التفاصيل 🙂 جعفر

اذا كانت فكرتي صحيحة ، فيجب ان يكون استعلامك هكذا ، بحيث يكون لدينا معيار رقم الموظف والتاريخ: والنتيجة جعفر

اخي الفاضل ، خلينا نتكلم عن الموظف رقم 2 فقط. في الجدول عنده هذه السجلات . بينما في الاستعلام عنده هذه السجلات . هل قصدك ان تأخذ السجلات من الجدول الى الاستعلام بنفس الالوان والقيم اللي ذكرتها في الصورة التالية: . جعفر

الله يسلمك ويعافيك ان شاء الله 🙂

وعليكم السلام هذا ممكن عمله في استعلام والذي يكون مصدر بيانات النموذج ، وفي تقرير ايضا 🙂 جعفر

وعليكم السلام يمكن جلب المعلومة/المعلومات بعدة طرق ، ولكن نحتاج معرفة طريقة عرضها في النموذج وبدلا عن الاخذ والعطاء ، ارفق الجزئية هذه من برنامجك للنظر فيه جعفر

السلام عليكم اخي بلال تذكّر ، قوانين المنتدى تسمح بسؤال لكل موضوع ، فإذا كان سؤالك عبارة عن استمرارية لهذا الموضوع ، فتوكل على الله وإسأل ، واذا كان سؤالك خارج عن الموضوع ، فرجاء فتح سؤال جديد جعفر

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

هلا ومرحبا بالغالين

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

السلام عليكم هذا موضوع الاخ @حمدى الظابط الخاص بالسحب والافلات: جعفر

الكود اللي كنت انت عامله هو هذا (لمرفقك الجديد): . وهذا للمرفق الاصل: . وهذا هو كود SQL الاستعلام اعلاه (وهو نفسه الذي انت كتبته في الـ VBA) : UPDATE Details, Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID SET ID = 1, sDate = #5/1/2018#, CustomerName = 'cudi', ItemsName = '1', Qy = 3, Price = 22, Total = 66; . فهناك خطأ من اصل الموضوع ، ويجب ان تعيد عمل المطلوب من اول وجديد معناه ، انك يجب ان تغير سؤال الموضوع ايضا جعفر

طيب ، اعمل استعلام ، وخلينا نشوفه

وعليكم السلام الظاهر انك نسخت كود SQL الاستعلام ، ونسيت بقايا من استعلام آخر جرب هذا الكود: Private Sub CmdUpdate_Click() Dim mySQL As String DoCmd.SetWarnings False mySQL = "UPDATE Details " & _ " SET ID =" & Me.SaleID & _ ", sDate = #" & Me.SaleDate & "#" & _ ", CustomerName ='" & Me.CustName & "'" & _ ", ItemsName ='" & Me.Sub!Items & "'" & _ ", Qy = " & Me.Sub!Qy & _ ", Price =" & Me.Sub!Price & _ ", Total =" & Me.Sub!Total '& _ " FROM Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID" Debug.Print mySQL CurrentDb.Execute mySQL DoCmd.SetWarnings True End Sub جعفر

السلام عليكم تفضل: الاستعلام اصبح: . ونتائج النموذج: . والوحدة النمطية: Public Function Calc_Diff(DE1 As Date, DE2 As Date) As Long Dim Time_Left_day1 As Long Dim Time_day2_Morning_Til_DE2 As Long Dim Time_days_Between_day1_day2 As Long Dim Interval As Long 'all the calculations are in minutes 'DE1 = Date 1st Employee finished his task 'DE2 = Date 2nd Employee finished his task 'DE1 & DE2 finished the same day If Format(DE1, "yyyymmdd") = Format(DE2, "yyyymmdd") Then Interval = DateDiff("n", DE1, DE2) 'DE2 finished next day ElseIf DateDiff("d", DE1, DE2) = 1 Then 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 'DE2 didn't finish next day Else 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'time days between day1 and day2 Time_days_Between_day1_day2 = DateDiff("d", DE1, DE2) * 420 ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 + Time_days_Between_day1_day2 End If ' Format and print the time interval in days, hours, minutes and seconds. 'Calc_Diff = Minutes2Duration(Interval) Calc_Diff = Interval End Function Public Function Minutes2Duration(minutes As Long) As String Dim dd As Long, hh As Integer, mm As Integer 'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes ' modified by jjafferr based on the working day hours ' 1 day = 24 hours x 60 minutes/hour = 1440 minutes ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes ' dd = minutes \ 420 minutes = minutes - dd * 420 hh = minutes \ 60 mm = minutes Mod 60 ' If dd = 0 Then 'No day adjustment Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' Else 'needs day adjustment ' Minutes2Duration = Format(dd - 1, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") ' End If End Function جعفر 973.1.قاعدة البيانات8.mdb.zip

وعليكم السلام اخي علاء انا اضفت Enable اللي ما يسمح بإدخال قيمة للحقل حتى ولو كان مرئي ، وطبعا يمكنك حذفه جرب هذا الكود Private Sub Form_Load() With Me.new .Visible = False .Enabled = False End With End Sub Private Sub old_AfterUpdate() If Me.old.Text = "" Then MsgBox "من فضلك أكتب إسم كلمة السر ", vbCritical, "تحذير" ElseIf Me.old.Text = [password] Then Me.new.Visible = True Me.new.Enabled = True ElseIf Me.old.Text <> [password] Then MsgBox "كلمة السر خطأ من فضلك حاول مرة اخرى ", vbCritical, "تحذير" End If End Sub جعفر

وعليكم السلام المنتدى مليء بما لذ وطاب من المواضيع ، فاجعل البحث وسيلتك للوصول اليها هذه بعض نتائج البحث الخاصة بطلبك: . و . جعفر

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

في هذه الحالة ، يجب ان يكون الحساب لكل موظف ، وليس لآخر موظف فقط ، وحساب الوقت يجب ان يتغير الى دقائق:ساعات:ايام استخدمت وحدات نمطية اثنان ، وارسلت معلومتين لكل موظف لهم ، هكذا: والنتيجة: وهذه الوحدات النمطية التي تقوم بالعمل: Public Function Calc_Diff(DE1 As Date, DE2 As Date) As String Dim Time_Left_day1 As Long Dim Time_day2_Morning_Til_DE2 As Long Dim Time_days_Between_day1_day2 As Long Dim Interval As Long 'all the calculations are in minutes 'DE1 = Date 1st Employee finished his task 'DE2 = Date 2nd Employee finished his task 'DE1 & DE2 finished the same day If Format(DE1, "yyyymmdd") = Format(DE2, "yyyymmdd") Then Interval = DateDiff("n", DE1, DE2) 'DE2 finished next day ElseIf DateDiff("d", DE1, DE2) = 1 Then 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 'DE2 didn't finish next day Else 'time from DE1 til the end of the day Time_Left_day1 = DateDiff("n", DE1, DateSerial(Year(DE1), Month(DE1), Day(DE1)) & " 2:00:00 PM") 'time from morning til DE2 finished Time_day2_Morning_Til_DE2 = DateDiff("n", DateSerial(Year(DE2), Month(DE2), Day(DE2)) & " 7:00:00 AM", DE2) 'time days between day1 and day2 Time_days_Between_day1_day2 = DateDiff("d", DE1, DE2) * 420 ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes 'add the above Interval = Time_Left_day1 + Time_day2_Morning_Til_DE2 + Time_days_Between_day1_day2 End If ' Format and print the time interval in days, hours, minutes and seconds. Calc_Diff = Minutes2Duration(Interval) End Function Public Function Minutes2Duration(minutes As Long) As String Dim dd As Integer, hh As Integer, mm As Integer 'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes ' modified by jjafferr based on the working day hours ' 1 day = 24 hours x 60 minutes/hour = 1440 minutes ' 1 working day = 7 hours x 60 minutes/hour = 420 minutes ' dd = minutes \ 420 minutes = minutes - dd * 420 hh = minutes \ 60 mm = minutes Mod 60 If dd = 0 Then 'No day adjustment Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") Else 'needs day adjustment Minutes2Duration = Format(dd - 1, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") End If End Function جعفر 973.1.قاعدة البيانات8.mdb.zip

همم كلامك صحيح اذن لابد من عمل وحدة نمطية ونخلّي فيها جميع هذه الشروط وهذه بلا امارة عليك اشوفها الصبح ان شاء الله جعفر

والجواب نعم جعفر

وعليكم السلام حبيبا الغائب عن النظر والموجود في القلب حيا الله ابو احمد الطريقة اللي تجي في بالي هي: 1. نحسب الوقت من تاريخ اجاز2 الى نهاية الدوام الساعة 2 ظهرا ، 2. نحسب الوقت من بداية دوام اليوم التالي من الساعة 7 صباحا الى وقت انجاز3 ، 3. نجمع الوقتين 1 + 2 ونحصل على الوقت الذي اخذه الموظف3 وهذا كود الاستعلام لكل من النقاط الثلاث اعلاه: 1. Time_Left_Today: DateDiff("n",[DEmp2],DateSerial(Year([DEmp2]),Month([DEmp2]),Day([DEmp2])) & " 2:00:00 PM") 2. Time_Tomorrow_Til_DEmp3: DateDiff("n",DateSerial(Year([DEmp3]),Month([DEmp3]),Day([DEmp3])) & " 7:00:00 AM",[DEmp3]) 3. Time3: DateDiff("n",[DEmp2],DateSerial(Year([DEmp2]),Month([DEmp2]),Day([DEmp2])) & " 2:00:00 PM")+DateDiff("n",DateSerial(Year([DEmp3]),Month([DEmp3]),Day([DEmp3])) & " 7:00:00 AM",[DEmp3]) وهذا الاستعلام بكامله SELECT tbl1.Rqu, tbl1.RquD, tbl1.NEmp1, tbl1.DEmp1, DateDiff("n",[rquD],[DEmp1]) AS Time1, tbl1.NEmp2, tbl1.DEmp2, DateDiff("n",[DEmp1],[DEmp2]) AS Time2, tbl1.NEmp3, tbl1.DEmp3, DateDiff("n",[DEmp2],DateSerial(Year([DEmp2]),Month([DEmp2]),Day([DEmp2])) & " 2:00:00 PM") AS Time_Left_Today, DateDiff("n",DateSerial(Year([DEmp3]),Month([DEmp3]),Day([DEmp3])) & " 7:00:00 AM",[DEmp3]) AS Time_Tomorrow_Til_DEmp3, DateDiff("n",[DEmp2],DateSerial(Year([DEmp2]),Month([DEmp2]),Day([DEmp2])) & " 2:00:00 PM")+DateDiff("n",DateSerial(Year([DEmp3]),Month([DEmp3]),Day([DEmp3])) & " 7:00:00 AM",[DEmp3]) AS Time3 FROM tbl1; والنتيجة جعفر 973.قاعدة البيانات8.mdb.zip

وهذا الرابط فيه معلومات تؤكد هذه المعلومة جعفر