ناقل

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

جرب هذا ..... 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 & ""

جرب هذا الكود ...... DoCmd.OpenReport "ReportName", acPreview DoCmd.RunCommand acCmdZoom100 240

ازل علامة افضل اجابة لانها تدل على انك حصلت على الاجابة فبتالي الزملاء والخبراء لن يزوروا موضوعك

ممكن توضيح اكثر أو مرفق لمثال مبسط لما تريد ؟؟؟؟

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