amir_adam83

الله يعطيك الف عافية على الاستجابة سوف اسوي عملية الاستعلام وافادتكم

برجاء المساعدة

الاخ الكريم Kanory والاخوه اعضاء المنتدى الجميل كل عام وانتم بخير الحل رائع ولكن يوجد به مشكله بسيطه وهي عند اضافة سجل جديد وادخال البيانات يجمع لي ماسبق +الحالي نريد ان يجمع كل رقم حركة على حدى مرفق الملف للتعديل علية FGHF.rar

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

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

https://api.data.gov/ هنا سوف تجد كل ماتحتاجه عن API

تفضل اخي الكريم هذ برنامج لاحد الاساتذة الكرام يمكنك المعرفة والبحث عن ماتريد منه Balance.mdb

هل هذا ماتريده test comment.accdb

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

D43.accdb

تم الانتهاء من العلاقات ومراجعة الجداول تفضل Stone_Pit_Database.accdb

تم بناء الجداول لقاعدة البيانات يمكن الاطلاع عليها وافادتنا للتكمله Stone_Pit_Database.accdb

جاري تجهيز الجداول

هل هذا ماتريده Database132.rar

تفضل كل ماتريده داخل هذا البرنامج وهو لا حد الاساتذه الكرام GL.rar

راجع هذا الموضوع ربما تجد ماتبحث عنه

ارفق مثالا لما تريده حتى يستطيع احد الرد عليك ومساعدتك

تفضل اخي كل ماتريده عن الترقيم التلقائي بمعاونة ..... الاستاذ.............kanory

ارفق مثال

وانا انضم اليكم بتقديم الشكر وخالص الدعاء للأستاذ الكريم د.كاف يار زاده الله علما يارب

السلام عليكم ورحمة الله اساتذتي الكرام لدي جدول به اسماء المنتجات وبه مده المنتج المتفق عليه بمعنى (لدي صنف اسمه معجون طماطم مده صلاحيتة من تاريخ الانتاج لتاريخ الانتهاء وليكن عامين) المده المتفق عليها لاضافته داخل المستودع هي 6اشهر اي 180يوم عند طلب الصنف للاضافه يتم استدعاء المده المحدد مع كود الصنف واسم الصنف وهي ثابتة .....وعند ادخال تاريخ الانتاج وتاريخ الانتهاء ياتي بمده الصلاحية باليوم ومن ثم من تاريخ الانتهاء الى تاريخ اليوم ياتي بالمده المتبقيه من الصلاحيه للمنتج باليوم وهن يتم المقارنة بين المده المتبقية والمده المحدد اذاكانت المده المتبقية اكبر من المده المحدد يتم ترحيله الى جدو المخازن من خلال تنشيط زر اضافة منتج للمخازن المشكله ان عندي اذا ظهرت المده بالسالب تتم عملية الاضافه والمرفق متواجد به كافة الاكواد ولا اعلم لماذ لا يرحل معي بعد عملية التاكد وهاهي الاكواد التي تم عملها Option Compare Database Private Sub CmdAdd_Click() On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO odb_TbleProdWher (odb_ItemCode, odb_ItemNam, odb_DateProdc, odb_DateProdc,odb_DourLI,odb_DouPrd,odb_DourLIPro )" & _ "SELECT odb_TbleProd.odb_ItemCodex, odb_TbleProd.odb_ItemNamx, odb_TbleProd.odb_DateProdcx, odb_TbleProd.odb_DateProdcx, odb_TbleProd.odb_DourLIx, odb_TbleProd.odb_DouPrdx, odb_TbleProd.odb_DourLIProx" & _ " FROM odb_TbleProd;" DoCmd.SetWarnings True MsgBox "تم الحفظ" Me.odb_ItemCode = "" Me.odb_ItemNam = "" Me.odb_DateProdc = "" Me.odb_DateProdc = "" Me.odb_DourLI = "" Me.odb_DouPrd = "" Me.odb_DourLIPro = "" End Sub Private Sub Form_Load() On Error Resume Next Me.CmdAdd.Visible = False Me.odb_ImageY.Visible = False Me.odb_ImageN.Visible = False End Sub Private Sub odb_DouPrd_Enter() On Error Resume Next Me.odb_DouPrd = DateDiff("d", [odb_DateProdc], [odb_DaetExpir]) End Sub Private Sub odb_DourLIPro_Enter() On Error Resume Next Me.odb_DourLIPro = DateDiff("d", [odb_DateDayEx], [odb_DaetExpir]) End Sub Private Sub odb_DourLIPro_Exit(Cancel As Integer) On Error Resume Next If odb_DourLIPro > odb_DourLI Then Me.CmdAdd.Visible = True Me.odb_ImageN.Visible = True Me.odb_ImageY.Visible = False Else MsgBox "عفوا صلاحية المنتج غير مطابقة لمعيار المده المحدد", vbCritical + vbOKOnly, "عمليات الصرف والاضافه" Me.odb_ItemCode.SetFocus Cancel = -1 Me.CmdAdd.Visible = False Me.odb_ImageN.Visible = False Me.odb_ImageY.Visible = False End If End Sub Private Sub odb_ItemCode_DblClick(Cancel As Integer) On Error Resume Next DoCmd.OpenForm "Frm_Prodaction" End Sub Private Sub CmdClose_Click() On Error GoTo CmdClose_Click_Err DoCmd.Close , "" CmdClose_Click_Exit: Exit Sub CmdClose_Click_Err: MsgBox Error$ Resume CmdClose_Click_Exit End Sub Private Sub CmdAddRecord_Click() On Error GoTo CmdAddRecord_Click_Err On Error Resume Next DoCmd.GoToRecord , "", acNewRec If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If CmdAddRecord_Click_Exit: Exit Sub CmdAddRecord_Click_Err: MsgBox Error$ Resume CmdAddRecord_Click_Exit End Sub Private Sub Command31_Click() On Error GoTo Command31_Click_Err DoCmd.GoToRecord , "", acFirst Command31_Click_Exit: Exit Sub Command31_Click_Err: MsgBox Error$ Resume Command31_Click_Exit End Sub Private Sub Command33_Click() On Error GoTo Command33_Click_Err DoCmd.GoToRecord , "", acLast Command33_Click_Exit: Exit Sub Command33_Click_Err: MsgBox Error$ Resume Command33_Click_Exit End Sub Private Sub Command34_Click() On Error GoTo Command34_Click_Err On Error Resume Next DoCmd.GoToRecord , "", acNext If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command34_Click_Exit: Exit Sub Command34_Click_Err: MsgBox Error$ Resume Command34_Click_Exit End Sub Private Sub Command35_Click() On Error GoTo Command35_Click_Err On Error Resume Next DoCmd.GoToRecord , "", acPrevious If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command35_Click_Exit: Exit Sub Command35_Click_Err: MsgBox Error$ Resume Command35_Click_Exit End Sub برجاء المساعده واين يكمن الخطاء شكرا لكم odbExe.rar

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