اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Rawannnna

02 الأعضاء
  • Posts

    81
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه Rawannnna

  1. 13 ساعات مضت, صالح حمادي said:

    السلام عليكم

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

    
    On Error Resume Next

    و لقد قمت بالتعديل على الموضوع و إضافة هذا السطر للكود

     

     

    وعليكم السلام ورحمة الله أستاذ صالح

    اضفت السطر تحت العنوان مباشرة

    لم تظهر الرسالة لكن عناصر النموذج تمددت بشكل كبير

     

    5949a60367a5d_1.png.a9f48a431ed029ec54baae35fdb0e832.png

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

    طبقت كود ملائمة ملء الشاشه للأستاذ صالح حمادي

    وضعت هذا الكود في وحدة نمطية جديدة

    وعند التحميل وضعت كود ( Salah Me )

    5948dc0fcc14b_.png.21410522994a679cf2b7238bbcf6eeae.png

     

     

    ورسالة الخطأ تظهر

     

    5948dc1a941cc_.png.6debee51a5810858454d805e23c977c0.png

     

     

     

    لماذا تظهر هذه الرسالة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

     

    عنوان الموضوع للأستاذ صالح حمادي ( ملاءمة عناصر النموذج في وضع ملأ الشاشة )

     

     
  3. في ‏٠٦‏/‏٠٤‏/‏١٤٣٨ at 21:25, jjafferr said:

    السلام عليكم :smile:

     

    كود بسيط وعمل جبّار:smile:

    شكرا أخي صالح على مشاركتك:smile:

     

    جعفر

    السلام عليكم أستاذ جعفر

    مالمقصود بالوحدة النمطيه ؟؟   (مقتبس : نقوم بإنشاء وحدة نمطية جديدة و نلصق بها الكود التالي:  )

    • Like 1
  4. 7 ساعات مضت, jjafferr said:

    1. الحمدلله:smile:

    2. الاكسس لا يستعمل ملف خارجي مؤقت لحفظ البيانات عند عمل  إضافات سجلات في الجدول ، فهو يُدخل البيانات اولا:

    أ- ثم يسأل اذا المستخدم موافق او لا (هذه رسالة التأكيد التي تظهر لنا قبل الحاق/إضافة السجلات) ،

    ب- وثم يتأكد من شروط الحقل اذا تنطبق عليه او لا (مثلا يجب ان يكون الرقم في الحقل بين 1-12 مثلا)

    وعليه ، فكلما اضاف سجل جديد ، فتلقائيا يكون لكل سجل رقم تلقائي جديد ، والرقم التلقائي اللي ينحذف ما يرجع :biggrin:

    وفي مثل حالتك ، الرقم 2 راح عليك لأنه بين الارقام ، اما اذا اردتي الرقم التلقائي يبدأ من الرقم 4 ويواصل ، فيجب عليك حذف الارقام 34 و35 ، ثم عمل ضغط واصلاح للبرنامج ، ثم ستجدين ان الرقم التلقائي يبدأ من 5 ، الى ان تقومي بعملية الالحاق والالغاء ونرجع لنفس المشكلة:blink:

     

    في الواقع هذه ليست مشكلة في البرنامج ، وانما مشكلة المبرمج ، حيث قلت مرارأ

     

    وهذه الروابط ستفيدك

    و

    جعفر

     

     

    شكرا جزيلا لك أستاذ جعفر

    وبشوف الروابط باذن اللله

     

  5. @jjafferr

    شكرا أستاذ جعفر لشهادتك  ,

    انحلت المشكلة حمدلله  , الله يعطيك العافيه

    لكن لا حظت شي في الترقيم التلقائي في جدول balance 

    الأرقام مو متسلسله 1,2,3,4,5,6

    اذا دخلت صف فالجدول الترقيم التلقائي يحط ارقام كبيرة

    1,3,34,35

    هل هذي المشكلة بسبب استعلام الالحاق ؟

     

    وبالنسبة للصور باذن الله بشوف طريقتها واطبقها بأقرب وقت

    وشكرا لملاحظاتك أستاذ جعفر .

     

     

    ترقيم تلقائي استعلام.png

  6. https://www.mediafire.com/?7io6xidekmh0tdv

    @jjafferr

     
    طريقة الوصول للنموذج
    نموذج Admin home page
    Request status (Botton)
    Purchase Order (Botton)
    يفتح نموذج New Purchase
    وعند النقر على الارتباط التشعبي في النموذج الفرعي وهو رقم الطلب
    يفتح النموذج المطلوب واسمه ( Request Purchase order)
    وهذا النموذج للموافقة على الطلب والخصم من الميزانية
    الميزانية الموجودة بالنموذج هي Current Research budget تسحب اخر قيمة مدخلة فيه
    وهو حقل مخفي عشان نطرحه من تكلفة الطلب Order Cost
    والحقل temp هو نتيجة طرح الميزانية من تكلفة الطلب
    المطلوب :
    ادخال بيانات النموذج الى جدول الميزانية balance
    اولا تغير حالة الطلب من جديد الى موافق وطريقة الدفع كاش
    قيم الحقول المطلوب ادخالها في جدول balance من النموذج Request purchase order
    Research_ID
     نفسه اللي بالنموذج
    User_ID
    نفسه اللي بالنموذج
    Current Research budget
    هي temp الموجودة في النموذج
     
    Deposite
    قيمته صفر
    Withdraw
    هي Order Cost  الموجود بالنموذج
     
    الاستعلام الي سويته اسمه balance insert
    مشكلته يكرر الادخال في كل مره
     
     
     
    • Like 1
  7. 31 دقائق مضت, jjafferr said:

    ولما تستعملين هذا المعيار ، يعطيك اكثر من سجل ، صح؟

    فهذا معناه ان المعيار الواحد الذي في الاستعلام غير كافي ، فيجب ان تضيفي معيار او معيارين اضافيين:smile:

     

    جعفر

     

    حطيت اكثر من معيار وصار مايدخل ولا صف

  8. 2 دقائق مضت, jjafferr said:

    ولما تستعملين هذا المعيار ، يعطيك اكثر من سجل ، صح؟

    فهذا معناه ان المعيار الواحد الذي في الاستعلام غير كافي ، فيجب ان تضيفي معيار او معيارين اضافيين:smile:

     

    جعفر

     

    ايوا يكررها مع هذا المعيار

    طيب بجرب

     

  9. السلام عليكم

    مشكلة استعلام الالحاق تظهر رسالة بتكرار الصفوف 3 مرات بنفس البيانات

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

    عند ادخال البيانات في المرة الأولى ظهرت رسالة بتكرار الصف 3 مرات

    وعند الادخال مره أخرى ظهرت رسالة بتكرار الصف 6 مرات

    والمره الثالثه بتكرار الصف 12 مره

     

    الصور في المرفقات للتوضيح

     

    الحاق 1.png

    الحاق.png

    تكرار الحقل.png

  10.  

    10 ساعات مضت, jjafferr said:

    جعفر

     

     

    شكرا أستاذ جعفر

    لكن المسج مايظهر 

    عدلت الكود ووصار


    Else
    If Len(Me.A & "") =0 Then
    Q2.Visible = False
    MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! "
    End If
    End if
     
    وصار يظهر المسج اذا كان الحقل فارغ
    لكن ابغا المسج يظهر اذا ادخل رقم بحث خطأ غير موجود ؟ كيف يصير الكود
  11. السلام عليكم

    يوجد في هذا النموذج ثلاثه نماذج فرعيه مخفية

    نموذج عند البحث برقم البحث

    ونموذج عندي البحث برقم الشيك

    ونموذج عند البحث برقم الطلب

    وعند البحث برقم البحث يظهر النموذج الفرعي الخاص بهذا البحث ولكن يظهر هذه الرسالة ؟

    ايش المقصود فيها ؟

    59101eff412d1_.png.ebc8bee58df50446a96001ba9c78e9d1.png

     

     

     

    الاكواد.png

     

    الملف المرفق

    للمنتدى.rar

  12. 5 ساعات مضت, محمدنجار said:

    ::: searchcase أقصد بها اسم مربع البحث

    ::: عندها ستصبح الجملة الشرطية :

    
    if me.Research_ID = "approve" then
    me.Query5.visible=true
    else
    msgbox "Search Not Avaliable"
    me.Query5.visible=false
    endif

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

     

     

    شكرا أستاذ محمد تم حل المشكلة

    بوضع هذا الكود

     

     

    DoCmd.Requery
    If [Research_ID] = [d1] Then
    Query5.Visible = True
    frame.Visible = True
    Else
    frame.Visible = False
    Query5.Visible = False
    MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! "
    End If
    End Sub

     

     

     

    • Like 2
  13. 44 دقائق مضت, محمدنجار said:

    ::: اولا عند الفنح للنموذج Current Research يجب ان تكون االكائنات مخفية(الاستعلام والاطار) من خصائص النموذج .

    ::: بعدها نكتب الجملة الشرطية اذا كانت حالة البحث = Approve .

    
    if me.Searchcase = "approve" then
    me.Query5.visible=true
    else
    me.Query5.visible=false
    endif

    ::: Searchcase هو كائن حالة البحث ... بالتوفيق       :::يمكن ارفاق مثال عند تعذر التطبيق

    حالة البحث داخل النموذج المتعدد للاستعلام

    Research status = "Approve

     

    590ec2ba3e8af_.png.68339e8497368cf6bfd8b3c3cf8416fd.png

     

     

     

    590ec3011851b_2.png.337be4d21ad07a8d3725488ca0e4bb6d.png

     

     

     

    طيب أستاذ محمد النجار لو بس يكون الاطار مخفي كيف حيكون الكود

    والاستعلام ظاهر لكن لو وضع رقم بحث وحالته لا تساوي Approve يعطي رسالة حالة البحث غير متاحة

    واذا كان رقم البحث حالته تساوي Approve يفتح الاطار اللي تحت

     

    ‏‏‏‏DBSystem -100.part0000001.rar

  14. السلام عليكم

     

    عندي نموذج اسمه Current Research 

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

    واذا دخل المستخدم رقم البحث وكانت حالة البحث = Approve  يظهر الاستعلام والاطار اللي تحت

    واذا كانت حالة البحث لا تساوي Approve  تظهر رسالة منع للمستخدم

    سويت استعلام Query5  وحطيت عند حالة البحث = Approve

    وحطيت على زر التحكم هذا الكود ومازبط

     

    590eb1cfcb37d_.png.ce3589aeb204084a2a5e989c6a1efd34.png

     

     

    590eb1e30b34c_.png.09f12b83717d7aaf6cb3e6c91e4fc627.png

  15. 3 دقائق مضت, ابا جودى said:

    هذا الكود بتقدرى تغيرى من خلاله لون الفونت اى الخط

    يعنى لما انا اضفته جعلت لون النص ابيض لما بيكون لون التيكست بوكس احمر

    أأأها لان ظهر لون الخط ابيض لما صار لون التسكت بوكس اصفر وكان غير واضح الرقم

    شكرا للتوضيح أستاذ محمد

  16. 35 دقائق مضت, ابا جودى said:

    اختنا الكريمة برجاء كتابة القيم بهذا الشكل

    - مابين (85 الى 135 ) قبل الفطور التكست بوكس باللون الأخضر 
    - اقل من (  85  ) قبل الفطور التكست بوكس باللون الأصفر
    -اكبر من ( 135 ) قبل الفطور التكست بوكس باللون الأحمر

    - مابين (85 الى 135 ) بعد الفطور التكست بوكس باللون الأخضر 
    - اقل من (  85  ) بعد الفطور التكست بوكس باللون الأصفر
    -اكبر من ( 135 ) بعد الفطور التكست بوكس باللون الأحمر

    -------------------------------------------------------------------------

    وكذلك فى الباقى

     

    تم التعديل على كل الخيارات بس

    MS.ForeColor = vbWhite

    ايش الفائدة من هذا الكود ؟

  17. 2 دقائق مضت, ابا جودى said:

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

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

     

    نعم , تقريبا القيم نفسها

    بأجمعهم واشوف النتيجة :)

  18. 1 دقيقه مضت, ابا جودى said:

    الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل

     

    اخر سؤال وبعدها بروح خلاص ههههه :)

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

    يعني راح نكرر هذا الكود على كل خيارات وقت اخذ العينة ... قبل وبعد

    هل اكتفي بخيار قبل الاكل بعد الاكل افضل ؟؟

    بدلا من قبل الفطور بعد الفطور قبل الغداء بعد الغداء قبل العشاء بعد العشاء

     

    • Like 1
×
×
  • اضف...

Important Information