jjafferr

البيانات التي تم ادخالها لجميع الاشهر ، موجودة في قاعدة البيانات ، ولما تريد عمل نسخة من شهر معين ، فالبرنامج لا يعرف اي شهر تريد ان تنسخ بياناته ، والى اي شهر ، لذلك 1. يجب ان نخبر البرنامج اننا نريد ان ننسخ بيانات شهر معين ، مثلا شهر 8 لسنة 2017 (والذي هو موجود اصلا في البرنامج) ، لهذا يجب عمل حقل (Date_From مثلا) "من شهر/سنة" ، من 8/2017 (كذلك قد تريد نسخ بيانات شهر 6 او 7 بدلا من شهر 8 مثلا ، لذا يجب وضع التاريخ في هذا الحقل) ، 2. تريد نسخ بيانات الحقل Date_From الى اي شهر ؟ يجب ان نعمل حقل (Date_To مثلا) "الى شهر/سنة’ ، الى شهر 9/2017 مثلا ، 3. وللقيام بعملية النسخ اعلاها ، نضع كود النسخ والإضافة على زر امر ، طبعا يجب ان تعمل استعلام الحاقي (Append Query) ، ويكون معيار التاريخ 8/2017 ، وعلى ان تقوم بتحديث التاريخ الى 9/2017 . طبعا هذه التفاصيل تعتمد على تصميم جدولك جعفر

هذا الملف ، بصيغة ثانية ، وللعلم ، هذا الملف من المشاركة الاولى جعفر AlignListbox.MDB.zip

وعليكم السلام نعم ممكن ، اعمل حقل من الشهر/السنة وحقل الى الشهر/السنة ، وزر يعمل لك نسخ لهذه السجلات. جعفر

وعليكم السلام الحقل com1 : من هنا يأخذ البيانات والنتيجة . لاحظ انك قد ربطت هذا الحقل بالعمود رقم 1 من الاستعلام ، وهو حقل "رقم" . والاعدادات عندك تقول عندك عمودين ، ولكنك طلبت بأن تُظهر عمود واحد فقط بعرض 1 بوصة (2.54 سم) ، . وعندما تضغط على الحقل ، ترى وعند الاختيار تحصل على الرقم . بينما لو عملنا هذا التغيير ، وطلبنا من الاعدادت ان تُظهر حقلين ، الاول عرضه صفر (يعني ، هو موجود ولكننا لا نستطيع رؤيته) ، والاخر 2 بوصة ، . هكذا يكون الاختيار وعند الاختيار تحصل على الاسم . الظاهر لنا اسم الصنف ، ولكن الحقل com1 يحمل قيمة الحقل رقم الصنف. استعمل هذا الكود في الحدث "يعد تحديث" الحقل com1 ، لنحصل على القيم الموجودة في الحقل com1 ، . Private Sub com1_AfterUpdate() MsgBox "قيمة الحقل=" & Me.com1 & vbCrLf & _ "اسم الصنف=" & Me.com1.Column(1) End Sub . جعفر 846.STOCK.accdb.zip

السلام عليكم بالاضافة الى ما قاله اخي ابوعلي ، هناك اشياء اخرى يجب النظر فيها ، مثل: و جعفر

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

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

حياك الله اخوي احمد وبرجاء فتح موضوع جديد لهذا السؤال ، حيث ان قوانين المنتدى لا تسمح بأكثر من سؤال في موضوع واحد كما لو سمحت ، فالمعلومات التي كتبتها غير كافية (بالنسبة لي) حتى تحصل على اجابة متكاملة جعفر

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

السلام عليكم قد نريد ان نجعل الرسالة تبقى لمدة معينة ، واذا لم يقوم المستخدم بعمل شيء ، تقوم الرسالة بإختيار "لا" وتغلق نفسها ، Private Sub cmd_Timer_msgbox_Click() Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Msg = "هل تريد الاستمرار" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style) If Response = vbYes Then MsgBox "تم اختيار نعم" Else MsgBox "تم اختيار لا ، او انتهى الوقت" End If End Sub جعفر Msgbox Timer.MDB.zip

وعليكم السلام المبرمج مثل الدكتور ، يسألك بعض الاسئلة ، وعلى ردودك ممكن يعطيك نصائح ، ولكن للتأكد 100% من المشكلة ، لازم يعمل فحوصات وتحاليل ، واللي المريض شخصيا لازم يكون موجود ، وبرنامجك مشكلته هي: رقم 1 (خط الفصل بين صفحة واخرى) ، اعلى من الخط رقم 2 (الخط السفلي لمربع الحقل "حالة") . وعلشان ما تخلي رقم 1 ينزل مسافة كبيرة ، اعمل التالي: 1. اختاره ، 2. ثم خليك ماسك زر Ctrl الكيبورد ، 3. ومن الكيبورد ، استعمل السهم لأسفل ، 3 حبات فقط. الدكتور جعفر

وعليكم السلام اخوي وضاح استعمل هذا الكود للزر "ادراج بالفاتوره" ، بدل الكود الموجود حاليا: Private Sub أمر44_Click() On Error Resume Next Forms![frm_Recall_sales]![Rjmfatwra2] = Me.Rjmfatwra Dim Rs As DAO.Recordset Set Rs = Forms!frm_Recall_sales!SubSales.Form.RecordsetClone Rs.FindFirst "[Rjmfatwra] = '" & Me.n7 & "' And ID_Sanf =" & Me.ID_Sanf If Rs.NoMatch = False Then MsgBox "Record Exists" GoTo No_Records Else Rs.AddNew Rs!Rajmsanf = Me.Rajmsanf Rs!ID_Sanf = Me.ID_Sanf 'Rs!Price_Sales = Me.Price Rs!Price = Me.Price 'Rst!Price = Me.Price_Sales Rs!Alkmiah = Me.n6 Rs!Atarih = Me.Atarih Rs!Nwaha = Me.Nwaha Rs!Rjmfatwra = Me.n7 Rs!Adfah = Me.Adfah Rs!NoEmp = Me.NoEmp Rs.Update Me.Price_Sales = Null Me.ID_Sanf = Null Me.Rajmsanf = Null Me.Sanf = Null 'sarabaih = Null Me.Price = Null Me.n9 = Null Me.n6 = Null Me.Alkmiah = Null Me.الاجمالي = Null Me.Atarih = Null Me.Nwaha = Null Me.Rjmfatwra = Null Me.Adfah = Null Me.NoEmp = Null Rajmsanf.SetFocus End If No_Records: Rs.Close 'DoCmd.Close ' End If End Sub . جعفر 844.رساله التكرار.mdb.zip

السلام عليكم ورحمة الله وبركاته سنة 2017 رحلت ، واذا احد عنده حساب معاها ، فالدعاء والاستغفار هو ما بقى لنا منها ، وان شاء الله سنة 2018 تكون لنا جميعا سنة صحة وسلامة وخير ونعمة ورزق وفير وقضاء الديون ، ورضى من رب العالمين ، لنا ولمن احببنا ، ولا ننسى ، هي صحيفة اعمالك ، فاملأها بالعمل الصالح جعفر

السلام عليكم اخي رعد انا احاول اتفادى الاسئلة اللي تتكلم بلغة المحاسبة ، ولكن لما يكون السؤال واضح بأسماء الحقول وتفصيل ، احاول المساعدة طلبك بسيط ، ولكن اريد بعض الاجابات لوسمحت: 1. المدين: رقم او صفر ، ولكن الصورة فيها فراغ اذا الدائن فيه رقم ، يعني لا رقم ولا صفر !! 2. اذا المدين فيه رقم ، الدائن = صفر ، ولكن الصورة فيها فراغ اذا المدين فيه رقم ، يعني لا يوجد صفر !! 3. رجاء شرح المادة 3 باللون الاحمر ، 4. واذا لم يتم التوازن ، لا يتم الحفظ !! ، هذا معناه اذا عندك 100 سجل ادخلتهم ولم يتم التوازن ، وما عندك وقت تدقق وين الخطأ ، تحذف كل العمل !! جعفر

المرفق مافيه بيانات ، عليه لا استطيع عمل شيء جعفر

وعليكم السلام لأن بياناتك عمودية: . يجب ان نفرغ الحقول ، من عمودية الى افقية ، حسب كل حركة: . والنتيجة ، والتي تستطيع ان تبدأ الحساب من هنا ، بين حقل الدخول والخروج ، او اي عملية حسابية شئت . وكذلك يمكن عمل الاستعلام هكذا ، استعلام وسيط (للايام ، وبدون وقت) . ونستخدم استعلام CrossTab ، ونكتب اسماء الاعمدة . والنتيجة . ولكن ، وعلشان اسهل عليك ، عملت لك الفرق بين اول وقت وآخر وقت ، بالساعة H و الدقيقة M . هذه النتيجة ، والباقي عليك . جعفر 842.Attendance.accdb.zip 842.Attendance.mdb.zip

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

حياك الله كود اخي شفان سيصبح هذا للاعتيادية =Nz(DSum("[مدة الإجازة]";"جدول الإجازات";"[نوع الاجازة]='اعتيادية'" & "and [رقم الموظف]=" & [Forms]![AAA]![رقم الموظف]);"لا يوجد") وهذا للاجازات التعويضية =Nz(DSum("[مدة الإجازة]";"جدول الإجازات";"[نوع الاجازة]='تعويضية'" & "and [رقم الموظف]=" & [Forms]![AAA]![رقم الموظف]);"لا يوجد") جعفر

وعليكم السلام . . جعفر 840.نوع الاجازة.accdb.zip

وعليكم السلام الاربع اسطر الاخيرة: 2. نعمل الاستعلام qry_NewQry من جملة mySQL_Union ، 3. نصدر بيانات الاستعلام الى D:\Test\abc.xls ، 4. نحذف الاستعلام. Private Sub cmd_Training_Records_Click() mySQL1 = "SELECT TOP " & Forms!Q1!iSchool & " الوقت, الاسم, الجهة, الدورة" mySQL1 = mySQL1 & " FROM tbl_Training" mySQL1 = mySQL1 & " WHERE الجهة = 'مدرسة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL1 = mySQL1 & " ORDER BY الوقت" 'Debug.Print mySQL1 mySQL2 = "SELECT TOP " & Forms!Q1!iAdmin & " الوقت, الاسم, الجهة, الدورة" mySQL2 = mySQL2 & " FROM tbl_Training" mySQL2 = mySQL2 & " WHERE الجهة = 'إدارة' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL2 = mySQL2 & " ORDER BY الوقت" 'Debug.Print mySQL2 mySQL3 = "SELECT TOP " & Forms!Q1!iOffice & " الوقت, الاسم, الجهة, الدورة" mySQL3 = mySQL3 & " FROM tbl_Training" mySQL3 = mySQL3 & " WHERE الجهة = 'مكتب' And الدورة ='" & [Forms]![Q1]![T1] & "'" mySQL3 = mySQL3 & " ORDER BY الوقت" 'Debug.Print mySQL3 mySQL_union = mySQL1 & " union all " & mySQL2 & " union all " & mySQL3 'Debug.Print mySQL_union Me.f1.Form.RecordSource = mySQL_union Me.f1.Form.OrderBy = "الجهة, الوقت" Me.f1.Form.OrderByOn = True Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("qry_NewQry", mySQL_union) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "qry_NewQry", "D:\Test\abc.xls" CurrentDb.QueryDefs.Delete "qry_NewQry" End Sub جعفر

. بينما نموذجك ، نموذج مستمر ، فلا يعمل الكود على حقل في سجل معين ، وانما يعمل على جميع السجلات (حسب قيمة اول سجل) ، اما التنسيق الشرطي ، فاليك مثال: https://stackoverflow.com/a/45284549 جعفر

اذا تريد بيانات هذه الحقول تظهر تظهر لك في النموذج، فنعم يجب إدخالها في الكود

قلت لك اني عملته !! لازم تغير اسم الجدول الموجود tbl_Training الى اسم آخر، وبعدين تقوم بهذا العمل. طبعا، اذا بدأت استعمال البرنامج، فيجب عليك حذف جدول المتقدمين، والعمل فقط على الجدول tbl_Training

بس مافي داعي، لأني عملته انا، وعليه أصبح عندنا الجدول tbl_Training . ولكن لا بأس بعمله، ليطمئن قلبك جعفر