jjafferr

وعليكم السلام الظاهر انك نسخت كود 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) وبدون تحديثات ، فرجاء لا يجي واحد من المبرمجين ويقول انه يقدر يتحكم في تحديث كمبيوتر الزبون ، وعليه فالمسالة تكون محلولة!! المسألة ما تستاهل ، بعد جعد جهيد واخذ وعطاء مع الزبون ، ويكمل البرنامج ، ثم نقع في مشاكل معاه ، بحذف جداوله المرتبطة ، وتوقف عمل برنامجه. الاختيار لك يا مبرمج ، يا ابقاء الزبون ، ويا استعمال هذا الكود !! جعفر

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

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

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

رجاء ارفق مثال فيه جميع الاحتمالات ، وقول ليش هذا صح وهذا غلط (اعمله بالاكسل ، مع بيانات في الاكسس)، وهنا حل لتداخل التواريخ http://allenbrowne.com/appevent.html ولكن لن نستطيع ان نساعدك اذا رفعت الراية البيضاء ، ولم ترد مواصلة الطريق!! جعفر

السلام عليكم اخوي خلف كان عندك خطأ في الاستعلام tblm1 والاستعلام tqwarr (مسافة زائدة ومسافة ناقصة وتغيير الاسم الى *) ، فقمت بتعديلهم وارفاقهم لك ، استوردهم الى برنامجك وشوف اذا بيغير النتيجة او لا !! واستعمال اكثر من احتمال في جملة iif يبطئ الاستعلام ، لأن الاستعلام يجب ان ينظر في جميع الاحتمالات ، وخصوصا جميع احتمالاتك Dcount !! فالافضل ان تكتب وحدة نمطية ، وتستخدم فيها if او Seclect case ، وتضع جمل Dcount فيها ، فسيكون الكود اسرع ، لأنك ستستخد جلة واحدة منهم فقط . كما اعتقد بأن سؤالك غير واضح ، فاذا ممكن ترفق مثال يكون اسهل لفهمنا طبعا هذه مجرد ملاحظاتي ، وفي انتظار روائع الزعيم شيفان جعفر 972.accdb.zip

السلام عليكم برنامجك فارغ من البيانات ، ومن الوحدات النمطية ، فما اعرف شو المطلوب؟

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

وعليكم السلام هذه الرسالة بسبب اعدادات الكمبيوتر ، فيجب استعمال اسم احد الدول العربية في الرقم 4 ، لإستعمالها خطوط Unicode . جعفر

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

السلام عليكم اذا اردناه بالكود اي بدون عمل مفتاح اساسي كيف يكون ؟؟ مع جزيل الشكر تفضل . جعفر

وعليكم السلام حياك الله جعفر

آسف ، ما كان واضح طريقة حذفك للسجل فيصبح كودك كالتالي: Private Sub Command12_Click() On Error GoTo Err_Command12_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.ImageFrame.Visible = false Me.ImageFrame.Picture = "" Exit_Command12_Click: Exit Sub Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub جعفر