عبد الله قدور

السلام عليكم ورحمة الله وبركاته التصميم جميل وفيه جهد ولمسة فنية حلوة اما الملاحظات بما انك قمت بتصميم برنامج مبيعات وعملاء فقد صممت البرنامج بدون الرجوع لمحاسب معك يدعمك من الناحية المحاسبية ، يلاحظ ذلك من اسماء الفواتير والسندات لا يوجد فاتورة اسمها فاتورة تحويل إذا كنت تقصد النقل من مستودع الى مستودع فهي فاتورة مناقلة فاتورة بيان سعر إذا كنت تقصد هي لاعطاء سعر للزبون او اخذ سعر من مورد فهي عرض سعر كثرة الازرار التي تقوم بنفس العمل المحاسبي يفضل اضافة ازرار اخرى للفاتورة مثل معاينة الطباعة ، طباعة ، حذف ، تعديل ، اغلاق ، جديد وأن تكون هذه الازرار متواجدة في نفس المكان في كل النماذج ( مثلا زر الاغلاق في الفواتير اعلى اليسار وفي السندات اسفل اليمين و تقارير في اقصى اليسار ) لا يجب فصل العملاء (الزبائن ) عن الموردين وذلك قد تحتاج احيانا للبيع لمورد او الشراء من زبون بطريقتك هذه فانت مجبر لفتح حسابين لنفس الشخص لا يوجد شجرة حسابات ولا شجرة مواد وضعت المصاريف ضمن الخزينة فأحيانا اقوم بمصروف بالدين واسدد دفعات له مقابل الخدمة لا يوجد سندات قيد مولدة من كل عمليات البرنامج لا يوجد ميزة استخدام العملات في البرنامج عمليات الصندوق والبنك يمكنك استبدال كل هذه الازرار بسند قبض وسند دفع وسند يومية التقارير الاساسية التي يحتاجها البرنامج 1- كشف حساب عميل او مورد او مصروف 2- ميزان المراجعة (من اهم التقارير المالية) 3- حركة مادة او صنف 4- جرد المواد حسب المستودعات واختيار طرق تسعير المواد (الكلفة او اخر شراء أو الوسطي أو الوسطي المرجح) 5- تقرير المتاجرة والارباح والخسائر (لبيان صافي الربح )

السلام عليكم في الكود التالي نقوم بالاتصال بقاعدة بيانات اس كيو ال ونقوم بتشغيل "اجراء مخزن" لكن يتوقف الكود عند تمرير البراميترات يرجى مساعدتي في تعديل الكود Sub CallStoredProcedure() ' تحديد المتغيرات Dim conn As Object Dim cmd As Object ' اعدادات الاتصال Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;Integrated Security=SSPI;" ' إعداد كائن الأمر Set cmd = CreateObject("ADODB.Command") With cmd .ActiveConnection = conn .CommandType = 4 ' تحديد نوع الأمر كإجراء مخزن .CommandText = "AddDataToTable" ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date) .Execute ' تنفيذ الإجراء End With ' إغلاق الاتصال conn.Close MsgBox "تم إضافة البيانات بنجاح!" End Sub

السلام عليكم هل ما تحتاجه كبرنامج موجود في الفيديوهات ؟؟ الفيديو 1 الفيديو2 الفيديو3 الفيديو4

السلام عليكم لتعم الفائدة ارفق لكم كود يقوم بربط جدول من قاعدة بيانات sql برمجيا قد يحتاج الى ضغط واصلاح حتى يظهر الجدول Database6.accdb

السلام عليكم جرب هذه الطريقة من هذه النافذة اختر زر الخيارات ستظهر النافذة التالية العمود الاول هو ترتيب الاعمدة ، الثاني لاظهار الاعمدة ، الثالث اسم العمود ، الرابع حجم العمود بامكانك بازرار الاعلى والاسفل تحريك العمود للاعلى والاسفل Database6.accdb

السلام عليكم انا استخدم هذه الطريقة في النسخ الاحتياطي وقد اخذتها من المنتدى Public Function CreateBackup() As Boolean Dim Source As String Dim Target As String Dim a As Integer Dim objFSO As Object Dim Nam As String 'انشاء اسم النسخة الاحتياطية بالتاريخ والوقت مع تغيير الامتداد Nam = "Acc_Tavuk_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) & ".ACC4" ' نأخد مسار قاعدة البيانات المرتبطة من استعلام من جداول النظام Source = DLookup("[database]", "track", "[ForeignName]='bill'") ' مسار الذي سوف تذهب اليه النسخة الاحتياطية Target = "D:\2023\tavuk2023" & "\" & Nam ' create the backup a = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") a = objFSO.CopyFile(Source, Target, True) Set objFSO = Nothing End Function يتم استدعاء هذا الكود على الشكل التالي CreateBackup الاستعلام الذي نأخذ منه مسار قاعدة البيانات المرتبطة في النهاية احصل على نسخة احتياطية على الشكل التالي

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

السلام عليكم اخي الكريم انا استخدم الكود التالي مع الجداول التالية Sub OrderLik(Box, IDD As Integer) 'On Error GoTo err: On Error Resume Next If DLookup("[show]", "subreport", "[idd]=" & IDD) = True Then With Box .ColumnWidth = DLookup("[width]", "subreport", "[idd]=" & IDD) .ColumnOrder = DLookup("[order]", "subreport", "[idd]=" & IDD) .ColumnHidden = False End With Else Box.ColumnHidden = True End If Exit Sub err: MsgBox err.description err.Clear End Sub err.Clear واقوم باستدعائه بالكود التالي لكل عمود Call OrderLik(.Code, 1) مع الجداول التالية 1- جدول اضع فيه اسماء النماذج الرئيسية واعدادات الطباعة 2- جدول فرعي اضع فيه اسماء الاعمدة حجم العمود وترتيبه وهل سيظهر ام لا

السلام عليكم للاسف قواعد بيانات اكسس لا تزيد حجمها عن 2 جيكا ، وتتوقف عند هذا الحجم امامك حلان فقط 1- التحول الى قاعدة بيانات sql ولا اعرف ان كان بعد الاتصال هل ستستطيع الادخال عليها اذا كان حجمها اكبر من 2 جيكا اتمنى ان يفيدنا احد بهذا الموضوع 2- فتح قاعدة بيانات اكسس جديدة وتسجل فيها البيانات يمكنك التحول من تخزين المرفقات داخل الاكسس الى تخزينها بمجلد جانب قاعدة البيانات وستجد هذا الخيار مشروح كثيرا في المنتدى

حتى تعم الفائدة يمكننا ان نضع الكود التالي مع انشاء الشريط يقوم باخفاء مجموعة طرق العرض من الشريط الرئيسي </tab> <tab idMso="TabHomeAccess" > <group idMso="GroupViews" visible="false"/> </tab> قبل الاخفاء بعد الاخفاء الان اقوم بالبحث في باقي التبويبات لاخفاء طرق العرض منها

وعليكم السلام هذا طلبك بإذن الله doctor.accdb

وعليكم السلام جرب الكود التالي Call Shell("Explorer.exe" & " " & path_folder, 1) ملاحظة الكود الذي عندك لم تظهر رسالة الخطأ التي تحدثت عنها ، اشتغل بشكل جيد

بارك الله فيك اخي عمر اقصد هذا الشريط عندما تختار القائمة منه تستطيع اختيار خيارات منه

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

لتعم الفائدة بشكل اكبر وتصل للجميع سارفق لكم ملف مضغوط فيه كل اسماء الأوامر والازرار الموجودة في مجموعة الاوفيس ، وطريقة استخدامها في xml على الشكل التالي <control idMso="ExportExcel" label="Export to Excel" enabled="true"/> اما المجموعات تضاف باستخدام المجموعة والتاب باستخدام التاب وهكذا كما هو متعارف عليه في xml Office2013FluentUserInterfaceControlIdentifiers.zip

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

السلام عليكم ما شاء جهد وعمل ممتاز بارك الله بكم جمعيا استطعت ان اقوم بتصميم الشريط وجعله الشريط الرئيسي واخفاء اشرطة اكسس الاخرى ، لكن بقي تبويب ملف موجود هل هناك طريقة لاخفائه

السلام عليكم اسعد الله اوقاتكم جميعا وجدت برنامج يقوم بانشاء شريط احترافي للاكسس وقد قمت باضافة الشريط للمرفق لاحظت انه يستخدم XML في تصميم الشريط سؤالي : كيف استخدم الصور المخزنة في قاعدة البيانات في هذا الشريط بصيغة اخرى اريد تعديل xml حتى يأخذ الصور من جدول الصور الموجود داخل الاكسف (اسم جدول الصور : MSysResources ) dddd.accdb

وعليكم السلام طبعا يوجد باستخدام recordset او باستخدام استعلام الحاق

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

جزاك الله كل خير مشكلتي بالاستضافة قواعد بياناتها MYSQL وليس SQL SERVER

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

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

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

السلام عليكم اختر التنسيق قياسي والمنازل العشرية 2