محب العقيدة

ان ترسل رسالة الى بوت عملته في التيلجرام فالعملية سهلة وممتعة تتلخص في 1انشاء بوت 2اخذ التوكن تبع البوت 3.اخذ id chat 4كود بسيط على الاكسيس للارسال الى البوت اما ارسال رسالة الى اليوزر فهناك مشكلة تكمن في معرفة id chat عموما ان كنت مهتما بالنقطة الاولى ساشرحها بالتفصيل

السلام عليكم في حال استخدمت الماكرو في تصدير التقرير المعروض واردت تمرير اسم التقرير لامر التصدير الى الاكسيل استخدم الامر التالي Dim rptCurrentReport As Report Set rptCurrentReport = Screen.ActiveReport Dim w As String w = rptCurrentReport.name DoCmd.OutputTo acOutputReport, w, "MicrosoftExcelBiff8(*.xls)", "", False

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

https://m.youtube.com/watch?v=RCEDeiHo0bg&list=PL74DkfdscvwRv6lwrU5ZkY0y43gyUsykS&index=50&t=0s انظر لكن بالفرنسي قناة فد واستفد وهي مفيدة جدا انصح كل من يريد الاحتراف آن يتابعها حتى بالصورة فقط ينظر الى الاكواد

الافضل بالنسبةلي على الاطلاق INNO SETUP Key features: Support for every Windows release since 2006, including: Windows 10, Windows 10 on ARM, Windows Server 2019, Windows Server 2016, Windows 8.1, Windows 8, Windows Server 2012, Windows 7, Windows Server 2008 R2, Windows Server 2008, and Windows Vista. (No service packs are required.) Extensive support for installation of 64-bit applications on the 64-bit editions of Windows. The x64, ARM64 and Itanium architectures are all supported. Extensive support for both administrative and non administrative installations. Supports creation of a single EXE to install your program for easy online distribution. Disk spanning is also supported. Standard Windows wizard interface. Customizable setup types, e.g. Full, Minimal, Custom. Complete uninstall capabilities. Installation of files: Includes integrated support for "deflate", bzip2, and 7-Zip LZMA/LZMA2 file compression. The installer has the ability to compare file version info, replace in-use files, use shared file counting, register DLL/OCX's and type libraries, and install fonts. Creation of shortcuts anywhere, including in the Start Menu and on the desktop. Creation of registry and .INI entries. Running other programs before, during or after install. Support for multilingual installs, including right-to-left language support. Support for passworded and encrypted installs. Support for digitally signed installs and uninstalls, including dual signing (SHA1 & SHA256). Silent install and uninstall. Unicode installs. Integrated preprocessor option for advanced compile-time customization. Integrated Pascal scripting engine option for advanced run-time install and uninstall customization. Full source code is available from GitHub. Tiny footprint: only about 1.3 mB overhead with all features included. All features are fully documented. Used by Microsoft Visual Studio Code and Embarcardero Delphi. Is it really free of charge, even for commercial use? https://jrsoftware.org/isdl.php

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

السلام عليكم اخواني يظهر عندي مشكله في اتجاه النماذج الفرعية والتي تكون 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 وان كانت باللغة الانجليزية لكن تستطيع ان تفهما بالنظر والتطبيق لانها تعتبر اهم من شرح طريقة الربط