jjafferr

هلا والله

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

هل جربت طريقتي؟

وعليكم السلام اعطنا مثال من برنامجك لوسمحت جعفر

جرب هاي Private Sub Amountofservice_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then MsgBox "Amountofservice يجب ان يساوي Net" Cancel = True End If End Sub Private Sub Payment_type_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" Then Me.Amountofservice = Nz(Me.Net, 0) End If End Sub جعفر 850.1.تجريي2.accdb.zip

افضل طريقة ان تضع مثل هذا الكود على حدث "قبل التحديث" للحقل الذي تريد فحصه. Private Sub tel_BeforeUpdate(Cancel As Integer) If Len(Me.tel & "") = 0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Cancel = True End If End Sub جعفر

السلام عليكم . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Count_Each_ED <> Me.S_Ed Then Me.Cont = "continue..." & Me.edara Me.Cont.Visible = True Me.edara.Visible = False Me.lbl_Ed.Visible = False Else Me.Cont.Visible = False Me.edara.Visible = True Me.lbl_Ed.Visible = True End If End Sub . . . جعفر 849.test1.accdb.zip 849.test1.mdb.zip

هذه الاحداث ليست بالتسلسل ، هذا الرابط عملته خاص للتوضيح جعفر

الله يخليك سريع ، لأني توني متعشي جعفر

تفضل . جعفر 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

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

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

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