نجوم المشاركات

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

وعليكم السلام الكود سيصبح Private Sub a_AfterUpdate() Call Compare_a_b End Sub Private Sub b_AfterUpdate() Call Compare_a_b End Sub Private Sub Compare_a_b() If Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 Then If Me.a > 2000 And Me.b < 5000 Then Me.c = 2 ElseIf Me.a > 5000 And Me.b < 10000 Then Me.c = 3 Else Me.c = "" End If Else Me.c = "" End If End Sub جعفر 867.11.mdb.zip

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

وعليكم السلام ولأنك ما اعطيتنا مثال ، فعملت جميع انواع الجمع جعفر 864.جمع تراكمي.mdb.zip

وعليكم السلام بالنسبة الى التقرير ، فإعدادات الاكسس تحتوي على مسافات (فراغات من اليمين واليسار) ، . وفي تصميم التقرير ، عرض التقرير يعتمد على حجم الورقة التي قمت بإختيارها ، وفي حالتك A4 ، ولكن الطابعة تحتاج ان تسحب الورقة من جميع الجهات (الاعلى والاسفل واليمين واليسار) عن طريق بكرات (وحجم هذه البكرات تختلف بإختلاف الطابعات) ، لذلك ، عند اختيارك الطابعة ، افتح خيارات الطباعة (كما هي في الصوره في الاسفل) ، واجعل المسافة = 0 ، ثم اخرج من التقرير بعد حفظه ، ثم ادخل في هذه الخيارات مرة اخرى ، وستجد المسافات الحقيقية لطابعتك ، والتي لا يمكن ان تقلل منها ، . عليه ، تصبح المساحة المتوفرة لك لوضع حقولك لطباعتها في صفحة واحدة = عرض الورقة (مثلا A4 = 8.27 بوصة) - المسافات التي تحتاجها الطابعة (اليمين + اليسار = 0.25 + 0.25 كما في حالتي في الصورة اعلاه) = 7.77 بوصة. اذا عملت هذا ، فالمساحة المتوفرة لك لكل تقاريرك على هذه الطابعة لن تتغير (حتى على اي كمبيوتر آخر). هذا معناه ان التقرير اصبح به خراب/عطب ، والافضل لك عمل/صنع التقرير من جديد ، فلا تعرف اي من كائناته فيها العطب. جعفر

استاذ جعفر الكود هو هكذا DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _ "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;") DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" فاين اجعل لايساوي <> انا استعملت هذا DoCmd.Beep MsgBox "لـقـد تـم تـرحـيـل حـركـة : " & Format(Me.snddate, " يـوم dddd مـن قـبـل "), , " تنبيه : خـطـاء " 'Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _ "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;") DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" DoCmd.SetWarnings True فاذا كان عندك الافضل فلا تبخل علينا

وعليكم السلام اضف في المعيار: <> الاسم جعفر

Dim i As Boolean ' اعلنا عنها كقيمة منطقية i On Error Resume Next 'لتجاهل الخطأ عند عدم وجود القيمة ' البحث عن الرقم المعرف في الجدول بشرط رقم الصنف في الجدول يساوي رقم الصنف الذي كتبناه في النموذج i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'") If i = False Then 'اذا غير موجود Exit Sub ' أخرج من الحدث Else 'وإلا hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0)'الحقل= تاريخ آخر بيع hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0)'الحقل= تاريخ آخر شراء End If

استاذي ابو خليل ممكن تشرح الكود للفائده بارك الله فيك Dim i As Boolean On Error Resume Next i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'") If i = False Then Exit Sub Else hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0) hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0) End If من فين اخذت كلمه Tarkam

ابحث عن مثل هذا الزر في الاصدار عندك قد يكون غير مفعل

موجود كل شئ خلص التعديلات بس

فهمتك يا صديقي الان DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" كذا ممتاز استاذي كيف اجعل لهذا الكود شرط اذا كان نفس الاسم لايتكرر شوف الصورة

ابو ياسين انا ما اتكلم عن متغيرات الكود ، فخليك معاي لو سمحت: 1. انسخ الكود اعلاه ، 2. اعمل رد على هذه المشاركة ، 3. في قائمة التحكم بتنسيق الكلمات في نافذة المشاركة (انظر الصورة في الاسفل): 4. انقر على الاداة في الدائرة الحمراء ، 5. بتطلع لك نافذة ، 6. الصق فيها الكود ، وانقر على زر موافق ، 7. احفظ المشاركة. رجاء اعمل الخطوات مثل ما اخبرتك ، علشان تنسيق الكود يطلع صح جعفر

السلام عليكم ورحمة الله وبركاته اسمحوا لي بمداخلة وعسى ان تكون ما يطمح اليه الاخ ابو ياسين جرب المرفق: 1- عند الفتح لاول مرة لا يقبل اي داتا غير الداتا الاساسية لبرنامج الخياط 2- بعد الربط تستطيع عمل نسخة احتياطية 3- تستطيع استبدال الداتا الاساسية باي داتا اخرى محفظوطة سابقا مع حذف الجداول المرتبطة سابقا صراحة ابو ياسين فهم السؤال ثلثي الاجابة وانت تفرعت في طرحك :: تحياتي KhaiatNewww.rar

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

الم تلاحظ ,, شيئا ؟ انا عرضت عليك الحلول المتاحة ، اذا كان احدها هو ما تبحث عنه ، ولم تجبني ويفترض لو فكرتك تختلف على الاقل تبينها هذه اشكالية بحد ذاتها ندور حولها من عدة ايام

نعم استاذي انا جعلته يقلع من tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط لاني لا اريد تغير مسار القاعدة نهئيا

اخي الربط الحاصل هو فعلا تغيير الجداول بل هو تغيير قاعدة البيانات كاملا ولكن مكانها اختلف عن القاعدة القديمة وحتى لو فتحت البرنامج لن يرتبط بالقديمة اذا في برنامجك كود يعيد القديمه قم بتعطيله اما : اذا تريد تغيير القديمة بالجديدة فيلزم اكثر من عملية وستكون كالتالي : 1- فك الارتباط بالقديمة 2- جلب القاعدة الهدف ولصقها مكان القديمة (وهذا خطير ) 3- اعادة الربط او انك تعمل برنامج مساعد بحيث ينسخ ويلصق بشرط برنامجك مقفل شيء آخر ايضا : اذا تريد حذف الجداول في القديمة وجلب جداول من النسخة البعيدة فهو ممكن ايضا ولكن هذا العمل غير احترافي وخطير اختر من هذه الحلول

نفس التعبير سيلون اكبر القيمة اذا بتكرر كم مرات سيعمل تلوين لكل مرات شوف الصورة

رائع و جميل... واصل إبداعك

بعد اذن السادة الاعضاء طريقة وضع الكود ومكانة 1/ اضغط كليك يمين علي اي ورقة من اوراق الملف واختار عرض التعليمات البرمجية 2/ اضغط علي thisworkbook 3/ افتح الصندوق علي اليسار واختار workbook 4/ في الحدث open اكتب الكود Private Sub Workbook_Open() Sheets(3).Select End Sub

المرفق به ماسبق يحتوي علي 3 شيتات بكل شييت بالخلية B2 المعادلة السابقة لكتابة اسم الشيت وبه كود يجعل فتحه دائما علي الشيت3 try.rar