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

لم انجح في رفع الملف 

اعاني من بط في الاتصال و اضافة الرد ياخذ وقت اطول علي غير العادة

اخي الكريم : ماجد

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

عندما يقوم صاحب السؤال بوضع سؤاله لمجرد استفسار بسيط فإنه يتلقى الإجابه السريعة على ذلك لأنه يريد معلومه معينه فقط

اما اذا قام صاحب السؤال بوضع سؤال وهذا السؤال يستلزم وجود قاعدة بيانات للتعديل عليها او لتصحيح خطأ ما لم يستطع حله ولكنه لم يقم بإرفاق الملف فهنا يكون التأخير الى ما شاء الله وقد لا تجد احدا يلتفت الى المشاركه ابدا لأنه ليس هنا في المنتدى وضع امثله او برامج لصاحب السؤال .

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

فكما هو الحال الآن معاك انت بارك الله بك اذا لم تقم بإرفاق قاعدة البيانات التي تريد وضع الحلول لها فقد يطول بك المقام في الإنتظار لمدة 100 سنه هذا اذا احد الأعضاء تكرم وشاهد مشاركتك 

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

بالتوفيق

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

انا اسف جدا 

فانا حاليا اعاني من صعوبات في الاتصال بالنت 

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

http://www.gulfup.com/?rPzIGz'>

وانا عتذر مجدد الخطاء كان رغما عني 

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

طبعا اخواني المشكلة تكمن عند النقر علي الزر ( عرض العنوان/الملاحظة) الموجود في نموذج ( عرض قائمة الاعضاء) 

حيث لا يمكن تمرير قيم للمتغير : اسم النموذج الرئيسي و اسم النموذج الفرعي واسم مربع النص للدالة mynote

ارجو المساعدة وشكرا جزيلا لكم 

اخي الفاضل : ماجد

لا اعتقد ان الطريقة التي يتم استخدامها في الدالة صحيحه

لأن كل محور متغيرات الدالة تتركز على النموذج الرئيسي والفرعي ومربع النص والتي هي موجوده اصلا في الدالة فليس هنا شيء جديد في ذلك

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

Dim frm As Form

لاحظ معي التصريح عن النموذج بـ frm  

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

اما بطريقتك في الدالة التي انت كتبتها فلا اعنقد انها تلبي ولا حتى 1% من احتياجات الدالة العامه

ولذا بارك الله بك عند استخدامك مثلا للدالة الخاصة بك يجب ان تجبر المستخدم على تمرير اسم النموذج الرئيسي والفرعي ومربع النص المطلوب ويتم كتابتها او اختيارها وهذا شيء صعب على المستخدم .

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

Private Sub Form_Open(Cancel As Integer)
Me.notetextbox = DLookup("[field3]", "t1", "[field1]=" & Forms![form1]![form2].Form![field1])
End Sub

za-note-UP.rar

السلام عليكم 

شكرا جزيلا لك استاذة زهرة

الف شكرا ,,,,