الغملاسي

السلام عليكم نصنع New Formula ونعطيه اسم مثلاً HideMyPageHeaderAfterPageOne ونكتب في القيمة التالية : IF PAGENUMBER > 1 THEN TRUE ثم نذهب للـ Page Header ونضغط بالزر الايمن ونختار Section Expert ثم نضع علامة صح على القيمة Suppress (No Drill-Down) ثم نضغط على ز…

والله أعلم من الـ Page Setup يتم تنسيق صفحة التقرير.

السلام عليكم إضافة على ماكتبه الاخوان.. في الـ Formula إنشئ جديد و أدرجه في التقرير ثم أكثب التالي فيه. If {tb_1.Availability} = True Then 'نعم' Else 'لا' بالتوفيق إن شاء الله.

السلام عليكم الطريقة أن تعمل ثلاثة ممررات في إجراءٍ ما , الاول يأخذ اسم عنوان الحقل Header Text و الثاني يأخذ اسم الحقل FieldObject Name و الثالث يأخذ قيمة منطقية Boolean Value لإخفاء أو إظهار الحقل. وعن طريق عناصر التقرير تقوم بإخفاء الحقل الغير مرغوب فيه أو …

السلام عليكم شكراً جزيلاً على هذا الدرس الرائع..

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

لا شكر على واجب يا عزيزي

السلام عليكم بالنسبة لما ذكرت أخي الكريم. فالاولى أن يكون عن طريق العلاقة في الـ DataSet أولاً لانها Strong Type بحيث أي جدول كأب مرتبط بأبناء لن يتم حذف صف فيه إلا إذا تم حذف الصفوف المرتبطة بهي في جدول الابن قبل ذلك. و من خلال العلاقة كما تعلم تستطيع ان نظهر…

السلام عليكم شكراً على المجهود المبذول في إصال العلم للجميع. لا داعي للعجلة’, فهذه الافلام باقيمة ما بقي هذا الموقع و بالمناسبة هذه الافلام عبارة عن قطرة في بحر, وهو بالمجمل ربما يحتوى على أكثر من 3 GB من الافلام التعليمية, والموقع ليس مجاني ولكن ليس مبالغ في …

استخدم الثوابت البرمجية ومنها الثابت Const وهو vbCrLf إليك ذلك. Me.TextBox1.Text &= vbCrLf & "Second Line goes here " Me.TextBox1.Text &= vbCrLf & "Third Line goes here " بالتوفيق إن شاء الله.

السلام عليكم استخدم محرك البحث قبل المضي في كتابة مشاركة متكررة , أحسن الله إليك. راجع الرابط التالي السلام عليكم.

السلام عليكم حياك الله أخي العزيز بالنسبة للكود في الاعلى هنالك بعض المنطق الغير مقبول و هو مطول إلى حدٍ ما على سبيل المثال قد استخدمت Exit For في حلقة دون شرط أو قيد وهذا نوع من التضارب في المنطق . على كل حال منطق الحذف من الـ DataGridView وفقاً لاختيار المست…

السلام عليكم مثل ما قال الاخ الكريم System Down لا داعي لجلب كل البيانات و إنما أجعل عملية الجلب تعتمد على عملية البحث ( اي اجلب ما تم البحث عنه فقط ) لكن للتنويه فقط إذا كان الجدول ذوي حقول كثيرة, فلربما تراجع تصميم ذلك الجدول من جديد.. والتدارك في بادئ الامر…

السلام عليكم كلامك صحيح Romantic_touch 100%100 من حيث المنطق بارك الله فيك اخي على التنبيه والملاحظه النيرة لكن هنا لن تحدث مشكلة لآنه القيمة تأخذ من المتغير و توضع في الرسالة و الوظيفة Format ترجع قيمة نصية وعملية الـ Convert لجلب قيمة صحيحة للمتغير ومن ثم نه…

السلام عليكم إذا كانت هنالك DataSet و جدول DataTable فالامر سهل للغاية , شاهد المثال التالي: Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Try 'Establish The Connection String Cnn.ConnectionString = _ …

السلام عليكم نعلم حلقة للبحث عن أعمدة الـ DataGridView ثم نتحقق هل نحن على عامود الرواتب مثلاً , فإن تحقق الشرط نعمل حلقة داخلية Nested Loop و نقوم بجمع القيمة في متغير ما , إليك ذلك. Dim TotalValues As Integer = 0 For i As Integer = 0 To Me.ProductsDataGridVi…

السلام عليكم أربط كل العناصر بالاعمدة , فقط وستخدم الـ BindingMangerBase Object إذا كان المشروع 2003 أو BindingSource Object إذا كان المشروع 2005 فقط لا غير. أما إذا كان الاسم في جدول و البيانات في جدول أخر , فيفترض أن تكون عملت RelationShip علاقة بين الجدولين…

السلام عليكم إذا كان المتطلب أن يتم طلب ملف المساعدة بالضغط على الزر F1 من اي مكان على النموذج دون تحديد. فالطريقة كالتالي : أولاً نعمل بمنطق ما يعرف بـ Recursion وهذه التقنية ستمكننا من وضع حدث ما نقوم بتعريفه و نلصقه في كل العناصر المتواجده في النموذج مع الن…

السلام عليكم للكتابة في ملف ثنائي القيمة Binary يتطلب علينا التالي: أولاً إنشاء متغير من نوع BinaryWriter ونحدد من خلال الممرارت له اسم الملف و طريقة التعامل معه مثلاُ فتح أو فتح ام إنشاء أو إنشاء ... إلخ.. بهذا الشكل : Dim bw As New BinaryWriter( _ File.Open(…

السلام عليكم تم أضافة المرفق من جديد.