بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
7034 -
تاريخ الانضمام
-
Days Won
203
كل منشورات العضو ابو جودي
-
اهلا اهلا اهلا استاذى الجليل و اخى الحبيب جزاكم الله خيرا اعتذر لانقطاعي
- 16 replies
-
- نموذج منبثق
- popup
-
(و1 أكثر)
موسوم بكلمه :
-
- 16 replies
-
- 12
-
-
-
- نموذج منبثق
- popup
-
(و1 أكثر)
موسوم بكلمه :
-
وهذا بدون تدخل من المستخدم المحل نسخة تجريبية-2.accdb
-
ده بيحصل بسبب البرامج المضادة للفيروسات احيانا الحل اعمل باسورد على محرر الاكواد
-
اتفضل اولا جرب من خلال زر الامر اضافة لجدول جرد الفواتير وبعد كده نشوف موضوع المحل نسخة تجريبية.accdb
-
وعليكم السلام ورحمة الله وبركاته استاذ @محمد التميمي جزاكم الله خيرا اعتذر عن غيابى لمدة طويلة العفو استاذ @محمود ادريس لا شكر على واجب اهلا بيك
-
حضرتك سألت أكثر من سؤال انا توهت منك على فكرة بالطريقة دى مش هتلاقى اى اهتمام وتكون حضرتك السبب وللعلم من قواعد المشاركات لكل موضوع سؤال واحد فقط افتح اكتر من موضوع لكل سؤال وطلب محتاج انك تحققه ومحدش يبخل طالما فى المستطاع ان شاء الله وحاول بقدر الامكان توضيح من اين يبدأ العمل والبيانات كيف تريد معالجتها والنتيجة المفروضه
-
حضرتك تريد اخفاء كل الصفوف ان كانت القيمة فى الحقل Total =0 او كانت فارغة لو انا قدرت افهم صح اتفضل DatabaseX.accdb
-
ممكن مرفق حضرتك
-
الفلترة والتصفية والحسابات في البرامج المحاسبية
ابو جودي replied to MrTid's topic in قسم الأكسيس Access
بخصوص المشكلة التى حدثت معكم مع الكود iif([BillTayp]="مرجوعات";([ItemBuy]*-1);[ItemBuy]) ان هناك اكثر من جدول يحتوى على حقل ينفس الاسم BillTayp -
الفلترة والتصفية والحسابات في البرامج المحاسبية
ابو جودي replied to MrTid's topic in قسم الأكسيس Access
جزاكم الله خيرا على دعواتكم الطيبة واسال الله لكم وكل المسلمين من فضله ان يرزقكم الجنة ان شاء الله لا يمكن عمل هذا في النموذج المستمر -
الفلترة والتصفية والحسابات في البرامج المحاسبية
ابو جودي replied to MrTid's topic in قسم الأكسيس Access
طيب غير جملة الاستعلام كلها بالجملة دى 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])); منتظر ردك -
هل يمكن تحويل برنامج مصمم على الاكسيل فاجول بيزك الى اكسس
ابو جودي replied to yara ahmed's topic in قسم الأكسيس Access
هناك بعض الاكواد تختلف بتحويلها فى الاكسل عن الاكسس وقد تحتاج الى تدخل لتعديلها والله اعلم ولكن بوجه عام اعتقد لابد من بدء التصميمات خطوة بخطوة على الاكسس هذا من وجهة نظري والله اعلم فلست متعمقا بالاكسل وقد اكون مخطئ فالاولى متابعة الرد من اساتذتى الكرام -
الفلترة والتصفية والحسابات في البرامج المحاسبية
ابو جودي replied to MrTid's topic in قسم الأكسيس Access
المطلب الاول اعتقد والله اعلم لا يمكن المطلب التانى وركز معايا لان النت فصل وبكلمك من الفون اعتبر A حقل نوع الفاتورة B حقل السعر الكود راح يكون كالاتى iif([A]="مرجوعات";([B]*-1);[B]) -
نرحب بالأخ صالح البريكان (أبو آمنة) فى فريق الموقع
ابو جودي replied to محمد طاهر عرفه's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله تعالى وبركاته اجمل واطيب التهانى والامانى استاذى الجليل واخى الحبيب تستحق كل الخيـر رغم انه قليل عليكم وكل كلمات الدنيا لن تكفيكم وتوفيكم قدركم -
استاذى الجليل واخى الحبيب يعلم الله انى افتقدت كل أساتذتي الافاضل و أحبابي واعتذر عن غيابى وانقاطاعى
-
ان شاء الله تعالى ممكن ذلك ارفق القاعدة
-
هناك أخطاء كما نوهت من قبل فى المصاحف الرقمية المنتشرة على صفحات ومواقع الإنترنت انظر الى اول اية من سورة التكاثر فى كل من المواقع التى تفضلتم بها وفى المصحف الشريف وهذا فقط على سبيل المثال وليس الحصر
-
استاذى الجليل هو حضرتك تشرب سطل الشاى وانا اللى احاول واجاوب
-
المصحف الرقمى - مجمع الملك فهد 2.zip
-
تم بحمد الله تعالى وفضله التوصل للنتيجة المطلوبة موديول لتجميع كل السجلات فى حقل واحد 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
-
طيب بفضل من الله توصلت الى نتيجة تقربنا جدا من المطلوب دمجت كل السجلات الى سجل واحد الان المطلوب فصل بيانات السجل الى عدة سجلات لتكون كل اية فى سجل خاص بها المصحف الرقمى - مجمع الملك فهد.zip
-
اسال الله لى ولكم وكل عباد الله تعالي المسلمين وكل خلق الله تعالى العفو والعافية استاذى الجليل تدور براسي فكرة ولكن هل يمكن بطريقة ما تجميع السجلات على التوالي عن طريق لوب ويتوقف التجميع عند العلامة