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

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

ما هو امتداد الملف المراد تحويله اخي الكريم اذا كان accde فلا تحاول تحويله فلن يمكن ذلك تحياتي

لهذا استخدمنا Format للحقل لكي يقوم بتنسيق التاريخ كما نريد اياً كانت طريقة كتابة التاريخ Format("31/12/2020", "mm/dd/yyyy") ولهذا ايضاً استخدمنا Debug.Print myCriteria لكي يعرض طريقة تنفيذ العملية بعد تنفيذ العملية اضغط ctrl + G في محرر الاكود سترى النتيجة تحياتي

وعليكم السلام ورحمة الله وبركاته مرفق ابا غبدالرحمن الله يهديك لتسهيل الموضوع على كل حال انظر الاستعلام Query1 و Query2 Database1.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم نحن هنا لسنا في نتحدي مع احد ولكن كلنا اخوة نحاول مساعدة بعض ووالله استفدت من هذا المكان كثيرا جدا واحاول فقط رد الجميل سنفرض انا لدينا كومبوبوكس باسم Combo11 نضع الامر التالي به If Me.Combo11.Value = 1 Then myCriteria = "" myCriteria = "(" myCriteria = myCriteria & "[التاريخ] between #" & Format("01/01/2020", "mm/dd/yyyy") & "# and #" & Format("31/03/2020", "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" ElseIf Me.Combo11.Value = 2 Then myCriteria = "" myCriteria = "(" myCriteria = myCriteria & "[التاريخ] between #" & Format("01/04/2020", "mm/dd/yyyy") & "# and #" & Format("30/06/2020", "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" ElseIf Me.Combo11.Value = 3 Then myCriteria = "" myCriteria = "(" myCriteria = myCriteria & "[التاريخ] between #" & Format("01/07/2020", "mm/dd/yyyy") & "# and #" & Format("30/09/2020", "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" ElseIf Me.Combo11.Value = 4 Then myCriteria = "" myCriteria = "(" myCriteria = myCriteria & "[التاريخ] between #" & Format("01/10/2020", "mm/dd/yyyy") & "# and #" & Format("31/12/2020", "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" End If Debug.Print myCriteria Me.[التخصص]![الادخال Subform].Form.Filter = myCriteria Me.[التخصص]![الادخال Subform].Form.FilterOn = True gstorm_2.rar تحياتي

يعمل بشكل جيد وقد تكون المشكلة في اعدادات الماكرو طبق كما بالصور تحياتي

غير النماذج والتقارير كما بالصورة تحياتي

تفضل اخي الكريم هذا الموضوع لك من وقت ليس ببعيد نفس المثال بالضبط Database1 - Copy.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم وهذا تعديل حسب المرفق الخاص بك Private Sub ffind_Change() Dim strFilter As String, strSearch As String If Nz(Me.ffind.Text) = "" Then Me.[التخصص]![الحهات الطبية Subform].Form.Filter = "" Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = False Me.[التخصص]![الادخال Subform].Form.Filter = "" Me.[التخصص]![الادخال Subform].Form.FilterOn = False Else strSearch = Replace(Me.ffind.Text, "'", "''") strFilter = strFilter & "الجهة LIKE '*" & strSearch & "*'" End If If strFilter <> "" Then Me.[التخصص]![الحهات الطبية Subform].Form.Filter = strFilter Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = True Me.[التخصص]![الادخال Subform].Form.Filter = strFilter Me.[التخصص]![الادخال Subform].Form.FilterOn = True Else Me.[التخصص]![الحهات الطبية Subform].Form.Filter = "" Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = False Me.[التخصص]![الادخال Subform].Form.Filter = "" Me.[التخصص]![الادخال Subform].Form.FilterOn = False End If Me.ffind.SetFocus Me.ffind.SelStart = Len(Me.ffind.Text) End Sub Private Sub ffind_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Me.ffind.Value = Me.ffind.Text & Chr$(32) Me.ffind.SelStart = Len(ffind.Text) End If End Sub gstorm.rar تحياتي

ما شاء الله لا قوة الا بالله عمل عظيم ومفيد ان شاء الله للجميع غفر الله لك ولوالديك وحزاك الله خيرا اخي الكريم تحياتي

عموما ما تطلبه هو الجزء الاهم في البرنامج وتفضل اخي الكريم اليك ما تريد Database111.rar انظر الى الاستعلام Query1 به رصيد الاصناف تحياتي

تفضل اخي الكريم X1 = DateAdd("d", -[txtday], Date) X2 = DateAdd("m", -[txtMonth], X1) X3 = DateAdd("yyyy", -[txtYear], X2) MsgBox X3 تحياتي

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في وحدة نمطية جديدة Function fnAutoField() As String Dim strRndNo As String 10: strRndNo = Format((999999999 * Rnd) + 1, "100000000") If DCount("*", "tblItems", "BarcodeItem='" & strRndNo & "'") > 0 Then GoTo 10 fnAutoField = strRndNo End Function وهذا الكود في النموذج يتأكد من وجود قيمة في BarcodeItem وإلا يضع باركود جديد If IsNull([BarcodeItem]) Then Me!BarcodeItem = fnAutoField() End If

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم If Me.الباقي = 0 Then NHSB = -1 End If younis.rar تجياتي

التنسيق الشرطي لا يقوم بهذه الوظيفة ما المشكلة اخذ مع الكود ؟ علماً انه ابسط واسهل كما يمكنك نقله الى اي برنامج نسخ ولصق تحياتي

تفضل اخي الكريم تحياتي

وضح بارك الله فيك لم افهمك جيداً تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم المرفق يحتاج الى تعديلات كثيرة لتصل به الى قاعدة بيانات متماسكة لذلك انصحك ان تبدأ مع الدرس التالي خطوة خطوة لتتعرف على كيفية بناء برنامج قوي ومتماسك وهذا برنامج جاهز تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تم تعديل اسم مربع تحرير وسرد الى Combobox1 وتم تعديل النموذج الفرعي الى subform1 ثم استخدمنا الكود التالي Private Sub Combobox1_Click() If Me.Combobox1.Value = "نعم" Then Me.subform1.Form.AllowEdits = True Me.subform1.Form.AllowAdditions = True Else If Me.Combobox1.Value = "لا" Then Me.subform1.Form.AllowEdits = False Me.subform1.Form.AllowAdditions = False End If End If End Sub Private Sub Form_Current() Combobox1_Click End Sub Database3_3.rar تحياتي

نعم اخي بلال بشرط ان يكون نوع الحقل تاريخ / date تحياتي

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

تفضل اخي الكريم Dim frm As Form DoCmd.OpenForm "frm3", acNormal, , , , acHidden Set frm = Forms("frm3") DoCmd.OpenForm frm.Name Debug.Print frm.Name Set frm = Nothing تحياتي

استبدل السطر التالي newpathANDname = newpathANDname & "\" & Me.Animal_ID بهذا newpathANDname = newpathANDname تحياتي

وعليكم السلام ورحمة الله وبركاته تصاعدي تنازلي تحياتي

تفضل اخي الكريم نفس الفكرة موجودة في الموضوع التالي تحياتي