اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by husamwahab,

الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

.

هكذا

image.png.fa82b2db33c7f1b7201f47e0f2b36d62.png

 

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

اخي @husamwahab 

كلامك منطقي

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

الفكرة جميلة

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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


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

 

  • Like 3
رابط هذا التعليق
شارك

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

 

كود رائع 

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information