jjafferr

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

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

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

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

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

وعليكم السلام هذا الخطأ معناه انه في اعدادات الوندوز ، لم تستخدم دولة الخط فيها 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

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

الحمدلله انك توصلت الى حل ، بغض النظر عن طريقة عمله كنت اتمنى ان ترفق لنا ملف يوضح لنا ما يجب عمله ، ولكن المرفق بحاجة الى مرفق يشرحة جعفر

السلام عليكم ورجاء قراءة هذه المعلومة كذلك ، والتي كتبتها قبل قليل ، ومنها ستعرف سبب عدم ردي على السؤال من بدايته : جعفر

السلام عليكم اخواني صحيح ان الموضوع قديم ، ولكني اود ان اضيف معلومة مهمة لهذا الموضوع ، وهو السبب الذي جعلني اتوقف عن استعمال هذا الكود ، وعن عمل برنامج "الريموت كنترول" ، وهنا السبب : . وهذه المعلومة ايضا : . انا الى اليوم ، ارى بعض الكمبيوترات عليها النسخة الاولى من الاوفيس (سواء 2003 او 2007 او 2010 او 2013 او 2016) وبدون تحديثات ، فرجاء لا يجي واحد من المبرمجين ويقول انه يقدر يتحكم في تحديث كمبيوتر الزبون ، وعليه فالمسالة تكون محلولة!! المسألة ما تستاهل ، بعد جعد جهيد واخذ وعطاء مع الزبون ، ويكمل البرنامج ، ثم نقع في مشاكل معاه ، بحذف جداوله المرتبطة ، وتوقف عمل برنامجه. الاختيار لك يا مبرمج ، يا ابقاء الزبون ، ويا استعمال هذا الكود !! جعفر

لا هذا غير دقيق ، وانما مثل ما انا قلت: . حسب علمي ، لا يوجد ، ولذلك استعملت الطريقة اعلاه ، او تقدر تستعمل: جعفر

وعليكم السلام تفضل و جعفر

وعليكم السلام المادة د من الرابط تعطيك الطريقة التي استعملتها انا جعفر