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

في الاستعلام غير تاريخ الانتاج = PDate الى تاريخ اليوم Date() انظر الاستعلام Query2 Database4.rar تحياتي

تفضل اخي الكريم Dim tbl As TableDef DoCmd.SetWarnings False For Each tbl In CurrentDb.TableDefs If Left(tbl.Name, 4) = "MSys" Then Else DoCmd.DeleteObject acTable, tbl.Name DoCmd.SetWarnings True End If Next tbl تحياتي

تفضل اخي الكريم Dim tblName As String tblName = "tbl1" DoCmd.DeleteObject acTable, tblName تحياتي

تفضل اخي الكريم ____2020 - نسخة - نسخة.rar تحياتي

تفضل اخي الكريم عدد الايام المتبقية: DateDiff("d";Date();[EDate]) Database4.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته يوجد موديول يقوم بهذه العملية سواء في الاستعلامات او في النماذج Option Compare Database Option Explicit Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function اليوم - الشهر - السنة D : CalcAgeD([PDate];[EDate]) M : CalcAgeM([PDate];[EDate]) Y : CalcAgeY([PDate];[EDate]) Database4.rar تحياتي

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

وعليكم السلام ورحمنة الله وبركاته يوجد حقل في التقرير Text95 غير موجود وهو مطلوب لتنفيذ حقل الاجمالي =Nz(Sum([total]);"0")+Nz([Text95])-Nz([Text92]) تحياتي

تفضل اخي الصلاحيات المستخدمين (1) (2).rar تحياتي

وعليكم السلام ورحمة الله وبركاته ضع في زر الامر Me.Visible = False ولاظهار النموذج مرة اخرى ضع الكود التالي Me.Visible =True تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله جزيل الشكر يمكن استخدام الكود التالي كمصدر لحقل الرصيد =Nz(DLast("nz(باقى)";"ti";"[Id]<" & [Id]);0) تحياتي

احب الصالحين ولست منهم ... غفر الله لنا ولك اخي الكريم والحمد لله الاخوة ما قصروا بالحلول نحياتي

الاول في النموذج نضعه قي القيمة الافتراضية للحقل الثاني في زر امر تحياتي

وعليكم السلام تفضل اخي الصلاحيات المستخدمين (1).rar تحياتي

وعليكم السلام ورحمة الله وبركاته الاعتماد على الترقيم التلقائي في العمل كرقم الفاتورة مثلا ق\د يسبب مشاكل كما ذكرت وتحتاج الى اعادة ترقيم ولكن يمكن جعله Number رقم وتنسيق الحقل = Long Integer وفي النموذج نضع قي القيمة الافتراضية =Nz(DMax("[Id";"tbl1");0)+1 اما في حالة اردت اعادة الترقيم للحقل رقم تلقائي فلا سبيل الى ذلك الى حذف الحقل وبناءه من جديد والكود التالي يقوم بهذه الوظيفة DoCmd.SetWarnings False DoCmd.RunSQL "DROP INDEX PrimaryKey ON tbl1;" DoCmd.RunSQL "ALTER TABLE tbl1 DROP COLUMN Id;" DoCmd.RunSQL "ALTER TABLE tbl1 ADD column Id AUTOINCREMENT, CONSTRAINT [PrimaryKey] PRIMARY KEY ([Id]);" DoCmd.SetWarnings True تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم if combo1.Column(0)=1 then text1.Visible = False text2.Visible = False text3.Visible = False else text1.Visible = True text2.Visible = True text3.Visible = True endif تحياتي

وعليكم السلام ورحمة الله وبركاته في قناع الادخال ضع التالي >LLLLL او في كود بعد التحديث text1 = UCase(text1) تحياتي

بارك الله فيك استاذنا الكريم وجزاك الله خيرا

بارك الله فيك استاذنا الكريم وجزاك الله خيرا

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

بالتأكيد اخي الكريم تحياتي

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