abouelhassan

بارك الله فيك استاذى الحبيب د.كاف يار ربنا يكرمك يارب احترامى

بارك الله فيك استاذ Barna اعزك الله هذا هو المرفق الذى اعمل عليه عند فتح الشاشة الرئيسية اختار التاريخ من والى ونوع العدد واختار طباعة التقرير هذا هو التقرير المراد تصديره بنفس شكله يظهر هذا الشريط وهو للاستاذ صالح حمادى ربنا يبارك له عند الضغط على علامة التصدير للاكسيل يتم التصدير بس اسماء الاعمدة بالانجليزية اريد التصدير يتم مثل التصدير للPDF بنفس شكل التقرير جربت الكود الخاص بحضرتك بس فشلت ممكن المساعدة اليوزر حسان والباس ورد 123 بارك الله فيك استاذ Barna طباعة التقرير.mdb

السلام عليكم استاذ Barna بارك الله فيك اخى الكريم حاولت تطبيق الكود لتصدير تقرير الى اكسيل مع استخدام اسماء الاعمدة باللغة العربية وليس الانجليزية كما تفضلت حضرتك ووضعته كنت استخدم هذا الكود وهو اما للاستاذ صالح حماد او محمد صالح على العموم لهما كل الشكر والتقدير المشكلة انه يصدر التقرير للاكسيل بالاسماء الانجليزية وانا اريده كما هو بالعربى Private Sub ÃãÑ19_Click() On Error Resume Next DoCmd.SelectObject acReport, namerpts DoCmd.OutputTo acOutputReport, namerpts, "MicrosoftExcelBiff8(*.xls)", "", True, ".xls", , acExportQualityPrint End Sub فاستخدمت الكود الذى قمت حضرتك بوضعه بالاعلى مع تغير اسم التقرير Private Sub ÃãÑ19_Click() On Error Resume Next Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, , "rpt_Items_Dates_3", Output_Path End Sub فلم يعمل معى احتاج تعديله مع تغير المسار الى فتح نموذج تحديد مكان حفظ التقرير وليس على الديسك توب لو امكن اكون شاكر فضلك اخى بارك الله فيك

روائع تحفظ من المبدع استاذىد.كاف يار تسلم ايدك والله احترام من القلب

بارك الله فيك استاذ محمد شكر وتقدير وكل الاحترام من اخيك

من قلبى والله وربنا يتقبل ان شاء الله استاذى kanory

تسلم ايدك وعينك يارب استاذ kanory رائع جزيت الجنة اخى الحبيب اللهم امين بارك الله فيك ولك احترامى وتقديرى

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

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

السلام عليكم اخوانى الافاضل الكرام احتاج المساعدة فى فورم الترحيل عند اختيار تاريخ من وتاريخ الى وعند الضعط على ترحيل يتم كتابة كلمة مرحل فى جدول البيانات لكل الاسطر ما بين التاريخين الذين تم اختيارهم زادكم الله من فضله وكرمه الله امين يارب اخيكم باحترام DATA1041.mdb

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

السلام عليكم اخوانى الاساتذة الكرام لدى فورم اسمه sersh احتاج فيه لمساعدتكم حيث يمكن ان اعدل البيانات فيه عن طريق الاستدعاء برقم الفاتورة او المبلغ كما بالصورة ويمكن التعديل بالبيانات اضفت بجدول البيانات عمود اسمه IBillStatus الحالة اريد عند استدعاء البيانات اذا كانت الحالة مرحل كما بالصورة ايقاف التعديل اى لا يمكن التعديل على البيانات بارك الله فيكم اخوانى الافاضل الكرام DATA1041.mdb

زادك الله من فضله استاذ @د.كاف يار ربنا يحفظك يارب

السلام عليكم استاذى الحبيب معنى كده اننا ممكن نربط أكثر من قاعدة بيانات مع.بعض احترامى لشخصك الكريم

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

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

جربت اعمل 3 تكست الاولى لجمع المبالغ كلها الا الحساب رقم1 الثانية جمع الحساب 1 واقوم باخفائهما الثالثة الاولى-الثانية بس فشلت احترامى وتقديرى

استاذى الحبيب لقلبى استاذ حسام اشكرك من كل قلبى المشكلة ليست رقم الحساب المشكلة ان المعادلة وظيفتها ان تقوم بجمع المبالغ بجانب الحسابات حتى تقابل الشرط الحساب المستثنى وليكن 1 يتم طرح هذا الحساب من الحسابات الفائدة من هذه التكست لدى عدد مثلا فاتورة بها 1000 ح الايراد1 500 ح الايراد2 1500 ح الايراد3 هذه التكست توضح لى اذا لم اقوم بادخال حساب توضح لى مبلغه مثلا ادخلت 1000 ح الايراد و 500 ح الايراد2 اريد بالتكست يظهر المجموع 1500 واذا ادخلت 1500 ح الايراد يظهر بها 0 حيث ان الشرط هو ح الايراد3- مجموع الحسابات التى تدخل اما محاولتى اذا لم ادخل الحساب المستثنى اجد التكست فارغة بارك الله فيك استاذى الحبيب

اسف استاذى الحبيب حدث معى مشكلة بالكود هل يمكن التنفيذ بالمعادلات عن طريق معادلة تضاف الى التكست هذه محاولة منى بها مشكلة =Sum(IIf([iPage]=1;0;[iAmount]))-Sum(IIf([iPage]=1;[iAmount])) تحتاج تعديل حيث ان المعادلة لا تعمل الا اذا اختارنا الحساب رقم1 احتاج لتعديلها فى تكست المجموع بدون احتاج الى ان تظهر مجموع المبالغ بها وفى حالة وجود اسم الحساب الايراد3 يظهر بها مبلغ الايراد3- مجموع المبالغ يعنى فى هذه الصورة يظهر بها600-100+200+300+700=-700 600 الايراد3-100 الايراد1+200 الايراد8+300 الايراد5+700 الايراد1 بارك الله فيك استاذى الحبيب احترامى

رزقت خير الدارين استاذى ان شاء الله شكر وتقدير وفائق الاحترام من اخيك

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

للرفع رفع الله قدرك اخى الكريم

استاذ سامي الحداد بارك الله فيك اخى تسلم وتعيش يارب احترامى وتقديرى لك اخى

ربنا يحفظك يارب ويكرمك اللهم امين معلش استاذى الحبيب حدثت مشكلة لدى حيث ان لدى كود فى قاعدة البيانات فى نفس الحدث AfterUpdate Private Sub iPage_AfterUpdate() On Error Resume Next Dim X X = iPage Dim i, i2 As Integer DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Recordset.RecordCount - 1 If iPage = X Then i2 = i2 + 1 If i2 > 1 Then If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdUndo DoCmd.SetWarnings True Exit Sub End If End If End If DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End Sub عند اضافة الكود الخاص بحضرتك اليه حدث تعارض ممكن الاطلاع استاذى DoCmd.RunCommand acCmdSaveRecord Dim i As Long, k As Long Dim Total As Double Dim rs As DAO.Recordset Total = 0 Set rs = Me.RecordsetClone If Nz(rs.RecordCount, 0) = 0 Then Set rs = Nothing Exit Sub End If rs.MoveLast k = rs.RecordCount rs.MoveFirst For i = 1 To k If rs!iPage = 1 Then Total = Total - Nz(rs!iAmount, 0) Else Total = Total + Nz(rs!iAmount, 0) End If rs.MoveNext Next i Me.txtSum = Total Set rs = Nothing اريد جمع الكودين بنفس الحدثAfterUpdate ربنا يكرمك يارب

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