jjafferr

هذا البرنامج معمول بالضبط لمثل حالتك ، وانا كنت استعمل النسخة القديمة منه ، لإدخال بيانات الحجاج على صفحة احد الوزارات ، والتحكم 100% عن طريق البرنامج ، وانت مو خسران تجربه جعفر

وعليكم السلام تفضل ، وانت اكمل الباقي Private Sub cmd_Copy_Record_Click() Forms![المراجعين].SetFocus DoCmd.GoToRecord acDataForm, "المراجعين", acNewRec Forms![المراجعين]![الاسم] = Forms![البحث العام]![الاسم] Forms![المراجعين]![التاريخ] = Date End Sub جعفر 848.نسخ البيانات.mdb.zip

من وين لي اعرف هذا !! تفضل الكود الجديد 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 KeyCode = 107 Then '+minute 'PLUS SIGN (+) key tim = tim + (1 / 24 / 60) ElseIf KeyCode = 109 Then '-minute 'MINUS SIGN (-) key tim = tim - (1 / 24 / 60) ElseIf KeyCode = 33 Then '+hour 'PAGE UP key tim = tim + (1 / 24) '0.041666 ElseIf KeyCode = 34 Then '-hour 'PAGE DOWN key tim = tim - (1 / 24) '0.041666 ElseIf KeyCode = 33 And intCtrlDown Then '+day 'Ctrl + PAGE UP key tim = tim + 1 ElseIf KeyCode = 34 And intCtrlDown Then '-day 'Ctrl + PAGE DOWN key tim = tim - 1 End If End Sub جعفر 785.2.4.mdb.accdb.zip

مافي دالة ، وانما يجب ان نجرب كود !!

تفضل استعلام الالحاق . والنموذج . وهذا هو الكود الزر Private Sub cmd_Copy_From_Click() If Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus End If DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Copy_From" DoCmd.SetWarnings True MsgBox "تم نسخ سجلات الشهر " & Me.Date_From & vbCrLf & _ "الى شهر " & Me.Date_To End Sub جعفر 847.تجريبي.accdb.zip

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

وعليكم السلام غيّر اتجاه التقرير الى من اليسار الى اليمين ثم تستطيع تقليص المسافة الفارغة جعفر

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

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 تكون لنا جميعا سنة صحة وسلامة وخير ونعمة ورزق وفير وقضاء الديون ، ورضى من رب العالمين ، لنا ولمن احببنا ، ولا ننسى ، هي صحيفة اعمالك ، فاملأها بالعمل الصالح جعفر