نجوم المشاركات

إخوتي الفضلاء التطبيق الذي سنعمل عليه اليوم ، تطبيق يلزم بعض الإخوة الذين يعملون على الشبكات المحلية الذين يحتاجون تخصيص طابعة معينة لطباعة كل تقرير ، لغايات مختلفة وأسباب مختلفة حسب ظروف المستخدمين وغايات التطبيق أو التقرير. الغاية المشودة الوصول لتحديد طابعة معينة لطباعة تقرير معين بعيداً عن الطابعة الافتراضية للجهاز. وسنقوم هنا بتفصيل الإجراءات ومراحل التطبيق لغايات التوضيح بشكل دقيق قدر الامكان سعياً لعموم الفائدة ، وسعياً لما يكثر تداوله في المنتدى من الحاجة لتوضيح وشرح التطبيقات المقدمة. نبدأ تطبيقنا كما يلي : · انشاء نموذج وفتحه بعرض التصميم · ننشيئ مربع تحرير وسرد جديد : نستخدمه لعرض التقارير الموجودة في التطبيق ، باستخدام كائنات النظام . يكون اسم المربع cboReport ويكون نوع مصدر الصف Row Scurce Type هنا Table/Query ويكون مصدر الصف Row Scurce هنا : SELECT MsysObjects.Name FROM MsysObjects WHERE (((MsysObjects.Name) Not Like "~*") AND ((MsysObjects.Type)=-32764)) ORDER BY MsysObjects.Name; حيث نقوم بذلك باختيار جميع التقارير ، والتي تعرف بالنظام بانها من نوع 32764 ، ونقوم بترتيبها حسب الاسم .........

ممكن الكود التالي: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Trim(TextBox1)) = 0 Then Cancel = True End Sub