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

مربع تحرير وسرد لا يعمل


إذهب إلى أفضل إجابة Solved by Eng.Qassim,

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

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

 

 

رقم الشقة.png

عقاري.rar

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

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

@Eng.Qassim

 

 

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

18 دقائق مضت, محمد احمد لطفى said:

تأكد من المرفق 
            ليس به نماذج
                        به جداول مرتبطه فقط 😇
                                  بالتوفيق

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

 

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

57 دقائق مضت, محمد احمد لطفى said:

أها لذلك النموذج لم يعمل لأن الجداول غير موجودة 😇

اعتذر لك اخي عندك  حق 

 

اليك اخي المرفق الصحيح

 

عقاري.rar

منذ ساعه, Eng.Qassim said:

يظهر لي نموذج فقط..ليس في القاعدة اي جداول

اعتذر استاذي القدير 

الخطأ من عندي عملت تقسيم لقاعدة البيانات 

ارفقت الملف الصحيح اخي الحبيب

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

6 ساعات مضت, Eng.Qassim said:

لماذا لم تعملها كبقية الفلترة ؟

 

عقاري.rar 271.6 kB · 5 downloads

سبحان الله جل من لا يسهو سبحانه

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

ولكن عند كتابة رقم الشقة باليد والضغط انتر  تعطي بيانات خاطئة فكيف يحدث هذا اخي الحبيب

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

8 ساعات مضت, Eng.Qassim said:

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

النموذج تم عمل حدث في الحالي     Me.tblExpenses_e.Form.AllowEdits = False  فما معني ذلك

و مربع التحرير والسرد المسمي cbof تم عمل حدث بعد التحديث   

'[Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'"
'[Forms]![eradat]![tblExpenses_e].Form.FilterOn = True


If Len(Me.cboF & vbNullString) > 0 Then
  [Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'"
  [Forms]![eradat]![tblExpenses_e].Form.FilterOn = True
Else
  [Forms]![eradat]![tblExpenses_e].Form.FilterOn = False
End If
 

فممكن شرح مبسط لذلك اخي الحبيب 

وحضرتك وعدتني بشرح مبسط اخر للدالة IIf(Mid([flatNo];3;2)="00";1;0) مع كتابة <>1  في المعيار

 

اسف ان كنت اثقل عليك اخي 

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

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

على كل حال ..

1 ساعه مضت, ابو عبد الرحمن اشرف said:

Me.tblExpenses_e.Form.AllowEdits = False

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

ناتي لمربع التحرير cbof 

If Len(Me.cboF & vbNullString) > 0 Then

معناها اذا طول الكلمات الموجودة في مربع التحرير والسرد اكبر من 0 فأعمل الاتي 

[Forms]![eradat]![tblExpenses_e].Form.Filter = "[flatNo] = '" & Me.cboF & "'"

اجعل الحقل الموجود في النموذج الفرعي وهو حقل الشقق = الحقل الموجود في مربع التحرير والسرد 

وطالما اننا جعلناهم متساويان ..فيجب ان نعطي الامر بالتصفية ...وهنا يأتي الامر :

[Forms]![eradat]![tblExpenses_e].Form.FilterOn = True

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

[Forms]![eradat]![tblExpenses_e].Form.FilterOn = False

لا اعلم ...ان كنت اوصلت الفكرة ام لا ؟

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

منذ ساعه, Eng.Qassim said:

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

على كل حال ..

مين قال ان حضرتك لم تتمكن من ايصال المعلومة 

تبارك الله لا قوة الا بالله شرح حضرتك وافي وكافي وبارك الله فيك اخي لقد فهمت الان ووصلت الفكرة 

 

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

  • 2 weeks later...
في 19‏/5‏/2023 at 11:44, Eng.Qassim said:

@Eng.Qassim

اخي الحبيب كيف يتم اخفاء شقق معينة ( 1307) و (1308) في نموذج erad فقط ويظهروا في نموذج الارشيف في البيانات السابقة

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

عقاري.rar

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

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