safaa salem5

هل ممكن تغيير اتجاه مربعات النص جهة اليمين فى حين اختيار اللغه الانجليزيه والعكس فى حين اختيار اللغه العربيه

لتحقيق ذلك، يمكنك اتباع الخطوات التالية: 1. قم بإنشاء نموذج في الاكسيس واجعل مصدره جدول البيانات الذي ترغب في طباعته. 2. أضف زرًا للطباعة على النموذج. يمكنك القيام بذلك عن طريق الانتقال إلى علامة التبويب "إنشاء" واختيار "زر الأمر" من مجموعة أزرار النموذج. 3. افتح نافذة تصميم النموذج وحدد الزر الذي قمت بإنشائه. 4. انتقل إلى خصائص الزر من خلال النقر بزر الماوس الأيمن على الزر واختيار "خصائص". 5. في نافذة خصائص الزر، انتقل إلى علامة التبويب "حدث" واختر "النقر" من قائمة الأحداث. 6. انقر فوق زر "المنشئ" المجاور لحقل الحدث لإنشاء معالج حدث جديد. 7. في محرر الشفرة، قم بإضافة الشفرة التالية: ``` Private Sub CommandButton_Click() Dim selectedItems As String Dim ctl As Control ' Loop through all controls on the form For Each ctl In Me.Controls ' Check if the control is selected If ctl.Value = True Then ' Add the control's name to the selectedItems string selectedItems = selectedItems & ctl.Name & ";" End If Next ctl ' Print the selected items DoCmd.OpenReport "اسم_التقرير", acViewPreview, , "اسم_الحقل IN (" & selectedItems & ")" End Sub ``` تأكد من استبدال "اسم_التقرير" بالاسم الفعلي للتقرير الذي ترغب في طباعته، واستبدال "اسم_الحقل" بالحقل الذي تستخدمه لتمييز العناصر المختارة. 8. قم بحفظ النموذج وأعد تشغيله. 9. ، عند النقر على زر الطباعة، ستتم طباعة العناصر المحددة فقط.

وبتغيير صيغة السؤال لحساب مبلغ البضاعة المخزنة، يمكن استخدام صيغة بسيطة تعتمد على البيانات المعروفة مثل مبلغ الاجمالي للمشتريات والمبيعات ومرتجعات الشراء والبيع. الصيغة تكون كالتالي: مبلغ البضاعة المخزنة = (مبلغ الاجمالي للمشتريات + مرتجعات الشراء) - (مبلغ الاجمالي للمبيعات + مرتجعات البيع) على سبيل المثال، إذا كان مبلغ الاجمالي للمشتريات يساوي 1000 ريال، وكانت مرتجعات الشراء تبلغ 200 ريال، وكان مبلغ الاجمالي للمبيعات 800 ريال ومرتجعات البيع 100 ريال، فيمكن حساب مبلغ البضاعة المخزنة بالنحو التالي: مبلغ البضاعة المخزنة = (1000 + 200) - (800 + 100) = 300 ريال. هذه الصيغة تعتمد على الافتراض أن القيم المذكورة تمثل المبالغ الإجمالية للمشتريات، المبيعات ومرتجعات الشراء والبيع. إذا كانت البيانات المعروفة تشمل معلومات آخرى، مثل الكميات أو الأسعار، يمكن استخدام طرق حساب متقدمة لتقدير قيمة البضاعة المخزنة.

وبسؤال الذكاء الاصطناعي 😆لحساب مبلغ البضاعة المخزنة باستخدام باكواد الاكسس، يمكنك اتباع الخطوات التالية: 1. قم بإنشاء جدول في قاعدة البيانات الخاصة بك يحتوي على المعلومات التالية: - رقم المنتج - وصف المنتج - الكمية المشتراة - الكمية المباعة - الكمية المرتجعة من الشراء - الكمية المرتجعة من البيع 2. قم بإدخال بيانات المشتريات والمبيعات ومرتجعات الشراء والبيع في الجدول. 3. قم بإنشاء استعلامات لحساب المجموعات الفرعية التالية: - مجموع المشتريات: استعلم عن مجموع الكمية المشتراة لكل منتج وقم بتجميع النتائج بواسطة رقم المنتج. - مجموع المبيعات: استعلم عن مجموع الكمية المباعة لكل منتج وقم بتجميع النتائج بواسطة رقم المنتج. - مجموع مرتجعات الشراء: استعلم عن مجموع الكمية المرتجعة من الشراء لكل منتج وقم بتجميع النتائج بواسطة رقم المنتج. - مجموع مرتجعات البيع: استعلم عن مجموع الكمية المرتجعة من البيع لكل منتج وقم بتجميع النتائج بواسطة رقم المنتج. 4. قم بإنشاء استعلام نهائي لحساب مبلغ البضاعة المخزنة باستخدام النتائج المسترجعة من الاستعلامات الفرعية. يتم ذلك بطرح مجموع المبيعات ومرتجعات البيع من مجموع المشتريات ومرتجعات الشراء. جملة الاستعلام الممكنة تكون كالتالي: SELECT Products.ProductID, Products.ProductDescription, (Sum(Products.Quantity_Purchased) - Sum(Products.Quantity_Sold) + Sum(Products.Returns_Purchase) - Sum(Products.Returns_Sale)) AS Total_Inventory FROM Products GROUP BY Products.ProductID, Products.ProductDescription; يعيد هذا الاستعلام قائمة يشتمل في كل سجل على رقم ووصف المنتج، والمبلغ الإجمالي للبضاعة المخزنة. قم بتنفيذ هذا الاستعلام في بيئة البرمجة لـ Access المقترنة بقاعدة البيانات الخاصة بك للحصول على نتائج المبلغ الإجمالي للبضاعة المخزنة.

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

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

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

ممكن طريقه ارسال ملفات ب د اف عن طريق الواتس الويب من خلال الاكسيس انا جربت كل البرامج الموجوده على المنتدى مفيش حاجه شغاله معايا

؟؟

ليه مش شغال معايا هل ممكن تعديل الكود انا عايزه نفس طلب الاستاذ hosslom

تلميذتك يامنبع الابداع🌷

تفضل high or low.accdb

توصلت للحل الحمد لله

؟

ياريت حد من الزملاء يقدر يساعدني للوصول للمطلوب

للاسف مش هى دى النتيجه المطلوبه☹️

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

جرب دا كدا Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = 0 Then Me.AllowEdits = False Else Me.AllowEdits = True End If

مش شغال معايا اه موجودين

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

Private Sub Form_Current() If Me.NewRecord Then Me.AllowEdits = True Else Me.AllowEdits = False Me.AllowDeletions = False End If End Sub

up

عايزه اثناء الكتابه فى حقل اسمه result لو القيمه اللى هكتبها اقل من القيمه الموجوده فى حقل اسمه low او اكبر من القيمه الموجوده فى حقل اسمه High يحصل حاجتين لون القيمه الموجوده فى حقل - RESULT تبقى باللون الاحمر وخلفية الفيلد تبقى اصفر stateالحاجه التانيه حقل - ياخد قيمه اسمها L فى حالة لو قيمة RESULT اقل من low ------------------------ ياخد قيمه اسمها H فى حالة لو اكثر من high زى الصوره بالظبط high or low.accdb