ربط بين حقلين.

[لاتبخل]

سلام عليكم جميعا

 ممكن شرح طريقة ربط بين حقلين

https://up.top4top.net/downloadf-1137d3tw31-zip.html

 

 

[محمد قاسم 12]

الملف به فيروس

 

[لاتبخل]

تحميل الملف

تحميل الملف

[jjafferr]

تفضل 🙂

.

.

.

.

.

.

جعفر

1011_test.accdb.zip

[لاتبخل]

الف شكر  على المجهود والمساعدةjjafferr   

صار في اختلاف 

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

رابط التحمــــيل

تم تعديل فبراير 13, 2019 بواسطه لاتبخل

[jjafferr]

عفوا ، يجب تغيير الصفر الى واحد ، الكود الصح هو 

Private Sub Sub_AfterUpdate()

    Me.LETTERS = Me.SUB.Column(1)
End Sub

 

جعفر

[لاتبخل]

شكر لك  تم 

[لاتبخل]

مشكلة الرسالة مو كامل  تضهر ناقصه  

 

[jjafferr]

وعليكم السلام 🙂

 

الظاهر ان الحقل من نوع مذكرة في احد الجداول ، ومن نوع نص في الحقل اللي في الصورة اعلاه ، لذلك فهو يأخذ 255 حرف فقط !!

 

جعفر

[لاتبخل]

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

 

[jjafferr]

الظاهر ان البيانات لما تخرج من مربع السرد يعطي 255 حرف فقط ،

لذلك تفضل هذه طريقة ثانية 🙂

 

جعفر

1011_test.accdb.zip

[لاتبخل]

سلام jjafferr

ممكن شرح كود

 Me.LETTERS = DLookup("[Letters]", "SubLetters", "[ID]=" & Me.SUB.Column(1))
 

اريد استخدامة في برنامج ثاني حاولت بس ما صار 

 

[A7MD M7MD]

Me.LETTERS = DLookup("[Letters]", "SubLetters", "[ID]=" & Me.SUB.Column(1))

Me.LETTERS >> اسم الكائن على النموذج والذى تريد اظهار المحتوى المطلوب من خلاله

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

DLookup("[FieldName]", "TableName", "Condition=" & xxx)

بالعربى كده اجلب قيمة الحقل(FieldName) من الجدول (TableName) بشرط (عندما تكون قيمة حقل اخر في الجدول ) = xxx ( كائن على النموذج)

[fuadco]

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

استاذ جعفر شكراً على معلوماتك القيمة وابداعك المستمر

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

ارجو تطبيق الشرح على نموذجي والافادة ولك خالص الشكر ولجميع الاعضاء المشاركين

الارشفة الالكترونية.rar

[Eng.Qassim]

منذ ساعه, fuadco said:

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

وعليكم السلام..

المفروض ان تفتح موضوع جديد وتسأل ما تشاء...ثانيا ..نصيحة ان لا تستخدم مسميات الاكسس مثل Name

انزل الحقلين ..واجعل عدد الحقول 2...الاكسس يقرأ العمود الاول 0 والعمود الثاني 1 وهكذا 

 

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

Private Sub sName_AfterUpdate()
Me.No_Pro = DLookup("[No_Pro]", "projects", "[No_Pro]='" & Me.sName.Column(1) & "'")
End Sub

 

[fuadco]

بش مهندس قاسم اولاً اعتذر لعدم فتح موضوع جديد لأني اعتقدت ان الموضوع مرتبط فأكملت على السابق

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

فعلاً ضبطت معي الله يرفع قدرك ويسعدك 

جزاك الله خير ورحم الله والديك

 

[fuadco]

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

هل يختلف الامر عن السابق ؟

 

الارشفة الالكترونية.rar

[Eng.Qassim]

24 دقائق مضت, fuadco said:

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

لان عمل مربع التحرير يختلف عن عمل مربع النص

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

[fuadco]

تمام يعطيك العافية اخوي شاكر لك تفاعلك