jjafferr

تفضل . جعفر 850.تجريي2.accdb.zip

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

تفضل هذا الكود ، ولكن يجب ان لا تضع الكود على هذا الحدث ، فهذا الحدث هو آخر حدث قبل الخروج من النموذج Private Sub Form_Close() If len(me.Text1 & "")=0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Exit Sub end if جعفر

لا يمكن تجزأت السطر هذا ، فإما تُظهره بالكامل ، او تخفيه بالكامل. جعفر

وحصلت على الاجابة

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

همم ما كنت ادري ان الزر Ctrl حساس !! اليك الكود بعد لبتجربة 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 'Ctrl If KeyCode = 33 Then '+day 'Ctrl + PAGE UP key tim = tim + 1 ElseIf KeyCode = 34 Then '-day 'Ctrl + PAGE DOWN key tim = tim - 1 End If ElseIf 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 End If End Sub جعفر 785.2.4.mdb.accdb.zip

وعليكم السلام هاي مختصر المطلوب AppPath = Application.CurrentDb.Name AppName = Application.CurrentProject.Name AppExt = Mid(AppName, InStrRev(AppName, ".") + 1) MsgBox AppPath & vbTab & " اسم ومسار قاعدة البيانات " & vbCrLf & _ AppName & vbTab & " اسم قاعدة البيانات " & vbCrLf & _ AppExt & vbTab & " صيغة قاعدة البيانات " 'or MsgBox Application.CurrentDb.Name & vbCrLf & _ Application.CurrentProject.Name & vbCrLf & _ Mid(Application.CurrentProject.Name, InStrRev(Application.CurrentProject.Name, ".") + 1) جعفر

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

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