محب العقيدة

السلام عليكم اخواني يظهر عندي مشكله في اتجاه النماذج الفرعية والتي تكون Datasheet FORM حيث ان اصدار الاوفيس باللغة الانجليزية وقمت بتحديد اتجاه النموذج الرئيسي والنماذج الفرعية من اليمين لليسار لكن من كل خمس مرات يخرج اتجاه احد النماذج الفرعية من اليسار لليمين السؤال ما حل هذه المشكلة وجزاكم الله خيرا

اسخدمت sql server لكن قديما بعض الشيء وكانت اكبر مشكلة هي تحويل الجداول من اكسيس الى اس كيو ال وانشاء العلاقات بين الجداول لان تعريف الحقول يختلف كثيرا في بعض الاحيان من اكسيس الى اس كبوال

وعليكم السلام بعد اذن الاستاذ جعفر الحل الوارد باانشاء جداول تابعة في حال تعدد الحالة صعب جرب StudentCourses.zip وهي من احدى الملفات المرفوعة من مساهمات خبراء الاكسيس روابط قاعاعدة بيانات اكسيس

السلام عليكم قد يطرح سؤال لماذا لم تستخدم كود الموديل FIFO mySQL = "SELECT trans.idproduct AS Prd, trans.datna AS xDate, trans.idproduct AS Doct, trans.[in] AS Pr, trans.prix AS PP, nz([SumOfout],0) AS Sold, trans.idstore" & _ " FROM SalesTotal " & _ "INNER JOIN trans ON (SalesTotal.idstore = trans.idstore) AND (SalesTotal.idproduct = trans.idproduct) " & _ "WHERE trans.[in] > 0 And trans.[idstore] = '" & [Forms]![117]![combo1] & "'" & _ "ORDER BY trans.idproduct, trans.datna;" Set qdf = db.CreateQueryDef(vbNullString, mySQL) Set Rs1 = qdf.OpenRecordset(dbOpenSnapshot) لان هذا الكود يعطيني كافة المواد في المستودع المستهدف اما في شاشة الفواتير اريد اعطائي فقط المادة المدخلة فقط لكي احسب الرصيد لكل مادة مدخلة على حدى والسؤال الثاني لماذا لا تستغني عن هذا الكود فقط اشر اليه بالاستعلام كما فعلت في قاعدة اعمار الذمم Rs1.Open "ayman", cn, adOpenForwardOnly, adLockReadOnly وتنشء استعلام في شاشة الاستعلام اقول هذا الحل جيد واسهل لكن لم اجربه تماما اتمنى من بعض الاخوة تجربته الان انشاء الاستعلام استطيع ان اشرح الخطوة الثانية بصورة

بسم الله الرحمن الرجيم كما وعدت اساتذتي شارح الكود ولان جهازي بطيء بعض الشيء ولكي لا بفصل النت ويضيع ما اكتب ساكتب بعدة مشاركات ان شاء الله. اي كود يقوم على فهم الفكرة سيكون الشرح عن المخزون الفكرة تكمن اني اريد ان اعلم مقدار ما تبقى من المواد بعد ما تم صرفه والحل يكون على عدة خطوات لنتجاوز تسلسل الكود ولنفقز الى فهم الفكرة الخطوة الاولى:انشاء استعلام يدرج فيه كافة حركات ادخالات المواد مع عمود يقابلها بمجموع المخرجات للمادة مع الاخذ بعين الاعتبار المستودع الموجودة فيه mySQL = "SELECT trans.idproduct AS Prd, trans.datna AS xDate, trans.voucherno AS Doct,trans.description AS Doct1, trans.[in] AS Pr, trans.prix AS PP, nz([SumOfout],0) AS Sold, trans.idstore" & _ " FROM SalesTotal " & _ "INNER JOIN trans ON (SalesTotal.idstore = trans.idstore) AND (SalesTotal.idproduct = trans.idproduct) " & _ "WHERE trans.[in] > 0 And trans.[idstore] = '" & Forms!fautt1!autot7.Form!idstore & "'" & _ " and trans.idproduct='" & Forms!fautt1!autot7.Form!idproduct & "'" & _ "ORDER BY trans.idproduct, trans.datna;" Set qdf = db.CreateQueryDef(vbNullString, mySQL) Set Rs1 = qdf.OpenRecordset(dbOpenSnapshot) وهذا الاستعلام نستطيع ان نسميه جدلا استعلام افتراضي بدون امتداد لاسمه والهدف من ذلك حتى لا تتضر الى حذفه كلما اردت تنفيذ هذا الاستعلام لانه سينتج لك رسالة ان الاستعلام موجود مسبقا واذا اردت ان ترى الاستعلام باسم ايمن مثلا اكتب الكودالتالي qryName = "ayman" 'consumed is calculated in this query mySQL = "SELECT trans.idproduct AS Prd, trans.datna AS xDate, trans.voucherno AS Doct,trans.description AS Doct1, trans.[in] AS Pr, trans.prix AS PP, nz([SumOfout],0) AS Sold, trans.idstore" & _ " FROM SalesTotal " & _ "INNER JOIN trans ON (SalesTotal.idstore = trans.idstore) AND (SalesTotal.idproduct = trans.idproduct) " & _ "WHERE trans.[in] > 0 And trans.[idstore] = '" & Forms!fautt1!autot7.Form!idstore & "'" & _ " and trans.idproduct='" & Forms!fautt1!autot7.Form!idproduct & "'" & _ "ORDER BY trans.idproduct, trans.datna;" Set qdf = db.CreateQueryDef(qryName) qdf.SQL = mySQL qdf.Execute 'لاظهار الاستعلام المنشأ -ايمن-اعادة الانعاش Application.RefreshDatabaseWindow طبعا ترى هذا الكود في قاعدة البيانات المرفقة في شاشة الفواتير في النموذج الفرعي autot7 في حدث بعد التحديث fifo اخواني ساكمل بعد التاكد من اني وفقت في شرح الفكرة الاولى

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

السلام عليكم احببت ان اخدمك واستخدمت طريقة التكلفة في اعمار الذمم وكانت النتيجة 24000سجل في اقل من ثواني معدودة طلعت النتيجة https://drive.google.com/file/d/1HWuQXyYFpT2KXRGS2dYlYhFRIbFUm53Z/view?usp=sharing السلام عليكم احببت ان اخدمك واستخدمت طريقة التكلفة في اعمار الذمم وكانت النتيجة 24000سجل في اقل من ثواني معدودة طلعت النتيجة https://drive.google.com/file/d/1HWuQXyYFpT2KXRGS2dYlYhFRIbFUm53Z/view?usp=sharing

السلام عليكم ورحمة الله شرعت بالبدء بمشروع محاسبة تكاليف حببت ان ارى الملاحظات غلى المشروع والاخطاء من الاخوة والفكرة تتمثل بشراء المواد الخام ثم التصنيع وبيعها كمواد جاهزة cost17.zip

حياك الله اخي أحمد الفلاحجى ان تيسرت الامور ساشرح الكود بالكامل

السلام عليكم ورحمة الله كما وعدت سابقا ان اقوم بنشر قاعدة بيانات تفويم البضاعة وفواتير المبيعات يطريقة الوارد اولا صادر اولا fifo مفتوحة المصدر fifo method.rar

السلام عليكم كان هناك ملاحظات ان الكود لا يعمل الا على مستودع واحد ومع الفحص تبين ان الخطا من . عندي وقمت بارفاق التعديل سامحوني فالخطا ملازم للانسان fifofinal17.zip

ان شاء الله سارفعها مفتوحة المصدر ' لكن ليس الان عموما ارفق النسخة المقفلة بصورتها النهائية بعد معالجة الاخطاء الواردة fifomod17.zip fifomod17.zip

السلام عليكم ورجمة االله بفضل الله وبحمده اوجدت طريقة ل تفويم البضاعة وفواتير المبيعات يطريقة الوارد اولا صادر اولا fifo ارفق اخواني لكم المثال متنمنيا ابداء النصح والتنويه على الخطا ان وجد fifomod17.zip

السلام عليكم المثال الثاني المكتبات الممضافة لعرض الشجري Microsoft Windows Common Controls 6.0 ADOو Microsoft ActiveX Data Objects 6.1 Library الصيغة المبسطة بوجود ابناء فقط SHAPE {parent-command} APPEND ({child-command} [[AS] table-alias] RELATE (parent-column TO child-column) الصيغة المركبة مع وجودابناء ابناء...... SHAPE {SELECT * FROM Parent} APPEND ({SELECT * FROM Child1} RELATE parent-column TO child1-column) AS child1-alias, ({SELECT * FROM Child2} RELATE parent-column TO child2-column) AS child2-alias مثال SHAPE {SELECT CustomerID AS [Cust Id], CompanyName AS (Company) Customers} APPEND ({SELECT CustomerId, OrderDate, OrderId, Freight FROM Orders} AS custOrders RELATE (CustomerID TO CustomerID) جدولcustomers وجدولorders استخدام select الاولى تمثل الاب لمجموعة السجلات استخدام select الثانية تمثل الابن لمجموعة السجلات استخدام append تمثل اضافة الابناء الاىناء adChapter يمثل الحقل في مجموعة الاباء الناتج عن اضافة الابناء الى الاباء في المثال السابق سمي ب Custorders وفي حال لم نسمه يعطى اسما افتراضيا استخدام relate للربط بين الاباء والابناء دون الحاجة الى ذكر اسماء الجدول فقط الترتيب مزود خدمة data shaping service يكون conn.Provider = "MSDataShape" الارتباط بالسجلات في اكسيس 2003 Dim conn As ADODB.Connection strConn = "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & CurrentProject.Path & _ "\Northwind.mdb" conn.ConnectionString = strConn الارتباط ب اكسيس 2007 فما فوق strConn = "Data Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & CurrentProject.Path & _ "\Northwind.accdb" لنظر الى المرفق النموذج المثال الثالث ان شاء الله كيفية عرض وفتح التقارير والنماذج في العرض الشجري TREEVIEW.zip

السلام عليكم بعد اذن اخي محمد هذه قكرةرائعىة انه يخصص الشخض قاعدة بيانات فارعة وليس سيرفر لارشفة الجداول المهمة في جميع قواعد البيانات لنفرض فاعدةالبيانات المراد ترحيل الجدولayman1 والقاعدة الفارغة archieve Dim db As DAO.Database Dim blnTrans As Boolean Dim strSQL As String Dim strPath As String Dim strDb As String Dim strDateCriteria As String ' On Error GoTo ErrorHandler strPath = "C:\AYMAN71\" strDb = "ayman1.accdb" strDateCriteria = _ "BETWEEN #1/1/2000# AND #12/31/2022#;" DBEngine.BeginTrans blnTrans = True Set db = OpenDatabase(strPath & strDb) ' نسخ جدول orders ' وتصديره ثم حذفه strSQL = _ "SELECT * INTO origin IN " & _ Chr(34) & strPath & strDb & Chr(34) & _ " FROM Orders WHERE Orders.OrderDate " & _ strDateCriteria db.Execute strSQL, dbFailOnError ' تاكبد If MsgBox("Click OK if you want to archive " _ & db.RecordsAffected & _ " records.", vbOKCancel + _ vbQuestion + vbDefaultButton2, _ "Proceed?") = vbOK Then DBEngine.CommitTrans DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\ayman71\ayman1.accdb", acTable, "origin", "archive" db.TableDefs.Delete ("origin") Application.RefreshDatabaseWindow Else If blnTrans Then DBEngine.Rollback End If If db.RecordsAffected = 0 Then DBEngine.Rollback MsgBox "لا حركات " & _ "with the specified criteria.", _ vbInformation + vbOKOnly, _ "Records not found" End If Cleanup: Set db = Nothing Exit Sub

السلام عليكم ورحمة الله احببت انا اشاركم ببعض الامثلة المفيدة والتي تعلمتها ولعلي كل فترة ارفق في هذه المشاركة بعض الامثلة المثال الاول احضار الحساب الاب والابناء وابناء الابناء الخ دون استخدام الدالة like المثال الثاني سيكون عن استخدامات Data shaping والتي تستخدم في انشاء recordsets within recordsets ضمن ADO OBJECT والتي نستخدم في العرض الشجري للبيانات PARENT.accdb

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

السلام عليكم ورجمة الله اخواني عندي مشكلة في تصفية حقل التاريخ في النموذج المستمر بين تاريخين المشكلة تكمن في اني كنت استخدم هذا sFilter = sFilter & "date" & " Between " & Format(Me.fromdate, "\#mmmm dd, yyyy#") & " And " & Format(Me.todate, "\#mmmm dd, yyyy#") وكان يعمل يشكل جيد ولكن بعد تحويل تنسيق التاريخ على جهازي تاريخ عربي ام القرى اعطاني رسالة خطا وهي run time error 3075 syntax error in date query expression 'date' between ...... حاولت ان اعطي كود يقبل اي تنسيق عربي او انجليزي للتاريخ مثل هذا sFilter = "[date] Between #" & fromdate & "# And #" & todate & "#" فلم ينفع معي فهل هناك كود ىمكن ادخالة يقبل اي تنسيق للتاريخ على الجهاز

بالنسبة للتحويل sqlservr في الخطوة الاولى تقوم بعملية استيراد الجداول من الاكسيس الخطوة الثانية الهامة جدا القيام بالتعديل على الجداول بما يتلائم مع قاعدة اس كيو ال فمثلا لا يوجد في اسكيوال ترقيم تلقائي بل يكون الحقل INTEGER ثم coulum properties ----identity spicification---IS edentity------yes بعد الانتهاء من التعديل تذهب تبدا انشاء العلاقات وذلك في قاعدة اس كيوال تختار ضمن قاعدة بياناتك يوجد فولدر اسمه database diagrams كليك يمين new database diagrams ستفتح لك شاشة فارغة تختار كليك يمين اضافةجداول ثم انشاء علاقات بالسحب وانصح كل شخص يريد ان يحول الى اس كيو ال كقاعدة خلفية ان يحضر السلسلة التالية على اليوتيوب وان شاء الله ساكتب المختصر المفيد للسلسة التي على اليوتيوب ان كانت الظروف ميسرة https://www.youtube.com/watch?v=muuj5KPv5lA&list=PLjE0e7CYrXToCWrkWp3VFN_-HCzvqn75x وان كانت باللغة الانجليزية لكن تستطيع ان تفهما بالنظر والتطبيق لانها تعتبر اهم من شرح طريقة الربط

السلام عليكم التحويل لقاعدة sql ليس بالصعب ولكن لا بد للشخص ان يحول قاعدته ان يكون يعلم حسب علمي وتجربتي الشخصية بsqlserver 2008 1-عند التحويل العلاقات بين الجداول تزول فيجب اعادة ربطها 2-اعادة تكوين المفتاح الرئيسي لبعض الجداول اذا كان لاكثر من حقل في نفس الجدول اوعدم وجوده اصلا 3-ميزات نسخ sql المجانية والمدفوعة تجدها في الفيديوhttps://www.youtube.com/watch?v=i3yb_-j5CbE

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

الحمد لله تم الحل ولتتم الفائدة اذا اردت ان تظهر نتائج الاستعلام بمعيار مغين والتي لا توافق المعيار يردها الى صفر ولا يخفيها One way of doing this is a UNION query which joins together 2 queries The first part is the INNER JOIN query you started with to get the results with a count. The second part is a modified version of the unmatched query but replacing the field with nulls with Nz(YourField,0) Make sure both of these have the same number of fields in the same order The UNION query can only be created in SQL view So open the first query in SQL view & save as a new query Open the second query in SQL view and copy to the clipboard Return to the new query you saved in SQL view. At the end of this , after the ; type UNION then paste the second part of the query. Save and run it. اشاء استعلام اخر باستخدام معالج الاستعلامات واختيارالنوع الرابع وهو unmatch query بحيث يكون مصدر الاستعلام الاستعلام الاول الان الاستعلام الثاني سيعطيك الحقل او الحقول الذي لا يوجد في الاستعلام الاول عدل الاستعلام الثاني في وضع التصميمsql واجعل الحقول قيمتها صفر الخطوةالثالثة انسخ الاستعلام الاول في استعلام ثالث افنحه على وضع التصميمsql اخرالعبارة اضف عبارة union اذهب وانسخ عبارة sql للاستعلام الثاني الصقها بعد عبارة union في الاستعلام الثالث ثم احفظ ونفذ الاستعلام اذا لم تبن الصورة واحتاجها احد الاخوة سالحق مثال لذلك ان شاء الله

السلام عليكم اخواني المشكلة في استعلام اخر سعر فاتورة شراء عندما احاول ان اضيف شرط لحقل-description ان يكون المعيار فاتورة مشتريات يعطيني فقط المواد التي عليها حركات فاتورة مشتيات اما المواد التي ليس عليها فواتير شراء يخفيها حاولj استخدام الدالةcount(*) لكن دون جدوى المطلوب انى يعطي نتيجة كالتالي بعد اضافة شرط فاتورة مشتريات المادة 1 ----26-9-2019--------24-------- فاتورة مشتريات المادة2 -------23-9-2019------24------------فاتورة مشتريات المادة3 ------0-------------------0 --------------فاتورة مشتريات وشكرا مقدما lats purchase inv.rar

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

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