ناقل

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

ممكن تستفيد من هذا الملف 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

طيب انشأ نموذج وضع فيه زر وضع تحث حدث عند النقر للزر هذا الكود ..... Dim fpath As String fpath = Application.CurrentProject.Path & "\New Microsoft Excel Worksheet.xlsx" DoCmd.TransferSpreadsheet acImport, 8, "Table1", fpath, True

طيب ممكن ترفق لي ملف الدكتورة زهرة الاساسي للتصدير الى اخذت منه الكود ....

تقصد السنة فقط مثلا شخص عمره ٢٠ يظهر تاريج ميلاده مثلا 2000 صحيح

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

ولكن في فرق في اسماء العناويين بين ملف الاكسس وملف الاكسل هناك فرق بين كود_الصنف و كود الصنف ارجو الرد ؟؟؟

وجزاك الله خير .... بالتوفيق

اضف هذه الاسطر في نهاية الكود السابق Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True)

دائما اخي الكريم ارفق مع سؤالك مثال مبسط لما تريد حتى يسهل وضع الحل المناسب ... بارك الله فيك

DoCmd.OpenReport "القيد", acPreview DoCmd.RunCommand acCmdZoom100 او استخدم هذا الكود ..... DoCmd.OpenReport "القيد", acPreview Reports(القيد).ZoomControl = 100

جرب ... Me.txtSender.Value

عدل بهذه الطريقة ربما تفيد ... sampleurl = "https://www.hisms.ws/api.php?send_sms&username=" & UserName & "&password=" & Password & "&numbers=" & numbers & "&sender=" & sender & "&msg=" & msg & ""