رياض البرعي

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

علما باني قد بحث في المنتدى و وجدت بعض المواضيع ولكن لم يكن لها حل 

ف ان شاء الله لا يكون الموضوع هذا مكرر 

اختيار الكل او ايقاف الكل.accdb

@Moosak
هذا هو المطلوب اخي
الف الف شكر 

جريت الكود و شغال 100%
و افضل من الانترنت اكسبلور حيث كان الاكسبلور بطئ نوعا ما 
 

@Moosak

سوال اخير ياغالي 
هل هناك كود لجعل الاكسس يحفظ التقرير كصوره jpeg  او png 
 

وين الردود 
50 قراءه للموضوع 
مافي حتى رد 
😢

السلام عليكم و رحمه الله 
قد يكون الموضوع مخالفا لشروط ادراج المواضيع في المنتدى و لكن قد بحثت ولم اجد اجابه للمشكلة التي واجهتني 
الكود كان شغال 100%
المشكلة باختصار انه تم تحديث الويندوز 10 الى اخر اصدار 22H2 و بعد هذا التحديث ظهرت المشكلة بان الانترنت إكسبلورر لم يعمل 
فقمت بحذفه و العمل على متصفح مايكروسوفت ايدج و جوجل كروم ولكن دون اي فائدة 
فهل استطيع انشاء كائن في الكود يستغني عن الانترنت اكسبلورر
 

ارسال واتس اب.accdb

اعمل حالياً على انشاء نظام مبيعات ولكن طلب العميل ان يكون هناك نموذج واحد للفاتوره بحيث يريد الفاتوره ان تتحول من الريال الى الدولار او العكس 
علما بان سعر الصنف كذلك يريد تحويله الي الدولار او العكس وليس اجمالي الفاتوره فقط
فهل من طريقه لعمل هذا ...

الف الف الف شكر اخي @kanory هذا هو المطلوب

و جزاك الله الف خير

السلام عليكم و رحمة الله و بركاته

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


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

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

text4.zip

 اخي @رمهان  جزاك الله خيراً على الرد

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

اما الضغط مرة واحدة فينتقل الى الtext التالي

السلام عليكم و رحمة الله و بركاتة

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

text.mdb

السلام عليكم و رحمة الله و بركاتة
عندي تقرير و اريد عند الطباعة اريدة ان يعمل على مسافة بين كل 4 ارقام

كما ارقام الخدش في كروت  التعبئة اي بالشكل التالي
1234 5678 91011 1234

مع العلم ان الجدول تكون الارقام فية بدون مسافات

 

cards.accdb

في ١٨‏/٥‏/٢٠١٧ at 23:44, أمير2008 said:

هلا مستر رياض

سأحاول أن اساعدك في الجزئية الخاصة بالخصم  من المخزن

المفترض :

عدم الارتباط بجدول المخزن أثناء كتابة الفاتورة

وبعد الانتهاء وتسجيل المبلغ الواصل من الزبون

تضغط على زر جديد سويته لك اسمه (حفظ الفاتورة)

فيعطيك رسالة :

اذا أجبت ب (لا) فسوف يتم حذف الاصناف لهذه الفاتورة من جدول تفاصيل 

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

 

طبعا من المؤكد أن هناك تعديلا يفترض أن يتم على مديونية العميل

لكن سأترك هذه النقطة لك 

 

مبيعات 2.rar

تسلم اخي @أمير2008 

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

سلمت يداك
اخي هذا هو المطلوب
و تم الحل
الف الف الف شكر

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

اخي @Shivan Rekany عملت ما قلت علية كما في الكود

Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer
    Select Case KeyCode
       Case 52

DoCmd.OpenForm "جدول البيع"

  
            

       Case Else
           
            DoCmd.Close acForm, "فواتير"
    End Select
End Function

ولكن صارت كل الازرار تستجيب و عملت كذالك if كما في الكود و لكن لم تعمل ابدا فاين خطأي

Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer
    Select Case KeyCode
       Case 52
           
            
            If KeyCode = 100 And Shift = 0 Then 'ÇáÑÞã100 íãËá ÑÞã ÇáÒÑ 4 æÇáÑÞã 0 íãËá ÑÞã ÔÝÊ

DoCmd.OpenForm "جدول البيع"


  

          
           End If
'       Case Else
          

'            DoCmd.Close acForm, "فواتير"
    End Select
  
End Function

فانا اريد ان يكون الفورم الواحد فية اكثر من عملية مثل فتح السندات عند الضغط على زر 1
و فتح المشتريات بزر 2
و فتح التقارير كذلك بزر 3
و المعذرة الشديدة منكم

 

اشكركم جميعا و العفو منكم على التاخير لاسباب خارجة عن ارادتي 

تم تطبيق ما تفضلتم بة و الحمد لله اشتغل 

لكن هناك سوال و ارجوا الا اكون قد ازعجتكم 


هل من الممكن عمل الكود على مستوى قاعدة البيانات بالكامل 

اي ان الكود يعمل في اي فورم دون الحاجة الى تكرار الكود في كل فورم

21 ساعات مضت, ابوخليل said:

المشكلة ان الزر رقم 4 يقابله الرقم 52 وليس 100

استبدل الرقم  100  الموجود بالكود بالرقم 52

وإليك هدية ارقام  لوحة المفاتيح

ارقام لوحة المفاتيحKey ASCII Values.rar

سلمت اياديكم اخواني و اساتذتي 

جاري التجريب 

و ساوافيكم بالنتيجة 

اخي ابو خليل قمت بتجربة الكود على  نماذج في قاعدة اخرى و اشتغل الكود 100% و على أساس  انة 100 هو رقم 4 

و كان معي برنامج بالاكسس نزلتة من المنتدى و كان يعطيني رقم ASCII 

و كنت في كل تجربة اجرب زر و كان شغال تماااام 

ولكن عندما اردت ان اطبقة على نظامي رفض التطبيق 

ساطبق ما قلتم لي و سأوافيكم بالنتيجة ان شاء الله 

السلام عليكم و رحمة الله و بركاتة

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

فهل من مشكلة في نماذج

If KeyCode = 100 And Shift = 0 Then 'الرقم100 يمثل رقم الزر 4 والرقم 0 يمثل رقم شفت
'DoCmd.Close
'عند الضغط على الرقم4من لوحة المفاتيح سوف يغلق النموذج

DoCmd.OpenForm "جدول البيع"

  
End If

مبيعات نسخة 2003 (2).zip

5 دقائق مضت, Shivan Rekany said:

اليك هذا تم عملت التعديل في مشاركتي الاعلاه

وتقدر تستخدم دالة IIF في الاستعلام

هذا هو المطلووووووب  

تسلم اخي
و حفظك الرحمن من كل شر
و شهر كريم و كل عام و انت بالف خير

3 دقائق مضت, Shivan Rekany said:

اهلا بك @رياض البرعي

ما عرفنا في اي منطقة تريد الكود في سامراء او حلب

اي قصدي في الاستعلام ام نموذج
اتفضل اليك هذا الكود

استخدمه في حدث بعد تحديث

Int(Int(Me.Text0) / 10) * 10

تيكست 0 هو اسم مربع نصي تبعك

تسلم اخي @Shivan Rekany

هذا هو المطلوب و لكن اريد ان يكون التقريب الى الاعلى
اقصد مثل 203 يتم تقريبها الى 210
وليس 200

اريدة في استعلام
و كذلك في نموذج

يعني الاثنين بارك الله فيك

السلام عليكم ورحمة الله و بركاتة
 

عندي نوذج فاتورة  و في اجمالي الفاتورة يكون الرقم الصحيح ك 233 او 231  اريد ان يتم تقريب هذه الارقام الى 240
اي ان
251 تقرب الى 260

256 يقرب الى 260

و هكذا
 

مع العلم بحثت في المتدى ووجدت فقط دوال التقريب ارقام الكسور مثل 2.5 تقرب الى 3 و هذا غير مطلوب معي

الرجاء المساعدة

كل عام وانتم بخير اعاد الله رمضان عليكم بالخير واليمن والبركات

السلام عليم و رحمة الله و بركاتة 
عندي نظام مبيعات و اريد جعلة يعمل على قرص صلب 

و بحثت في المنتدى  و وجدت موضوع و عملت على تطبيق هذه الخطوات و لكن كان لازم اضيف مكتبة (Microsoft WMI Scripting v2.1 library) و عندالمحاولة لاضافة المكتبة ظهرت لي مشكلة عدم القدرة على الدخول Refrences بسبب وجود كلمة مرور قد عملتها قبل سنوات و نسيتها تماما
و حاولت ان افك الحماية ببرنامج Advanced Office Password Recovery ولكن لم يفلح 

فهل من طريقة اخرى لجعل النظام يشتغل على قرص صلب معين

الو وين الخبراء 

هل من حل لمشكلتي 

الوووو

وين الاجابات

الرجاء الاسراع من اهل الخبرة

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