jjafferr

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'KeyCode = 17 vbKeyCtrl CTRL 'KeyCode = 33 vbKeyPageUp PAGE UP key 'KeyCode = 34 vbKeyPageDown PAGE DOWN key 'KeyCode = 107 vbKeyAdd PLUS SIGN (+) key 'KeyCode = 109 vbKeySubtract MINUS SIGN (-) key 'KeyCode = 38 vbKeyUp UP ARROW key 'KeyCode = 40 vbKeyDown DOWN ARROW key Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. 'If intShiftDown Then MsgBox "You pressed the SHIFT key." 'If intAltDown Then MsgBox "You pressed the ALT key." 'If intCtrlDown Then MsgBox "You pressed the CTRL key." If intCtrlDown Then If KeyCode = 107 Then tim = tim + 0.041666 ElseIf KeyCode = 109 Then tim = tim - 0.041666 'ElseIf KeyCode = 17 and 33 Then ElseIf KeyCode = 33 Then tim = tim + 1 'ElseIf KeyCode = 17 and 34 Then ElseIf KeyCode = 34 Then tim = tim - 1 End If End If End Sub . جعفر 785.1.4.mdb.accdb.zip

الله يطول في عمرك اخوي طاهر ، انا ما غيرت شيء يخص com1 ولا com2 ، كل اللي عملته هو مجرد تنسيق !! ولكن ، الآن وقد اردت هذا ، المفروض ان الكود "بعد تحديث" com1 يقوم بإعادة جلب البيانات للحقل com2 بناء على بيانات الحقل com1 (السطر الاخير يقوم بذلك) : Private Sub com1_AfterUpdate() MsgBox "قيمة الحقل=" & Me.com1 & vbCrLf & _ "اسم الصنف=" & Me.com1.Column(1) Me.com2.Requery End Sub جعفر

وعليكم السلام ورحمة الله وبركاته بالفعل هدية مميزة ، شكرا لك اخي صالح بما انك خطوت هذه الخطوة ، فهل بالامكان عمل برنامج accde او mde على جهاز الزبون و . وكذلك عدم عرض رسائل الامان ، بإستخدام الكود هذا جعفر

وعليكم السلام اليك هذه الروابط واقرأ الرابط التالي لآخره ، ثم انتقل الى الرابط الذي به . جعفر

البيانات التي تم ادخالها لجميع الاشهر ، موجودة في قاعدة البيانات ، ولما تريد عمل نسخة من شهر معين ، فالبرنامج لا يعرف اي شهر تريد ان تنسخ بياناته ، والى اي شهر ، لذلك 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 جعفر