كيفية اظهار واخفاء سجلات معينة، وطلب اظهار رسالة تنبيه

[pingo22]

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

اعمل على قاعدة بيانات لعمل متابعة للخطابات مع ارفاق الصور

ولدي طلبين

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

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

وشاكر جزيلا لحسن التعاون من الاخوة الكرام

برنامج متابعة.rar

[kanory]

6 ساعات مضت, pingo22 said:

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

اعمل على قاعدة بيانات لعمل متابعة للخطابات مع ارفاق الصور

ولدي طلبين

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

لم افهم عليك بالنسبة للطلب الاول .... اذا تم اخفائها فيتم اخفائها في النموذج الرئيسي والفرعي معا ..... وعند الاظهار يظهرها جميعا دفعة واحد ... هل هذا هو المطلوب ؟؟؟؟؟

اما المطلوب الثاني .... فستخدم هذا الكود ....

Dim X$
Dim dirr As String
Dim i As String
i = Nz(Me.k_code, 0)
dirr = CurrentProject.Path & "\files\" & i & ".tif"
X$ = Dir$(dirr)
    If X$ = "" Then
        MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist"
    Else
        ShellExecute Me.hwnd, "open", dirr, "", "", 1
    End If

 

[دروب مبرمج]

مشاركة مع الخبير @kanory

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

خذ بعض الافكار الي اضفتها لبرنامجك

- اضفت لك جدول و في داخله كلمة مرور 

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

- تقدر تحتفظ باختيارك في عرض الصفوف و اخفائها للمرة القادة في زيارتك الميمونة

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

 

اتمنى تعجبك الفكرة مجرة افكار خلال لحظات تأمل و اشكرك و اشكر كل من قرأ بتأمل و اعطاني وقته الثمين

برنامج متابعة.zip

[ابوخليل]

جميل جدا ... 

وسنناديك بـــ  مبرمج رايق .. بدلا من دروب مبرمج

[دروب مبرمج]

53 دقائق مضت, ابوخليل said:

وسنناديك بـــ  مبرمج رايق .. بدلا من دروب مبرمج

ابا خليل و الخليل انت و الجمال كله انت 

سمني ما شئت فلا عين تعلوا عن الحاجب و ما انا الا تلميذ متخفي منذ سنين يتابعك و يتعلم منك

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

شكرا لك على كلماتك الطيبة و المحفزة و هي ليست غريبة على معلم كبير مثلك

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

[pingo22]

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

كل الشكر والتقدير للاخوة الكرام kanory اشكرك على تعبك ومجهودك كثيرا

وأخي العزيز دروب مبرمج بارك الله فيك وجعله ف ميزان حسناتك ايها المبدع

هبدا الان بالتجربة ولكن وجب علي شكركم اولا وخالص اعتزازي لكم جميعا