محمد أبوعبدالله

ضع الكود التالي في وحدة نمطية جديدة Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant, dbs As Object) As Integer Dim prp As Property Const conPropNotFoundError = 3270 On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function وفي حدث عند الفتح للنموذج ضع الكود التالي ChangeProperty "AllowBypassKey", dbBoolean, False تحياتي

تفضل اخي الكريم هذا برنامج يشمل mdb و accdb مع امكانية تعطيل الشيفت لقاعدة بيانات بها باسوورد En-Dis.rar تحياتي

السلام عليكم يمكن استخدام دالة space لاضافة مسافات قبل العنوان غير الرقم 25 الى الرقم الذي تريد Me.Caption = Space(25) & "نموذج البداية" تحياتي

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به استاذنا @Eng.Qassim وله الشكر وبالتعديل الذي قام بارفاقه تفضل اخي الكريم إدارة الاختبارات والقبول.rar تحياتي

وعليكم السلام ورحمة الله وبركاته غالبا المشكلة في كود فتح الملف ويمكن استبدال الكود بالتالي Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jAccess Files", "*.mdb" .Filters.Add "Access Files", "*.Accdb" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Me.txtPath = fpathz End If End With استيراد جدول.rar تحياتي

وعليكم السلام ورحمة الله وبركاته هل جربت عمل ضغط واصلاح لقاعدة البيانات تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =Sum(IIf((Nz([rased])-Nz([reorder]))<0;1;0)) العدد.rar تحياتي

جرب التعديل التالي asd (5).rar ولو تسمح لي بسؤال انت بالفعل تقوم بتمرير قيم login اللى نموذج navigation Forms![navigation]![username] = TemploginID Forms![navigation]![username] = username وكان بامكانك اضافة السطر التالي لتمرير الفرع Forms![navigation]![maktab] = maktab تحياتي

وضعت لك حقل maktab في نموذج الدخول وانظر تمريره الى نموذج navigation asd (5).rar تحياتي

اخي الكريم اين اجد اين نموذج nav10 واين اجد حقل maktab في نموذج frmshkwaest3lam2 تحياتي

في النموذج الذي تريد الخروج منه سواء في زر الامر او في حدث عن الاعلاق للنموذج تحياتي

غير Dim I As Integer الى Dim I As string تحياتي

حاليا يمكنك استخدام المتغير i في اي مكان بالبرنامج تحياتي

وعليكم السلام ورحمة الله وبركاته لنفترض انه الحقل المراد تمريره رقم نضع الكود التالي في وحد نمطية Option Compare Database Option Explicit Dim I As Integer Public Function My_i() My_i = I End Function ثم نضع الكود التالي للتمرير بافتراض ان الحقل المراد الرقم منه باسم text1 i = text1.value تحياتي

تفضل Private Sub List1_DblClick(Cancel As Integer) Dim rst As DAO.Recordset Set rst = Me.Recordset.Clone rst.FindFirst "[BounsID] = " & Me.list1.Column(4) If Not rst.EOF Then Me.Bookmark = rst.Bookmark End Sub المحكمة.rar تحياتي

السلام عليكم غير الحدث الى عند الحروج Private Sub Qty_out_Exit(Cancel As Integer) On Error Resume Next DoCmd.RunCommand acCmdSaveRecord [Forms]![Trans_out]![t1].Requery [Forms]![Trans_out]![نص53].Requery End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

تفضل اخي الكريم Dim db As Object تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم On Error Resume Next If IsNull([b3]) Then MsgBox "يجب أولا أختــــــــــيار اسم المورد", vbCritical, "warning" Else DoCmd.OpenReport "QPa_yme3 ", acViewPreview, , "[Da_pay4]=#" & Format(Me.b3, "mm/dd/yyyy") & "#" DoCmd.RunCommand acCmdZoom100 End If العملاء.rar تحياتي

أليس هذا هو المطلوب ؟ اضغط زر Esc برجاء التوضيح اكثر تحياتي هذه من الاخطاء التي يقع فيها المبرمج بأن يجعل حقل ترقيم تلقائي هو رقم الفاتورة ومن المفترض ان يكون الحقل رقم وضع ترقيم بالكود مثال : Me.shkwano = Nz(DMax("[shkwano]", "shkwaltwasl"), 0) + 1 تحياتي

اذن استبدل Me.Undo بـ DoCmd.CancelEvent الكود كامل Private Sub Form_BeforeUpdate(Cancel As Integer) If Len(Me.shkwadate & vbNullString) = 0 Then Me.shkwadate.SetFocus MsgBox "تاريخ الشكوى/المعاملة فارغ" ' Me.Undo DoCmd.CancelEvent ElseIf Len(Me.almsder & vbNullString) = 0 Then Me.almsder.SetFocus MsgBox "مصدر الشكوى/المعاملة" ' Me.Undo DoCmd.CancelEvent ElseIf Len(Me.tsneef & vbNullString) = 0 Then Me.tsneef.SetFocus MsgBox "تصنيف الشكوى/المعاملة" ' Me.Undo DoCmd.CancelEvent End If End Sub asd.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Form_BeforeUpdate(Cancel As Integer) If Len(Me.shkwadate & vbNullString) = 0 Then Me.shkwadate.SetFocus MsgBox "تاريخ الشكوى/المعاملة فارغ" Me.Undo ElseIf Len(Me.almsder & vbNullString) = 0 Then Me.almsder.SetFocus MsgBox "مصدر الشكوى/المعاملة" Me.Undo ElseIf Len(Me.tsneef & vbNullString) = 0 Then Me.tsneef.SetFocus MsgBox "تصنيف الشكوى/المعاملة" Me.Undo End If End Sub asd.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل احي الكريم تحياي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Forms("Form1").Filter = "T1Date = #" & Format(Me.TBDate, "mm/dd/yyyy") & "#" Forms("Form1").FilterOn = True تحياتي