لا يتم فتح النموذج اذا كان بلا بيانات

[عبد اللطيف سلوم]

السلام عليكم

عملنا نموذج لا يفتح اذا كان فارغ من البيانات طبحيث وضعنا وسيط مخفي يعد السجلات

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

طيب الان لو بدنا نستفيد من هذا الامر في برامجنا طبعا لا يعقل ان اطلب من مستخدم البرنامج ان يضيف بيانات من خلال الجدول 

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

يتم فتح النموذج رغما انه عدد السجلات صفر

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

 

لا يوجد بيانات.accdb

[husamwahab]

السلام عليكم استاذ عبد اللطيف سلوم

استفسار : فكرة الكود هو انك تسلب اختيار المستخدم اذا لم يوجد سجلات ثم تريد ان تعيد له حرية الاختيار في نفس الكود

اعتقد ان الفكرة غير منطقية  

 

[jjafferr]

19 دقائق مضت, husamwahab said:

اعتقد ان الفكرة غير منطقية

بالعكس ، الفكرة جدا جميلة ، وتُظهر براعة المبرمج وفهمه في تسهيل امور المستخدم 🙂

 

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

بينما الفكرة هنا ، ان نغير اعدادات النموذج :

لجعل النموذج يقبل ادخال البيانات
me.DataEntry = True
me.allowedits = true
me.allowadditions = true  

.

هكذا

 

فيتحول النموذج الى نموذج ادخال بيانات 🙂

 

جعفر

[husamwahab]

استاذي العزيز jjafferr

لا شك عندي ببراعة استاذ عبد اللطيف سلوم 

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

العملية تسبق الادخال الموضوع فتح النموذج او لا

[رمهان]

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

ممكن ادخل شرط اخر وبالعامل and  الاجابه بنعم في الرساله مع عدد السجلات 

هذا ان احسنت الفهم

تحياتي

[عبد اللطيف سلوم]

38 دقائق مضت, husamwahab said:

السلام عليكم استاذ عبد اللطيف سلوم

استفسار : فكرة الكود هو انك تسلب اختيار المستخدم اذا لم يوجد سجلات ثم تريد ان تعيد له حرية الاختيار في نفس الكود

اعتقد ان الفكرة غير منطقية  

 

اخي @husamwahab 

كلامك منطقي

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

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

اذا كان الجواب نعم يفتح لي النموذج 

وصلت الفكرة ؟؟

[husamwahab]

استاذي العزيز عبد اللطيف سلوم

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

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

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

لكن محال ان امنع ادخال البيانات الاولية

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

واعتذر للاطالة

[kha9009lid]

الفكرة جميلة

ممكن نقتبس منها

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

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

عند عدم ادخال المعلومات يتم اغلاق البرنامج

ابداع اخي @عبد اللطيف سلوم

 

[husamwahab]

تفضل اخي العزيز

ارجو ان يكون طلبك

لا يوجد بيانات1.rar

[ابوخليل]

السلام عليكم

ايضا اذا اردنا التخيير بين فتح النموذج لعرض البيانات والتعديل عليها وبين فتحه لإدخال البيانات

Private Sub Form_Open(Cancel As Integer)
If MsgBox("Yes = لإدخال بيانات جديدة" & vbCrLf & _
    "NO = لعرض البيانات والتعديل", _
    vbQuestion + vbYesNo, _
    "عرض وإدخال") = vbYes Then
    Me.DataEntry = True
    Else
    Me.DataEntry = False
    End If
End Sub

 

[عبد اللطيف سلوم]

2 ساعات مضت, husamwahab said:

تفضل اخي العزيز

ارجو ان يكون طلبك

لا يوجد بيانات1.rar 35.76 kB · 3 تنزيلات

نعم احسنت صديقي هذا هو المطلوب

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

السلام عليكم

ايضا اذا اردنا التخيير بين فتح النموذج لعرض البيانات والتعديل عليها وبين فتحه لإدخال البيانات

Private Sub Form_Open(Cancel As Integer)
If MsgBox("Yes = لإدخال بيانات جديدة" & vbCrLf & _
    "NO = لعرض البيانات والتعديل", _
    vbQuestion + vbYesNo, _
    "عرض وإدخال") = vbYes Then
    Me.DataEntry = True
    Else
    Me.DataEntry = False
    End If
End Sub

 

كود رائع 

تسلم معلمنا ابو خليل