ربط نماذج فرعية برقم خلية معينة

[سلمان عبدالله]

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

اخواني واخواتي أعضاء المنتدى

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

أهنئكم بقرب شهر الرحمة     وتقبل الله منا ومنكم صالح الاعمال         وكل عام وانتم بخير

لدي مشكلة في هذا البرنامج وهي في نموذج (ن_ادخال_العروض) اذا ادخلت عرض جديد واخذ رقم العرض تلقائي وبالضغط على رقم العرض الجديد مرتين لكي يفتح لي النماذج الفرعية لأكمل باقي البيانات اجد ان النماذج الفرعية لم تأخذ نفس رقم العرض الجديد ولم تأخذ أي رقم

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

الرجو المساعدة وتوضيح ذلك

ولكم تحياتي

برنامج عروض اعقار.rar

[كرار صبري _ أبو جنى]

23 ساعات مضت, سلمان عبدالله said:

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

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

اولا : شكل النموذج للبحث و ليس للادخال .

ثانيا : للربط يجب ان يكون لدينا جدولين او اكثر ,

             و نموذج الادخال غير مستند الى جدول ...

[سلمان عبدالله]

اهلين اخي ابو جنى

النموذج للبحث والادخال في وقت واحد

ارجو منك التكرم في حل هذة المشكلة 

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

وللتوظيح اكثر 

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

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

ارجو مساعدتي وشكرا

[سلمان عبدالله]

اخي ابو جنى 

ممكن تعرفني كيف اعملها 

او تتكرم وتحل هذه المشكله

ولك تحياتي

[سلمان عبدالله]

ياجماعة مافية احد يدلنا على الحل 

هذا المنتدى لحل مشاكل الاكسيس 

او ان مشكلتي مالها حل 

حد يقولنا او يساعدنا جزاكم الله خير 

[سلمان عبدالله]

الله كريم

المشكلة مازالت قائمة وين المحترفين   هل ماطلبتة  صعب 

اوضح لكم اكثر 

لدي نموذجين 

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

او دلوني على كود يعملها 

ارجووووووو المساعدة 
وكل عام وانتم بخيررررر

[الساحة البريدية]

وضح المطلوب أكثر ، ماني قادر افهمك

[AlwaZeeR]

كل عام وانتم بخير وتقبل الله طاعتكم

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

ملفك بعد التعديل

جرب ووافني بالنتيجة

::

تحياتي

برنامج عروض waz-اعقار.rar

تم تعديل يوليو 5, 2016 بواسطه alwazeer
ادراج المرفق

[سلمان عبدالله]

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

ماقصرت والله يرزقك من واسع فضلة 

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

وكل عام وانتم واعضاء هذا المنتدى بالف خير وجميع المسلمين

اخي الوزير ياليت تشرحلنا كيف عملتها رغم اني ارسلت مشكلتي لاكثر من منتدى من وقت طويل ولم اجد اي حل

وحدمة صغير اذا ممكن 

في مربع البحث عن رقم الارض اذا كتبت مثلا رقم 22 يعطيني كل الارقام المشابهه مثل 220 و221 و226 وهكذا 

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

وشكرا مرة ثانية

[AlwaZeeR]

في 7/6/2016 at 06:09, سلمان عبدالله said:

في مربع البحث عن رقم الارض اذا كتبت مثلا رقم 22 يعطيني كل الارقام المشابهه مثل 220 و221 و226 وهكذا 

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

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

Dim MyStr As String
MyStr = Nz(Me.Text0.Text, "")
If MyStr = "" Then
    Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض;"
Else
    Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض" & " WHERE (((ج_العرض.رقم_الارض) Like '*' & '" & MyStr & "' ));"
End If

 

في 7/6/2016 at 06:09, سلمان عبدالله said:

اخي الوزير ياليت تشرحلنا كيف عملتها رغم اني ارسلت مشكلتي لاكثر من منتدى من وقت طويل ولم اجد اي حل

عن طريق تحديث الحقل في الجدول، لاحظ في حدث عند النقر المزدوج

::

تحياتي

[سلمان عبدالله]

شكرا اخي العزيز الوزير

بالنسبة للكود استبدلتة بالكون السابق

ولكن النتائج زي ماهي لا يعطي الرقم المحدد

مثل لما اضع رقم 16 يعطيني 161-116-167-216 وهكذا 

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

ادري اني ثقلت علية 

اتمنا لك التوفيق وكثر الله من امثالك

[AlwaZeeR]

Dim MyStr As String
MyStr = Nz(Me.Text0.Text, "")
If MyStr = "" Then
    Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض;"
Else
    Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض" & " WHERE (((ج_العرض.رقم_الارض)=[text0]));"
End If

تفضل ضعه في حدث بعد التحديث لحقل البحث [Text0] واحذف الحدث عند التغيير في نفس الحقل

يعمل البحث بعد الضغط على مفتاح الادخال Enter

جرب ووافني بالنتيجة

::

تحياتي

تم تعديل يوليو 7, 2016 بواسطه alwazeer

[سلمان عبدالله]

انت لا تستحق الشكر فقط 

بل الدعاء لك بالتوفيق 

هذا هو المطلوب ماقصلات وجزاك الله خير

تعبناك معنا 

شكرا اخي العزيز ومع الف سلامة

[سلمان عبدالله]

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

اخي الوزير 

لا تحلرمنا من عطائك

غيرت طريقة النموذج الرئيسي عن الطريقة الاولى لان هذة الطريقة اسهل لي

المطلوب اخي العزيز 

ربط جميع النماذج الفرعية برقم العرض مع نموذج (ن_ف_العرض) وهو الاساسي اريد لما اقف على احد سجلات هذا النموذج في اي مكان من السجل او في خلية رقم العرض ان تاخذ النماذج الفرعية نفس الرقم وهي مفتوحة امامي كي اعدل عليها وهي مرتبطة بنفس رقم العرض 

اليك المثال وستتضح الصورة اكثر

وتسلم ياغالي ماقصرت

ربط نماذج بنموذج العرض 4-10-1437.rar

[AlwaZeeR]

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

اخي الكريم سلمان

يرجى التوضيح اكثر

فتحت المرفق ولم افهم ما تريد

هناك نموذج ن_عروض الاراضي فيه نماذج فرعية 

ونموذج ن_ف_العرض

؟؟

[سلمان عبدالله]

هلا اخي الوزير

نموذج (ن_عروض الاراضي) هذا نموذج فارغ للبحث وجميع النماذج الفرعية بداخلة والشغل كلة بيكون من خلال هذا النموذج

اما نموذج (ن_ف_العرض) وهو الاساسي اريد لما اقف على احد سجلاتة او على خلية (رقم_العرض) بمجرد الوقوف 

تاخذ جميع النماذج الفرعية والتي تكون تحتة مباشرة نفس رقم العرض الذي وقفت علية في النموذج الكبير في الاعلى (ن_ف_العرض) حتى استطيع ادخال باقي البينات في النماذج الفرعية الستة بنفس رقم العرض

ارجو ان اكون وضحت 

شكرا لاهتمامك 

وهنيا للمنتدى بامثالك