اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو جودي

أوفيسنا
  • Posts

    7034
  • تاريخ الانضمام

  • Days Won

    203

كل منشورات العضو ابو جودي

  1. اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا اعتذر لانقطاعي
  2. نموذج منبثق - Pop-up Popup.mdb
  3. وهذا بدون تدخل من المستخدم المحل نسخة تجريبية-2.accdb
  4. ده بيحصل بسبب البرامج المضادة للفيروسات احيانا الحل اعمل باسورد على محرر الاكواد
  5. اتفضل اولا جرب من خلال زر الامر اضافة لجدول جرد الفواتير وبعد كده نشوف موضوع المحل نسخة تجريبية.accdb
  6. وعليكم السلام ورحمة الله وبركاته استاذ @محمد التميمي جزاكم الله خيرا اعتذر عن غيابى لمدة طويلة العفو استاذ @محمود ادريس لا شكر على واجب اهلا بيك
  7. حضرتك سألت أكثر من سؤال انا توهت منك على فكرة بالطريقة دى مش هتلاقى اى اهتمام وتكون حضرتك السبب وللعلم من قواعد المشاركات لكل موضوع سؤال واحد فقط افتح اكتر من موضوع لكل سؤال وطلب محتاج انك تحققه ومحدش يبخل طالما فى المستطاع ان شاء الله وحاول بقدر الامكان توضيح من اين يبدأ العمل والبيانات كيف تريد معالجتها والنتيجة المفروضه
  8. حضرتك تريد اخفاء كل الصفوف ان كانت القيمة فى الحقل Total =0 او كانت فارغة لو انا قدرت افهم صح اتفضل DatabaseX.accdb
  9. بخصوص المشكلة التى حدثت معكم مع الكود iif([BillTayp]="مرجوعات";([ItemBuy]*-1);[ItemBuy]) ان هناك اكثر من جدول يحتوى على حقل ينفس الاسم BillTayp
  10. جزاكم الله خيرا على دعواتكم الطيبة واسال الله لكم وكل المسلمين من فضله ان يرزقكم الجنة ان شاء الله لا يمكن عمل هذا في النموذج المستمر
  11. طيب غير جملة الاستعلام كلها بالجملة دى SELECT [header- bill].SupplierID, Supplier.SupplierName, [header- bill].BillID, [header- bill].BillSupplier, [header- bill].BillDate, [header- bill].BillTayp, [header- bill].BillMoney, Details_Bill.Quantity, Details_Bill.ItemBuy, [ItemBuy]*[Quantity] AS Expr1, Items.ItemName, [header- bill].BillTayp AS BillTayp2, IIf([BillTayp2]="مرجوعات",([ItemBuy]*-1),[ItemBuy]) AS ItemBuy2 FROM Supplier INNER JOIN (Items INNER JOIN (([header- bill] INNER JOIN Details_Bill ON [header- bill].BillID = Details_Bill.Bill_ID) INNER JOIN Price ON [header- bill].BillID = Price.BillID) ON Items.ItemID = Details_Bill.ItemID) ON Supplier.Supplier_ID = [header- bill].SupplierID WHERE ((([header- bill].SupplierID) Like "*" & [Forms]![التقارير]![ser_name1] & "*") AND (([header- bill].BillDate) Between [Forms]![التقارير]![ser_date1] And [Forms]![التقارير]![ser_date2])); منتظر ردك
  12. هناك بعض الاكواد تختلف بتحويلها فى الاكسل عن الاكسس وقد تحتاج الى تدخل لتعديلها والله اعلم ولكن بوجه عام اعتقد لابد من بدء التصميمات خطوة بخطوة على الاكسس هذا من وجهة نظري والله اعلم فلست متعمقا بالاكسل وقد اكون مخطئ فالاولى متابعة الرد من اساتذتى الكرام
  13. المطلب الاول اعتقد والله اعلم لا يمكن المطلب التانى وركز معايا لان النت فصل وبكلمك من الفون اعتبر A حقل نوع الفاتورة B حقل السعر الكود راح يكون كالاتى iif([A]="مرجوعات";([B]*-1);[B])
  14. السلام عليكم ورحمة الله تعالى وبركاته اجمل واطيب التهانى والامانى استاذى الجليل واخى الحبيب تستحق كل الخيـر رغم انه قليل عليكم وكل كلمات الدنيا لن تكفيكم وتوفيكم قدركم
  15. استاذى الجليل واخى الحبيب يعلم الله انى افتقدت كل أساتذتي الافاضل و أحبابي واعتذر عن غيابى وانقاطاعى
  16. ان شاء الله تعالى ممكن ذلك ارفق القاعدة
  17. هناك أخطاء كما نوهت من قبل فى المصاحف الرقمية المنتشرة على صفحات ومواقع الإنترنت انظر الى اول اية من سورة التكاثر فى كل من المواقع التى تفضلتم بها وفى المصحف الشريف وهذا فقط على سبيل المثال وليس الحصر
  18. انتظروا النسخة بعد التعديل والاضافات 😉 تم بفضل الله تعالى التاكد من صحة الايات والتى لم تكن مضبوطة فى المصاحف الرقمية المنتشرة لان المصدر ان شاء الله فى النسخة القادمة هو من مجمع الملك فهد لطباعة المصحف الشريف
  19. استاذى الجليل هو حضرتك تشرب سطل الشاى وانا اللى احاول واجاوب
  20. انا اسف جدا لم انتبه بسبب انى اعمل على النظام ٣٢ بيت ولكن هذا التعديل للكود انا استخدمته داخل القاعدة ولكن الله اعلم به هل يعمل ام لا على العموم استاذى العزيز جرب التعديل ومن فضلك لو تمام فقط اهبرد
  21. المصحف الرقمى - مجمع الملك فهد 2.zip
  22. تم بحمد الله تعالى وفضله التوصل للنتيجة المطلوبة موديول لتجميع كل السجلات فى حقل واحد Public Function ToMrg() As String Dim strTemp, i Dim strSQL As String strSQL = "select Aya from tblAyatSource;" strTemp = CurrentProject.Connection.Execute(strSQL).GetRows For i = 0 To UBound(strTemp, 2) ToMrg = ToMrg & strTemp(0, i) & Space(1) Next ToMrg = Mid(ToMrg, 1, Len(ToMrg) - 1) End Function والان موديول فصل الايات من حقل واحد الى جدول اخر لتكون كل اية فى سجل Public Sub ToSplitForTabel() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsADD As DAO.Recordset Dim strSQL As String Dim strField1 As String Dim strField2 As String Dim varData As Variant Dim i As Integer Set db = CurrentDb strSQL = "SELECT ayat FROM TableA " Set rsADD = db.OpenRecordset("TableB", dbOpenDynaset, dbAppendOnly) Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) With rs While Not .EOF strField1 = !ayat varData = Split(strField1, ChrW(1757)) For i = 1 - 1 To UBound(varData) With rsADD .AddNew !ayat = varData(i) & ChrW(1757) .Update End With Next .MoveNext Wend .Close rsADD.Close End With Set rsADD = Nothing Set rs = Nothing db.Close Set db = Nothing End Sub
  23. طيب بفضل من الله توصلت الى نتيجة تقربنا جدا من المطلوب دمجت كل السجلات الى سجل واحد الان المطلوب فصل بيانات السجل الى عدة سجلات لتكون كل اية فى سجل خاص بها المصحف الرقمى - مجمع الملك فهد.zip
  24. اسال الله لى ولكم وكل عباد الله تعالي المسلمين وكل خلق الله تعالى العفو والعافية استاذى الجليل تدور براسي فكرة ولكن هل يمكن بطريقة ما تجميع السجلات على التوالي عن طريق لوب ويتوقف التجميع عند العلامة ۝
×
×
  • اضف...

Important Information