ناقل

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

اعمل فرز وتجميع في التقرير على حسب حقل الدولة

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

وفين الملف

هل هذا ما تريد انظر التقرير .... can.accdb

تفضل ..... Database1.accdb

جرب هذا 'من فوق Me.frm_2.Top = 0.898 'من اليسار Me.frm_2.Left = 0.199 ''العرض 'Me.frm_2.Width = 3.185 ' ''الارتفاع 'Me.frm_2.Height = 0.7 Me.Refresh

ممكن كده ولا لازم نفس الصورة

اكتب في القيمة الافتراضية للكمبو "<select ALL >"

أول مرفق في موضوعك .... هل حدثت مرفقات اخرى

أخي الحبيب محمد بعد تجربة البرنامج تبين أن عند تشغيل البرنامج وفتح الاكسس وعند اختفاء شاشة الاكسس مباشرة لو ضغط على الشيفت تظهر امامي قاعدة البيانات التي بها النماذج دون عناء ولا كتابة كلمة مرور وهل لهذه المشكلة من حل .... بارك الله فيك جربها وسوف تشاهد النماذج مفتوحة امامك

ممكن تستفيد من هذا الملف Holy_Quran.rar

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

ادخل على خصائص الكمبو وعدل عدد الاعمدة من 2 الى 1 انظر الصور

اجعل تعديل القيمة الافتراضية من خلال نموذج اخر غير نموذج مصدر الجدول

جرب هذا ..... DoCmd.RunSQL "INSERT INTO Table_777_MaturityscheduleOte ( Dart,Finncy ,Stop-Salary , CodeStaff,NameStaff , CodeJ,NameJop ,CodeSec,NameSection,CodeAdm,NamAdmin,NamCopmany,DateStarWork,NameAsthkak,SalaryPrimry,BadelMove,BadelTravil,BadelOther,PricDay,NoHourse,NoDayStadar,NoDayAchoal,HorsOverTim,ValueOverTim,HorsBack,ValueHorsBack,StopDay,ValueStopDay,GoAfters,ValueQun,GoAprovit,ValueAprovit,SalaryCut,Akopat,ValueAkopat,Kadwoo,ValueKadwoo,TotalS,TotalCut,TotalFree,Descrption,AccountBank,CodeBancks,NamesBancks,AccountBankCombany,Tawgih,Depet,Elpians,PisceLink ) SELECT tblOrders.&_"" " & _ "FROM Table_776_Maturityschedule.Dart, Finncy, Table_776_Maturityschedule.Stop - salary, Table_776_Maturityschedule.CodeStaff, Table_776_Maturityschedule.NameStaff, Table_776_Maturityschedule.CodeJ, NameJop, Table_776_Maturityschedule.CodeSec, Table_776_Maturityschedule.NameSection, Table_776_Maturityschedule.CodeAdm, Table_776_Maturityschedule.NamAdmin, Table_776_Maturityschedule.NamCopmany, Table_776_Maturityschedule.DateStarWork, Table_776_Maturityschedule.NameAsthkak, Table_776_Maturityschedule.SalaryPrimry, Table_776_Maturityschedule.BadelMove, Table_776_Maturityschedule.BadelTravil, Table_776_Maturityschedule.BadelOther, Table_776_Maturityschedule.PricDay, Table_776_Maturityschedule.NoHourse, Table_776_Maturityschedule.NoDayStadar, """" " & _ "Table_776_Maturityschedule.NoDayAchoal , Table_776_Maturityschedule.HorsOverTim, Table_776_Maturityschedule.ValueOverTim, Table_776_Maturityschedule.HorsBack, Table_776_Maturityschedule.ValueHorsBack, Table_776_Maturityschedule.StopDay, Table_776_Maturityschedule.ValueStopDay, Table_776_Maturityschedule.GoAfters, Table_776_Maturityschedule.ValueQun, Table_776_Maturityschedule.GoAprovit, Table_776_Maturityschedule.ValueAprovit, Table_776_Maturityschedule.SalaryCut, Table_776_Maturityschedule.Akopat, Table_776_Maturityschedule.ValueAkopat, Table_776_Maturityschedule.Kadwoo, Table_776_Maturityschedule.ValueKadwoo, Table_776_Maturityschedule.TotalS, Table_776_Maturityschedule.TotalCut, Table_776_Maturityschedule.TotalFree, Table_776_Maturityschedule.Descrption, Table_776_Maturityschedule.AccountBank, Table_776_Maturityschedule.CodeBancks, Table_776_Maturityschedule.NamesBancks, Table_776_Maturityschedule.AccountBankCombany, " & _ "Table_776_Maturityschedule.Tawgih , Table_776_Maturityschedule.Depet, Table_776_Maturitysc ,PisceLink "" WHERE (((tblOrders.OrderNumber)=[forms]![frmorders]![OrderNumber]));"""

انظر هذا الموضوع ..

سنه واشهر وايام ام فقط اشهر وايام هل في النموذج أم تقرير ....... ؟؟؟؟؟ على كل حال جرب الوحدة النمطية هذه unction CalcAge(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 CalcAge = vYears & "سنة, " & vMonths & "شهر, " & vDays & "يوم" End Functio استدعيها من خلال مربع النص هكذا Me.txtage.Text = CalcAge(Me.txtfrom, Me.txtto)

ممكن تجعل شاشة التفعيل منبثق ومشروط من خصائص النموذج ... وعند اغلاق شاشة التفعيل بدون تفعيل يغلق البرنامج بالكامل وعند التفعيل تغلق شاشة التفعيل وتبقى شاشة البرنامج

طيب ليش ما يكون الملف في مجلد بدل المرفق

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

هل الرقم مرتبط بجداول اخرى ؟؟؟

هل بالضرورة نفس الكود ؟؟؟؟ هناك اكواد اخرى تقوم باعادة الترقيم في المنتدى ابحث عنها !!

تفضل ... تسجيل التغيرات.rar