zhamid

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

السلام غليكم وكل عام والجميع بخبر لقد اخذت قرض اسلامي من شخص وتم الاتفاق على ان تكون الدفعات مختلفه حسب ما يتوفر لدي واريد ان اتابعه لمعرفه اذا ادخلت الدفعه الشهريه يتم جدوله السلفه بالاشهر متى ينتهي في اي شهر ارفق ملف لذلك Loan.rar

سلامات Gamal.Saad جميع الاعضاء اكن لهم الاحترام والتقدير بالنسبه للموضوع فهو باختصار ان يتم نقل ادخالات الفورم المدخله من الجدول الرئيسي الى جدول اخر وليكون اسمه K4_History ارجو ان اكون قد اوضحت DB1.rar

ورمضان كريم انقذوني

سلامات ورمضان كريم وين الشباب ........

سلامات للجميع بس حبيت اذكر لحل مشكلتي

شكرا لاهتمامك اريد ان يكون تجميعي يكون فيه جميع الاشهر اعذرني لا اعرف اشي عن الارشفه

السلام عليكم والله انا لسا بنتظر لانني متعطل ومالي الا انتو ولاني اعرف ان الاعضاء يقدروا ان يفيدوني كما افادوني سابقا تحياتي للجمبع

السلام عليكم ارجو في المساعده في,.... عند الانتهاء من ادخال حركات ليكن شهر 06-2017 يتم الحفظ في جدول وليكن اسمه K4_History وهكذا كل شهر ويكون الجدول K4_History فيه جميع الاشهر المدخله ليتم الرجوع اليها حين نريد ان نستفسر عن جميع الحركات لموظف معين ارجو ان اكون اوصلت الفكره شاكرا لكم حسن تعاونكم DB1.rar

وجزاك الله خيرا Good Night

مشكور اولا لسرعه الرد وثانيا لجهودك يا ريت اخي طريقه الحل للمعرفه وارجو الشرح بالانجليزي ( لانو الاكسس عندي بالانجليزي ) اخي تم معرفه الحل شكرا شكرا لك وجزاك الله خيرا

السلام عليكم اخواني بالنسبه للطلب الاول وهو ترتيب حقلين في التقرير تم حلها كالتالي 1- فتحت التقرير design 2- sorting and grouping 3- تم وضع الحقلين لعمل sort وتم المطلوب اما بالنسبه للطلب الثاني وهو يتم اعاده الترقيم اذا تغبر K4_Type

السلام عليكم الترتيب معروف لدي ولكن اذا كنت اريد عمل sort لحقلين ؟ لذا ارجو المساعده في عمل sort لحقلين الاول : K4_Type - والثاني : No وايصا اذا ما فيها ازعاج كمان ان يتم اعاده الترقيم اذا تغبر K4_Type مرفق ملفيين الاول الاكسس والثاني اكسل ليطهر هكذا من الاكسس Report.rar

السلام عليكم شاكر لكم جهودكم ومبارك عليكم الشهر

لقد تن التعديل ولكن لم يعمل والتعديل كالتالي اذا كان تعديلي صحيح ()Private Sub Command1_Click Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String Establish an EXCEL application object ' On Error Resume Next ("Set objExcel = GetObject(, "Excel.Application If Err.Number <> 0 Then (" Set objExcel = CreateObject("Excel.Application" blnEXCEL = True End If Err.Clear On Error GoTo 0 Change this next line to True if the first row in EXCEL worksheet ' ' has field names ' blnHasFieldNames = True Replace C:\Filename.xls with the actual path and filename ' strPathFile = "D:\test.xls" Replace tablename with the real name of the table into which ' the data are to be imported ' strTable = "test" ;Replace passwordtext with the real password ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) ' strPassword = " vbNullString" blnReadOnly = True ' open EXCEL file in read-only mode Open the EXCEL file and read the worksheet names into a collection ' Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly (strPassword For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount Close the EXCEL file without saving the file, and clean up the EXCEL objects ' objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing Import the data from each worksheet into the table ' For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & colWorksheets(lngCount) & "'") = 1 Then CurrentDb.TableDefs.Delete colWorksheets(lngCount) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount Delete the collection ' Set colWorksheets = Nothing Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile ' End Sub

السلام عليكم وكل عام وانتم بالف خبر بمناسبه قدوم رمضان الكود المرفق هو استيراد فايل اكسل الى الاكسس بكبسه من الفورم وشغال مثل الحلاوه اذا كان الجول غير موجود اما اذا كان الجدول موجود واريد استيراده مره اخرى فانه يضيفه على الجدول ويكون الجدول مكرر لذا اريد ان عمل الغاء للجدول الموجود بالاكسس قبل كبسه الاستيراد مرفق لكم الكود والداتا بيس ......... الرجاء التعديل على المرفق اذا ما فيها ازعاج Private Sub Command1_Click() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = True ' Replace C:\Filename.xls with the actual path and filename strPathFile = "D:\test.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "test" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = " vbNullString" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , _ strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile End Sub Import.rar

شكرا شكرا والله ما قصرتو الله يحفظكم جمبعا

الله يرضى عليكم يا ريت طريقه عمل ذلك للمعرفه وباريت المصطلحات تكون بالانجليزي

السلام عليكم الفورم الرئيسي يظهر بملأ الشاشه ممتاز ولكن عند فتح In Transation Form يكون كذلك بملأ الشاشه Max Size ارجو المساعده بالنموذج الفرعي ليكون في الحجم الأصلي صغير وليس بملأ الشاشه db1.rar

شكرا لردكم ولكن ياريت الايضاح بنفس المثال

السلام عليكم ..... وجمعه مباركه للجميع عند تضدير التقرير الى الاكسل لا يظهر ( Header & Footer ) في الاكسل فكيف يمكن اظهر ( Header & Footer ) في الاكسل عند التصدير من الاكسس الى الاكسل مرفق مثال على ذلك شاكرا لكم حسن تعاونكم db1.rar

عزيزي الجداول متشابه ولكن المعلومات مختلفه من شهر لاخر وبالنسبه لهدف البرنامج هو اظهار قيمه الاقتطاع لكل شهر بحسب السنه وذلك حسب ال form باسم k2-all-deduction عسى ان اكون اوصلت الفكره

اخي العزيز كيف جدول واحد كيف يتم اذرني ممكن بمثال

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