امير عاطف

في أكسس 97 أو 2000 من قائمة أدوات >> بدء التشغيل >>> خيارات متقدمة ثم وضع علامة صح على التاريخ الهجري في أكسس إكس بي من قائمة أدوات >>خيارات >> إعدادات دولية ثم ثم وضع علامة صح على التاريخ الهجري بعد ذلك تضع لابيانات بجدول على ان يكون الحق الذي به بيانات التاريخ من نوع تاريخ

يمكنك استخدام الدالة Dsum اما من خلال كود فيجول بيسك -- أو من خلال وضعها داخل مربع نص غير منضم بنموذج او تقرير

اعتقد ان سبب ذلك ان النسخة Beta اعني ان بالتأكيد يكون بها اخطاء أو ما يسمى bugs

معدل دوران المنتج أو الصنف : هو مدى سرعة تحول البضاعة الى مبيعات ايضاً كلما ارتفع معدل الدوران كلما اكد على جودة ادارة المنتج والعكس في حالة انخفاضة معدل دوران الصنف بالتكلفة = تكلفة البضاعة المباعة / متوسط المخزون تكلفة البضاعة المباعة = تكلفة بضلعة اول المدة + تكلفة التصنيع - بضاعة آخر المدة متوسط المخزون = مخزون اول المدة + مخزون آخر المدة /2 ========================== اعتقد ان الدالة Dsum تتعامل مع ذلك بكل اتقان راجع شرحها بقسم الخلاصلات تجد انها تفي بالغرض شرح الدالة Dsum

الأخ رحال العمر : سلام الله علكم ورحمته تعالى وبركاتة يمكنك عمل ما تريد عن طريق لصق الاجراء التالي بوحدة نمطية عامية Public Sub AllForms() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllForms If obj.IsLoaded = True Then obj.Properties.Application.DoCmd.Close MsgBox "all forms is closing",vbokonly,"officena" End If Next obj End Sub بعد ذلك في حالة انك تريد في اي وقت وفي اي مكان في برنامجك ان تغلق اي نموذج مفتوح وتقوم بفتح نموذج معين .. فمثلاً تضع الحدث التالي Call AllForms ثم تقوم بوضع السطر الذي يقوم بفتح النموذج الذي تريد DoCmd.OpenForm "form1"

نعم يمكنك استخدام الكود السابق بحيث اذا وجد فورم محدد مفتوح يقوم بإغلاقة أو العكس هذا السطر يقوم بالتأكد هل النموذج مفتوع If (Application.CurrentProject.AllForms("formname").IsLoaded) = True Then واذا كان النموذج مفتوح نقوم بإغلاقة حل آخر: وهو عند فتح النموذج الذي تريد فتحة ضع عند حدث الفتح للنموذج كود يقوم بإغلاق النموذج الذي تريده ولعمل كود يقوم بإغلاق اي نموذج تريد DoCmd.Close acForm, "formname"

اضافة بسيطة هذا كود ايضاً يقوم بالتأكد هل النموذج مغلق ام لا ... يمكنك الاستفادة من الفكرة If (Application.CurrentProject.AllForms("ÇÓã ÇáäãæÐÌ").IsLoaded) = True Then MsgBox "the form is loading" Else MsgBox "the form is not loading" End If

ضع في حدث عند النقر لزر اضافة زبون الكود التالي docmd.openform "اسم النموذج الخاص بإضافة الزبون" docmd.close me.name

الفكرة رائعة حيث يمكن تلخيص القول في هذا الكود : وفكرة الكود تقوم على الحاق السجلات التي قيمتها YES وهي قيمة افتراضية للسجل التي توجد بالجدول Table1 بالحاقها بالجدول Table2 ثم عمل استعلام تحديث للجدول Table1 بحيث يتم تغيير قيم السجلات للحقلTransf الى No DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Table1 ( a, b, c ) SELECT Table2.aa, Table2.bb, Table2.cc FROM Table2 WHERE (((Table2.transf)=Yes));" DoCmd.RunSQL "UPDATE Table2 SET Table2.transf = No;" بالطبع اوافقك الرأي في انه في حالة تعديل فاتورة يكون بعمل اذن جديد سواء ارتجاع او خصم أو فاتورة بيع اخرى ... حتى تتم المعالجة بإسلوب علمي

كيف يمكن تعليم السجلات التي تم ترحيلها مسبقاً من خلال الالحاق .. بحيث اذا قمت بترحيل سجل تم ترحيلة من قبل يخبرني بأن السجل تم ترحيلة من قبل

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

الاخ رحال العمر اهلاً بك عضوا بالمنتدى ونتمنى لك ان تفيد وتستفيد ان شاء الله :d تم دمج مشاركتك المفيدة هنا حتى يكون هناك تكامل بين المواضيع

هناك طريقتين لعمل ذلك : الأولى ... هو استخدام احد البرامج التي تقوم بتحويل برنامجك الى EXE ولكن لا يحضرني اسم احد هذه البرامج الان الثانية ... وهي الأفضل من وجهة نظري .... هو استخدام Microsoft Office Developer Kit --------------------------------------------------------------- الطريقه الأولى: عن طريق برامج خاصه تعرف باسم برامج converter ويكون عن طريق استدعاء برنامج الأكسس داخل برنامج التحويل ثم اعطاءه امر بتحويله الى ملف تنفيذي الطريقه الثانيه وهي المفضله طبعاً ....... وهو التحويل عن طريق اسطوانةmicrosoft officeXP developer kit هذه الإسطوانه من المفترض ان تكون مرفقه مع اسطوانة الأوفيس XP يوفر Microsoft Office XP Developer أدوات متقدمة يمكن أن يستخدمها المطورون لإنشاء تطبيقات مخصصة وتوزيعها. هذه معلومات عن Microsoft Office XP Developer كنت قد حصلت عليها منذ فترة من موقع مايكروسوفت ايجبت ... وهي يتضمن Office XP Developer التالي: القرص المضغوط Microsoft Office Premium القرص المضغوط Office Developer Tools ترخيص توزيع مجاني (يتضمن تطبيق وقت التشغيل Microsoft Graph) وأدوات تسمح لك بتوزيع نسخ من تطبيقات Microsoft Access المخصصة لكافة المستخدمين، سواء كانت Access مثبت على أجهزة الكمبيوتر لديهم أم لا. "إدارة النسخ المتماثل" التي تقوم بجدولة التحديثات ضمن النسخ المتماثلة، وتحدد كائنات قاعدة البيانات التي يتم إنشاء نسخ متماثلة منها، وتدير مجموعات نسخ متماثلة متعددة في وقت واحد. وباستخدام إدارة "النسخ المتماثل"، يمكنك مشاهدة عرض مرئي لكافة النسخ المتماثلة في مجموعة. Microsoft Visual SourceSafe 6.0 (بما في ذلك الوظيفة الإضافية Visual SourceSafe لـ Access والوظيفة الإضافية Visual SourceSafe Visual Basic Editor)، بدعم تطوير تطبيقات بواسطة عدة مطورين. عناصر تحكم ActiveX التي يمكنك استخدامها لإضافة جوانب متعددة لتطبيقاتك وتكرار وظائف Microsoft Windows 95، بما في ذلك عناصر التحكم لتطبيقات الإنترنت وعناصر التحكم لوصل إرسال الرسائل في Microsoft Outlook بالبيانات وتطبيقات Office أخرى. عارض Windows API المحدث مع أداء محسن. يحتوي عارض Windows API على تصريحات وثوابت تم استخدامها مع واجهة برمجة التطبيقات (API) في Windows 95. ويمكنك نسخ هذه التصريحات والثوابت ولصقها في الوحدات النمطية لـ Visual Basic. بيئة البيانات Data Enviroment، هي واجهة مستخدم لحلول الاتصال السهل بقواعد البيانات الخارجية. يمكنك استخدام ميزة "إنشاء وظيفة إضافية" Make Add، لإنشاء وظيفة إضافية من محرر Visual Basic مباشرة لمضيف Visual Basic Editor معين. يمكنك استخدام Package and Wizard "معالج الحزم والنشر" الذي يمكنك استخدامه، لتسليم حلول Office قابلة للبرمجة لأي مضيف Visual Basic for Applications 6.0 في قرص، شبكة اتصال، وويب. يعتبر أمين المكتبة التعليمات البرمجية، أداة لاستعراض ملفات المصدر الموجودة حول قصاصات التعليمات البرمجية. ويمكنك البحث عن نص، وعرض تفاصيل ورؤوس تعليقات، وإدراج النص في مشروعك الحالي. HTML Software Development Kit (SDK) التي يمكنك من خلالها إنشاء، مواضيع تعليمات مشابهة لمواضيع التعليمات في Microsoft Office XP. وتتضمن SDK HTML Help Workshop وإصدار وقت التشغيل لتوزيعه على المستخدمين. SDK Agent، الذي يوفر عنصر تحكم برمجي في "مساعد Office" التي تقوم بإنشائها. Microsoft Developer Network (MSDN) نسخة Office XP. وتتضمن مكتبة MSDN بالكامل، بالإضافة إلى مجموعة فرعية افتراضية خاصة بأوامر Office وVisual Basic for Applications programming

لا بالطبع لا يؤثر اخفاء الجداول على عمل النماذج ولا يحدث اية مشاكل .... هذا والله سبحانه اعلم واعلم ولكن هذا ليس علاقة بتحويل القاعدة الى نسخة Run Time أو نسخة EXE وانما تم عرض هذا الاقتراح لأن الأخ Mazenkl قال في سؤالة

عندما تقوم بفتح ورقة العمل اضغط على مفتاحي Alt + F11 بعد ذلك يتم فتح نافذة الكود ... ستجد الكائنات يمينك فاختر منها الكائن Sheet1 وقم بعمل نقرة مزدوجة بالماوس علية وبعد ذلك قم بلصق الكود التالي .... Private Sub Worksheet_Activate() For Each contact_number In Worksheets("Sheet1").Range("a1:iv65536") If Len(contact_number) > 0 Then contact_number.Value = "0" & contact_number.Value End If Next contact_number End Sub بعد ذلك قم بعمل حفظ وقم بغلق الاكسيل وافتحه مرة اخرى وان شاء الله كل شيء يكون تمام اما بالنسبة لفكرة الاخ الكريم شرف فيمكنك تطبيقها بكل سهولة اذا اتبعت الخطوات الذي اخبرك بها حيث انها لا تحتاج لفتح نافة الكود ولكن ما تقوم بعمله هو كتابة الصيغة داخل خلية بورقة العمل

ضع الكود التالي: For Each contact_number In Worksheets("Sheet1").Range("e1:e100") If Len(contact_number) > 0 Then contact_number.Value = "0" & contact_number.Value End If Next contact_number مع استبدال النطاق الموجود بالكود وهو e1:e100 بالنطاق الذي تضع به ارقام الاتصال لديك . وبالطبع يتم تطبيق ذلك في حالة جعل الخلايا المحددة من نوع (نص) ايضاً يمكنك وضع الكود السابق في اي حدث تريد ... ولكن من المفضل ان تضعه كحدث لزر امر

اذا كنت تريد تشغيل القاعده بدون الوصول للجداول والستعلامات والوصول للنماذج والتقارير فقط فهذا لا يحتاج الى تحويل القاعدة الى صبغة EXE او اعدادها عن طريق Microsoft Office Developer Kit حيث يمكنك عمل ذلك فقط عن طريق الغاء الشيفت او تحويل القاعدة لصيغة Mde أو اخفاء الجداول عن طريق الكود

ادخل الكود التالي في حدث قبل التحديث للنموذج Private Sub Form_BeforeUpdate(Cancel As Integer) DoCmd.RunSQL "UPDATE aa " & _ "SET aa.num = aa.num + 1 " & _ "WHERE aa.num >= forms!aa!num" End Sub حيث ان aa هو اسم نموذج ادخال البيانات و num هو حقل الرقم

يمكنك عمل ذلك عن طريق وضع الكود التالي لحدث بعد التحديث After Apdate لمربع النص Boxnum حيث Boxnum اسم مربع النص الذي نقوم بكتابة الرقم بداخله داخل النموذج Boxnum.value=Boxnum.value+1

السؤال للأخ ابو وليد وهو: لو حبيت اضيف سجل جديد على الجدول وابغى رقمه يكون مثلا 6 كيف اخلي رقم 6 يصير 7 وهكذا للي بعده يعني 7 يصير 8 ........الخ

سؤال الأخ ابو وليد هو ماار يده عند اختيار الاسم من جميع مربعات التحرير والسرد ان يقوم بالبحث في الجدول aa وينظر من يحمل أكبر رقم من الموجودين في مربعات التحرير والسرد ويضع اسمه في مربع النص mix اتمنى ان تكون المعلومة وصلت ؟ سؤال اخر لو حبيت اضيف واحد جديد على الجدول وابغى رقمه يكون مثلا 6 كيف اخلي رقم 6 يصير 7 وهكذا للي بعده يعني 7 يصير 8 ........الخ واسماء مربعات التحرير والسرد هي كالتالي p11 - p12 - m11 - m12 - b11 - b12 - f11 - f12 يمكن عمل ذلك عن طريق استخدام الدالة Dmax وتجد شرح مفصل لها هنا بقسم خلاصة مشاركات الأكسس اضغط هنا -------------------------------------------------------- ويتم تطبيق ذلك عند وضع الكود التالي عند حدث زر الامر mix = DMax("[الاسم]", "aa", "[الاسم] = forms!mana!p11 or [الاسم] = forms!mana!p12 or [الاسم] = forms!mana!m11 or [الاسم] = forms!mana!m12 or [الاسم] = forms!mana!b11 or [الاسم] = forms!mana!b12 or [الاسم] = forms!mana!f11 or [الاسم] = forms!mana!f12") -------------------------------------------------------- بالنسبة للسؤال الثاني ... تم وضعه بمشاركة مستقلة منعاً لتداخل الأسئلة اضغط هنا

سلام الله عليكم ورحمته تعالى وبركاته من وجهة نظري ... جدول واحد ... ولكن !!!!! اقوم الآن بعمل تطبيق به جدول يحتوي عمليات المبيعات وعمليات المشتريات والمرتجعات سواء من العميل او مرتجعات الى الموردين وعمليات السدادات النقديةايضاً سواء من العملاء اوالى الموردين والسدادات من أوراق القبض (المحصلة من العملاء) والسدادات من أوراق الدفع المنصرفة للموردين ,,,, ويرتبط مع هذا الجدول اكثر من جدول آخر مثل جدول الاصناف مرتبط مع هذا الجدول علاقة واحد الى متعدد عن طريق حقل كود الصنف وجدول العملاء ايضاً مرتبط مع هذا الجدول عن طريق حقل اسم العميل وجدول الموردين ايضاً مرتبط مع هذا الجدول بحقل اسم المورد وجدول اوراق القبض مرتبط مع هذا الجدول بحقل كود ورقة القبض وجدول اوراق الدفع مرتبط مع هذا الجدول بكود ورقة الدفع وجدول رقم فاتورة البيع الذي يوجد به بيانات الفاتورة الاساسيه من رقم الفاتورة واسم العميل وتاريخ الفاتورة وطريقة السداد مرتبط ايضاً مع هذا الجدول عن طريق حقل رقم فاتورة البيع .... طبعاً من خلال هذا الجدول يمكن استخراج كارت صنف وكارت عميل سواء كارت عميل تقليدي او كارت عميل مفصل واقصد بكارت عميل مفصل اي يحتوي على كل البيانات التفصيلية لمبيعات العميل من كل صنف تم بيعه بسعره ووحدتة طبعاً ظهرت عقبات .... عن عمل كارت عميل مثلاً من هذا الجدول حيث يوجد تاريخين تاريخ للسداد وهو متواجد بنفس الجدول وتاريخ البيع وهو متواجد بجدول رقم فواتير البيع الذي هو مرتبط مع هذا الجدول بحقل رقم فاتورة البيع ويمكن التغلب على مشكلة التاريخين المتواجدين في جدولين مختلفين مع وجود علاقة بينهما عن طريق استخدام الدالة IIF حيث مثلاً لو كان حقل اسم العميل لا يكون فارغ والكمية المنصرفة من الصنف اكبر من القيمة صفر اذاً تكون عملية بيع اذاً يتم وضع حقل التاريخ الذي بجدول رقم فاتورة البيع واذا كان حقل اسم العميل ليس فارغ وحقل القزيمة المسددة من العميل اكبر من القيمة صفر اذا تكون عملية سداد من العميل وهكذا .... ويتم تطبيق ذلك على الموردين ايضاً بالنسبة لكلام اخي اشرف وهو بالفعل هذه الطريقه عملية جداً حيث عندما اضع بيانات الفاتورة الأساسيه من اسم العميل ورقم الفاتورة وتاريخ الفاتورة مرة واحدة فقط (وذلك يتم في جدول رقم فاتورة البيع) وبعد ذلك يتم كتابة حتى 100 صنف في الجدول الآخر ولا يتم كتابة بيانات الفاتورة الرئيسيه مرة اخرى فقط يتم كتابة كمية الصنف وسعرة وكود الصنف فقط خلاصة القول من وجهة نظري ... الطريقتين مكملتان لبعضهما

تتوفر هذه الميزة اذا كان قد تم تثبيت Microsoft Office 2003 Multilingual User Interface Pack بالإضافة لذلك يجب تمكين الدعم للغة من خلال اعدادات اللغة في Microsoft Office

:)

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