محمد طاهر عرفه قام بنشر نوفمبر 26, 2003 مشاركة قام بنشر نوفمبر 26, 2003 المثال موجود فى قسم التقارير http://www.officena.net/ib/index.php?showtopic=1222 حيث أنه به نفس الخاصية للتقارير و المثال من هنا http://www.officena.net/ib/index.php?act=A...pe=post&id=6315 1 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر نوفمبر 28, 2003 الكاتب مشاركة قام بنشر نوفمبر 28, 2003 هنا سنتحدث عن فتح النموذج بالكود سواء بكامل السجلات او علي سجل محدد و هذا يتم باستخدام أمر Docmd.openForm و هذا الامر له ستة معاملات arguments نختار منها ما نريد و نترك ما نريد ليأخذ قيمته الافتراضية الجزء الأول هواسم النموذج المراد فتحه و نكتبه بين "" فيكون الحد الادني للجملة مثلا هو docmd.openForm "form1" و اذا بدأنا نكتب فى الفيجوال بيزيك فسيساعدنا ليذكرنا بمكونات كل جزء بعد كتابة الفاصلة التي تفصل بين الاجزاء المختلفة للجملة .. جرب كتابة فاصلة بعد الجزء الاول و ستري ما أقصد الجزء الثاني هو طريقة عرض النموذج بعد فتحه هل فى وضع العرض العادي ، أو وضع التصميم أو ورقة البيانات ... الجزء الثالث هو اسم فلتر معد مسبقا علي هيئة استعلام ، علي أن يحوي الاستعلام علي الحقول الموجودة فى النموذج الجزء الرابع الشرط و يكون علي هيئة [fieldname] = Forms![formname]![controlname on other form] و هو الجزء الذي استخدمناه فى المثال السابق بان رقم الموظف = رقم الموظف الموجود فى مربع النص فى النموذج الجزء الخامس يعبر عن طريقة فتح النموذج من حيث التعامل مع البيانات ، أي فتح النموذج فى وضعية التعديل أم الاضافة ام القراءة فقط الجزء الأخير طريقة فتح نافذة النموذج عادي - مخفي - Modal .. و الافتراضي هو عادي Normal و فى المثال عندما أردنا فتح النموذج بكامل سجلاته اختر خصائص الزر و من صفحة الاحداث ، اختر حدث عند النقر لتشاهد الكود و هو Dim stDocName As String Dim stLinkCriteria As String stDocName = "FrmMainEmp" DoCmd.OpenForm stDocName, , , stLinkCriteria و هي طريقة منظمة يستخدمها المعالج لاستخدام المتغيرات داخل الجملة كخطوة وسيطة و الكود السابق يناظر DoCmd.OpenForm "FrmMainEmp" حيث أن stLinkCriteria لم يتم اعطاؤه قيمة و علي العكس فى زر فتح نموذج علي موظف معين ، فقد تم تعيين قيمة للشرط stLinkCriteria Dim stDocName As String Dim stLinkCriteria As String stDocName = "FrmMainEmp" stLinkCriteria = "[EmpID]=" & Me![EmpID] DoCmd.OpenForm stDocName, , , stLinkCriteria اي انها تناظر DoCmd.OpenForm "FrmMainEmp", , , "[EmpID]=" & Me![EmpID] هذا حال كون حقل EmpID رقمي اما اذا كان نص فنضيف علامتي '' الي الجملة ، فتصبح DoCmd.OpenForm "FrmMainEmp", , , "[EmpID]='" & Me![EmpID] & "'" 1 رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 16, 2005 مشاركة قام بنشر مارس 16, 2005 المواضيع المشابهة 1) 26/02/2005 تغيير عنوان النموذج حسب الزر الذي يفتحه 2) 19/01/2005 كيف أجعل النموذج هو البداية 3) 03/12/2004 شاشة لوجو للدخول تضم اسم المستخدم وكلمة المرور 4) 16/09/2004 نموذج وكلمة السر 5) 28/02/2004 النموذج لا يفتح فى وضع التعديل 6) 26/01/2004 فتح نموذج علي سجل محدد 7) 26/11/2003 فتح النموذج علي سجل محدد 8) 31/07/2003 تح النموذج على الاسم الذي نريده 9) 12/07/2003 تح النموذج عند أخر سجل تم إضافته أو تعديله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها