ابو ياسين المشولي

الله يحفظك اخي الشربيني123 افضل طريقه تحوله الىaccde ارسلت لك على الخاص

امرك

مشاركة مع الاخوان Up-1.accdb

اتفضل Date()+[نص10] date.accdb

اجعل تسيق الجقل بالجدول Short Time

انا سويته لك لانك قلت هو رقم لكن بسبب الصفر حولته الى نص لذلك عملت كود انه لا يقبل سوى ارقام

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

اتفضل حسب طلبك ان شاء الله ادخال بيانات.accdb

DoCmd.OpenReport "اسم التقرير", acViewPreview

اتفضل [Forms]![Bookss].[RT]![Cuont] RAR.accdb

مشاركة مع اخواني يلزمك استعلام تحديث تحدث فيه حقل الصورة الى المسار الجديد

وهذا تطبيق كلام الاخ Barna test.accdb

تسلم اخي خالد الموقع منور باهله وبيكم جزاكم الله خير

هل هذا ماتقصده Function aboyaseen() DoCmd.OpenForm "FENABLE" End Function New Microsoft Access Database.accdb

بالتوفيق اخي

اتفضل لعله طلبك If Not IsNumeric(Mobile) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True ElseIf Len(Mobile) <> 11 Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' End If 45.mdb

للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت

نفس الكود استبدل True الى false

ارف النموذج اللي فيه الخطاء للتجربه

مشاركة مع اخي ابو عبدالله Dim X1 As Date X1 = Format(Now(), "dd/mm/yyyy") Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT ChickDate.*FROM ChickDate;") ' فحص السجلات اولاً If Rs.EOF Then ' في حالة انه لا يوجد سجلات يضع تاريخ اليوم في حقل XDate Rs.AddNew Rs("XDate") = X1 Rs.Update Rs.Close DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [ChickDate] SET [XDate] = date()" DoCmd.RunSQL "UPDATE [ChickDate] SET [XDate2] = date()+5" DoCmd.SetWarnings True Else ' ' نفحص حقل XDate2 الذي به حقل بداية تشغيل البرنامج ' If Format(Rs("XDate2"), "dd/mm/yyyy") < X1 Then ' MsgBox "تم التلاعب بساعة الجهاز" If X1 < Format(Rs("XDate"), "dd/mm/yyyy") Then MsgBox "تم التلاعب بساعة الجهاز" Exit Sub End If ' Else ' نفحص حقل XDate اذا كان اكبر من تاريخ اليوم يغلق النموذج If Format(Rs("XDate"), "dd/mm/yyyy") < X1 + 5 Then MsgBox (" عزيزي المستخدم لقد تم السماح لك بإستخدام البرنامج " & Chr(13) & " لمدة خمسة ايام تبدأ من " & Format(DLookup("[XDate]", "ChickDate", "[id]"), "yyyy/mm/dd") & " وتنتهي بتاريخ " & Format(DLookup("[XDate2]", "ChickDate", "[id]"), "yyyy/mm/dd" & Chr(13) & " وللعلم سيتم اقاف البرنامج بعد ذلك التاريخ ")), vbYes, " ابو ياسين المشولي : فترة السماح " End If End If إيقاف بالمدة.mdb

لازم اسم الفورم عشان انه بوحده نمطيه ولزيم يعرف في اي فورم هو

هل هذا ماتقصده Option Compare Database Public Function aboyaseen() If Forms!FORM1.ID = 1 Then Forms!FORM1!TEXT1.Enabled = True Forms!FORM1!TEXT2.Enabled = True Forms!FORM1!TEXT3.Enabled = False Forms!FORM1!Text4.Enabled = False Else Forms!FORM1!TEXT1.Enabled = False Forms!FORM1!TEXT2.Enabled = False Forms!FORM1!TEXT3.Enabled = True Forms!FORM1!Text4.Enabled = True End If End Function Public Function aboyaseen2() If Forms!FORM2.ID = 1 Then Forms!FORM2!TEXT1.Enabled = True Forms!FORM2!TEXT2.Enabled = True Forms!FORM2!TEXT3.Enabled = False Forms!FORM2!Text4.Enabled = False Else Forms!FORM2!TEXT1.Enabled = False Forms!FORM2!TEXT2.Enabled = False Forms!FORM2!TEXT3.Enabled = True Forms!FORM2!Text4.Enabled = True End If End Function Public Function aboyaseen3() If Forms!FORM3.ID = 1 Then Forms!FORM3!TEXT1.Enabled = True Forms!FORM3!TEXT2.Enabled = True Forms!FORM3!TEXT3.Enabled = False Forms!FORM3!Text4.Enabled = False Else Forms!FORM3!TEXT1.Enabled = False Forms!FORM3!TEXT2.Enabled = False Forms!FORM3!TEXT3.Enabled = True Forms!FORM3!Text4.Enabled = True End If End Function test (1).mdb

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

الف الف مبروك

جرب هذا =IIf([جدول3 نموذج فرعي]![se]=true;[جدول3 نموذج فرعي]![نص9];0)