علي المصري

استخدم الكود التالي Private Sub Command0_Click() DoCmd.OpenReport "تقرير الطبع الكلي", acViewPreview, , , acHidden DoCmd.SelectObject acReport, "تقرير الطبع الكلي" DoCmd.PrintOut acSelection DoCmd.Close acReport, "تقرير الطبع الكلي" End Sub

يوجد اكواد توضع في قاعدة البيانات الخاصة بك لكي تتوافق مع كل من 32 بت و 64 بت تجدها في المنتدى

خصائص الورقة - تنسيق واكتب في التنسيق yyyy/mm/dd or dd/mm/yyyy علي حسب ما تريده خصائص مربع النص المخصص للتاريخ

البرنامج لا يعمل عند شاشة تمكين الماكرو يغلق تلقائيا ُ قبل التمكين

استخدم التالي Private Sub Form_Load() Me.Caption = " " End Sub وذلك لاخفاء اسم الفورم اثناء التشغيل اما عند الغلق ؟؟؟؟؟؟؟؟؟!!!!!!!!!!!

اضف كلمة value Private Sub Combo2_AfterUpdate() Dim i As Integer Dim Num1 As Variant Num1 = Array(2, 6, 8, 25, 28, 62) For i = 0 To 5 If Me.Combo2.Value = Num1(i).Value Then MsgBox Combo2.Value: Exit Sub Else MsgBox ("لا يوجد هذا الرقم") End If Next End Sub اخي الكريم هل جربت الكود لاني فتح قاعدة البيانات مرة أخرى لم يعمل معي متأسف على الخطأ وان شاء الله نتوصل للحل بمساعدة أعضاء المنتدى الكرام

تفضل طلبك ملاحظات وجدت في الجدول انك عامل كل الحقول عبارة عن عملة ونحن نريد ارقام - تم تعديلها حساب البالات.rar

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

السلام عليكم ورحمة الله وبركاته عند نقل البرنامج من جهاز إلى جهاز آخر وبسبب إعدادات الأمان في الاكسيس لابد أن تظهر لك رسالة في بداية الأمر ( في المرة الأولى للتشغيل على أي جهاز ) فالمطلوب من حضرتك أن تضغط على كلمة تمكين المحتوى في الرسالة التي ستظهر لك وبالتالي يعمل معك البرنامج بشكل طبيعي أو يمكنك قبل تشغيل برنامجك: 1- فتح برنامج اكسيس 2- وقم بتخفيض الأمان للبرنامج عن طريق الضغط على ملف file - خيارات Options - مركز التوثيق Trust Center - ثم Trust Center setting - ثم إعدادات الماكرو ثم اختر تمكين الماكرو وانا شخصيا ً لا افضل هذه الطريقة لان بعض البرامج التي يوجد بها ماكروا وخصوصا البرامج التي تعرف مصدرها يكون بها فيروسات شكرا

تفضل طلبك اكتب رقم الصنف ثم اضغط انتر استعلام عن طريق الحقل .rar

السلام عليكم ورحمة الله وبركاته أولا : الناتج 17750.6849315069 يقرب رياضيا بالقيمة التالية 17750.68 وليس 17750.69 ثانيا اذا اردت تقريب كما تريد فعليك بقراءة الموضوع التالي http://www.officena.net/ib/topic/64683-خلل-في-تقريب-حقل-محسوب-في-استعلام/#comment-421047 كما يمكنك اخي الكريم قبل طرح موضوع جديد البحث عن الحل في موضوعات المنتدى وإن لم تجد فعليك أخي الكريم بطرح موضوع جديد جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته بعد اذن الجميع من أساتذة المنتدى ممكن أن نجعل القيمة الافتراضية لهذا الحقل هي تاريخ اليوم ويمكن التعديل بكتابة date() امام القيمة الافتراضية للحقل

اما اذا كان المطلوب كما فهمت أخيرا فيمكنك استخدام التالي Private Sub Form_Current() Me.sum1 = DSum("[سعر الصنف]", "tabl1") Me.sum2 = DSum("[العدد في الصنف]", "tabl1") End Sub ضع هذا الكود في حدث الحالي للنموذج

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

اكتب الكود الموجود في النموذج Account كالتالي Forms![Main Form]![Query Data].Controls("Account Code") = Me.Account_Code Test.rar

استخدم الكود التالي DoCmd.OpenReport "اسم التقرير", acNormal

السلام عليكم ورحمة الله وبركاته هل يمكن تخفيض الأمان برمجيا ً

جرب المرفق التالي عند البحث اضغط على اسم الموظف سوف تفتح شاشة أخرى فيها البيانات prg_mnst.rar

برجاء رفع الملف مرة اخرى

أنشئ استعلام جديد واستخدم ال sql التالية SELECT Count(T.schooln) AS CountOfschooln, Count(T.TECHET) AS CountOfTECHET, T.SECTID, T.SECTN FROM T GROUP BY T.SECTID, T.SECTN;

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

يوجد بالجدول حقل به ترقيم تلقائي الاكسيس لا يسمح بوجود اكثر من حقل به ترقيم تلقائي في الحقل ذو الترقيم التلقائي في التنسيق اكتب "500"0 سوف يبدأ الترقيم من 5000 ظاهريا ولكن اذا قمت بتحديد هذا الحقل سوف تشاهد الترقي الأصلي له ويوجد طريقة أخرى لعمل الترقيم التلقائي من عدد تريد البدأ منه وهي كالتالي قم بانشاء استعلام جديد في التصميم ثم حول وضع التصميم إلى وضع SQL اكتب الجملة التالية CREATE TABLE TB2L ( Id AUTOINCREMENT(5000,1) ) ثم اضغط على Run تنفيذ سيتكون عندك جدول جديد باسم TB2L به حقل واحد اسمه id ونوع ترقيم تلقائي يبدأ من 5000 وما عليك إلا ان تقوم بنسخ باقي الحقول من الجدول القديم من وضع التصميم إلى هذا الجدول أيضا في وضع التصميم هذا والله أعلى وأعلم وأكيد إن شاء الله سوف تجد حلول أخرى عن عمالقة المنتدى أبوخليل - جعفر - رمهان ------- واخرون

في وضع التصميم للتقرير اختر Page setup إعدادات الصفحة اختر Page stup إعدادت الصفحة ثم عدل على الهوامش كما تريد

ارفق الملف وان شاء الله ستجد الجواب

يمكن استخدام الطريقة التالية في حقل جديد MySum: [اسم الحقل الأول]+[اسم الحقل الثاني]+[اسم الحقل الثالث]+[اسم الحقل الرابع] حيث mySum دا عنوان الحقل الجديد الذي تريده للجمع