الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اخفاء القيم المعروضة

مغلقمُجاب
بدأه kafi في 8 يونيو 2014 · 11 رد · 1,054 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

 

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

 

الامور كلها سليمة مائة بالمائة والحمد لله

 

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

 

ارجو ان تكون فكرة السؤال قد وضحت.

 

كيف السبيل الى ذلك ؟؟؟

 

ارجو التوجيه

 

بارك الله فيكم

 

 

post-32358-0-74012600-1402178049_thumb.j

#2

جرب استخدام الأمر التالي 

Me.اسم مربع النص.Visible = False

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

 

تحياتي

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#3

شكرا اخي

sandanet

على اجابتك

 

مااريده ليس اخفاء عنصر ما، بل اريد ان اخفي البيانات المحملة الى النموذج الفرعي والتي مصدرها استعلام

#4

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

وهناك طريقة أخرى قد تنفع وهي عند الضغط على الزر فإنه يتم تطبيق أمر تشفير للسجلات بذلك سوف لن يتعرف أحد على محتوى البيانات إلا إذا ضغطت على زر آخر أو خرجت من النموذج على حسب ماتريد .. فأيهما تفضل؟ 

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

 

 

مواضيع مفيدة

 

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#6

شكرا اخي

sandanet

على تواصلك معي

 

شكراً اخت زهرة

على اجابتك

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

 

تم تجريب المثال الذي تم ارفاقه من قبل الاخت زهرة وهو جيد، ولكن اخت زهرة هل بالامكان اخفاء البيانات من النموذج دون اخفاء النموذج

حاولت كتابة الكود التالي في حدث التحميل

Me![Order_Details].RecordSource = ""

ولكن لم ينجح الامر

 

ارجو ارشادي الى طريقة اخفي بها البيانات من التحميل داخل النموذج، دون اخفاء النموذج

 

والف الف شكر

 

post-32358-0-74937900-1402345517_thumb.p

post-32358-0-20588800-1402345555_thumb.p

#7

جرب الطريقة رقم 180 ذهاب وعودة

-

-

za-Hide&ShowSubform 2.rar

1
#9

ههههههه

حلوة فكرة اللون الابيض

 

أ/ kafi  توجد طريقة 219 المعدلة ، بس سيادتك تتحمل مسئولية تشغيلها في النموذج !!

لأن أحياناً النموذج يختفي ولا يظهر أبداً

#10

السلام عليكم

شكرا اخ / امير - شكرا اختي زهرة على تواصلكم معي

 

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

 

فعلاً ما تفضلتم به، حقق ما كنت اصبو اليه، ولكن بقي شي وحيد

 

وهو بعد ان يتم الضغط وتختفي المعلومات........اريد عند الضغط مرة ثانية الا تظهر المعلومات من جديد مباشرة، الا بعد ادخال كلمة السر الصحيحة.

 

حاولت وعدلت المثال..........ولكن لم ينجح الامر معي

 

ارجو الاطلاع على المثال ، وتصويبه

 

والف الف شكر

 

post-32358-0-86093900-1402516716_thumb.j

post-32358-0-86422400-1402516776_thumb.j

post-32358-0-98720600-1402516843_thumb.j

za-Hide&ShowS ubform - password.rar

post-32358-0-16791100-1402517287_thumb.j

post-32358-0-82311700-1402517331_thumb.j

تم تعديل هذه المشاركة بواسطة kafi في 11 يونيو 2014 في 23:09

#11 أفضل إجابة

تفضل اخي الكريم

 

 

 
قبل التعديل
Private Sub cmd_Show_Click()
If Me.x = 1 Then
    Forms![Orders]![Order_Details].RecordSource = "Order Details"
    DoCmd.Close
 Else
 MsgBox ("خطأ في كلمة السر")
 End If
End Sub
 
بعد التعديل
Private Sub cmd_Show_Click()
If Me.x = 1 Then
    Forms![Orders]![Order_Details].Form.RecordSource = "Order Details"
    DoCmd.Close
 Else
 MsgBox ("خطأ في كلمة السر")
 End If
End Sub
 
الخطأ انك لم تضع كلمة Form للنموذج الفرعي
 
 
 
 
بالتوفيق
2

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#12

الف الف شكر

اخت زهرة

على التوضيح

 

بارك الله فيك

هذا الموضوع مغلق.

مواضيع مشابهة