MMA_EG_Cairo

أخي الكريم ، تحياتي لك ولجميع الأعضاء ، لاحظ الكود ، فأنا لا أستخدم سوي أبسط الطرق ، ألا وهي الآداة Driver !!! فقبل جلب نوع الدرايفات قمت بإجراء ( Drive1.Refresh ) ، فهذا العمل يؤدي الي جلب التحديثال الجديدة للدرايفات !!! وإذا وضعنا الكود الموجود داخل CommandB…

أخي الكريم ، تحية طيبة وبعد ، برنامجك الخاص قمت بصناعة ملف إعداد ( Setup ) له ، فلكي تود حذف هذا البرنامج بعد إنتهاء الصلاحية فيجب عليك فهم عمل الـ Setup !!! 1- حذف المكتبات المرتبطة من مسجل النظام . 2- حذف رابط التنصيب من قائمة Add Or Remove Program . 3- إغلا…

الـ Unique Index هو فهرس ، و الـ Simple Index أيضاً فهرس !!! ووظيفة الفهرس بوجة عام هو تسريع العمليات علي حقل أو مجموعة من الحقول !!! ولكن الفرق بينهما أن Unique Index هو حقل مفهرس بدون تكرار ، علي سبيل المثال الرقم الكودي للموظف يجب إضافة Unique Index علية بح…

أخي الكريم ، أنظر الملف المرفق ، ستجد ثلاثة أمثلة يمكنك إختيار ما تشاء ، شكراً Report.rar

رجاء البحث فستجد من هذا الموضوع كيراً Set Pictur1.formattedPicture= Loadpicture("c:\mypic.jpg") شكراً

نفرض أننا لدينا جدول tbl يحتوي علي حقل fld ، كيف يتم جمع الحقل وعرضة النتائج للمستخدم : Data1.Database = App.Path & "\Data.mdb" Data1.RecordSource = "Select Sum(fld) As SumFld From tbl" Data1.Refresh Text1.Text = Data1.Recordset.Fields("SumFld").Value ''أو. 'T…

علي فكرة ، هذه الطريق هي التي كنت أتحدث عنها ، بس هناك شيء غريب لم يحدث معي من قبل ، عند إنشاء متغير ( Dim Arr() As String ) وإرسالة للغرض يعطي لي نتيجة ( صفر ) !!! وعند إنشاء متغير كما يلي يعطي لي نفس الناتج : Dim Arr() As String ReDim Arr(10) Me.Caption = Ar…

شكراً أخي ، msayed2004 ، فعند قرائة موضوع الأخ ( moon3000 ) حوالي الساعة الثامنة صباحا تقريبا ًكنت أحاول البحث بأرشيفي الخاص !!! علي العموم ها هو ما توصلت إلية !!! وهو عبارة عن تابع API ، تحت إسم GetDriveType ، فقمت بإنشاء Drive وإجراء Refresh علية ومن ثم عمل …

أخي الكريم ، هناك العديد والعديد من الأمثلة الموجودة بالمنتدي ، ومهما بلغت الأشكال فالفكرة واحدة ، كل ما عليك إنشاء جدول Admin يحتوي علي إسم المستخدم وكلمة المرور ( وذلك كما مرفق بمثالك ) . وبعدها يتم إنشاء نموذج يحتوي علي 2 مربع نص ( TextBox ) ، ومعها زر أمر …

أختي الكريمة ، هناك أدوات أخري أفضل من أدوات ميكروسيوفت خصوصاً آداة الجريد !!! أبحثي في المنتدي ستجدي مشاركات تحتوي علي أمثلة لآداة vsFlexGrid شكراً

أخي الكريم ، تحية طيبة وبعد ، كل ألي أعرفة عن حساب مساحة ومحيط الدائرة هو نفس ما يوجد بالرابط المرفق بحيث أن يتم حساب : 1- المساحة = 1.44 × نصف قطر الدائرة أس 2 2- المحيط = 2 × 1.44 × نصف القطر أولاً ، الطريقتين سهلين ووضحين ، فماذا تقصد بالضبط ؟؟؟ ثانياًً ، ن…

إجراء عملية البحث ، ولكن هذه مجرد بدائيات ، شكراً FindField.rar

إنتي خلتيني أرجع 6 سنين للخلف !!! أممممممممممممممممممممم علي العموم أنا عملت مثالين ، الأول مصمم بآداة DataControl أما الثانية مصممة بآداة Adodc بأبسط الطرق !!! أتمني من هذا المثال مقنع بالنسبة لكِ علي أن الآداة Adodc أفضل بكثير من DataControl !!! مع العلم أنن…

CRViewer1.Zoom 1 ',2,50,75,100,150,200 بالتوفيق

أخي الكريم ، إذا كنت ترغب التعامل مع الكريستال الحديث بنفس ما كنت تتعامل مع كريستال 4.6 ، يمكنك ذلك مع فروق بسيطة في تغيير الواجهات وزيادة في الإمكانيات !!! أبحث في المنتدي جيداً وستجد العديد والعديد من الأمثلة التي تشرح الكريستال بوجة عام شكراً

أخي الكريم ، وجدت الأخطاء التالي ، أولاً : أنت مثبت مسار قاعدة البيانات في خاصية DatabaseName في المسار التالي : C:\Program Files\Microsoft Visual Studio\VB98\المفكرة الشارقية2\data1.mdb ففي حالة نقل قاعدجة البيانات في مسار آخر من الطبيعي أنك ترغب في تغيير مسا…

لأ علي فكرة ، وشيق جداً يمكن علشان لم نتعامل مع هذه البيئة من قبل الله أعلم

هوا بصراحة أنا لدي فكرة بسيطة جداً وهو إستخدام ADODB.Recordset دون الإتصال مع أي مصدر للبيانات كذاكرة مؤقتة ، وعند إغلاق البرنامج ينتهي كافة المعلومات الموجودة بالـ Rs التابعة لمكتبة ADO . أنظر المثال التالي : Option Explicit ''Import from references --> Micro…

Static intShowForm As Integer intShowForm = intShowForm + 1 If(intShowForm <= 5)Then Form2.Show End If

أخي الكريم ، تحية طيبة وبعد ، أنظر الي هذا الرابط ، حيث تم مناقشة هذه المشكلة بمنتدي المحيط ، ( كيف يتم عمل ترقيم بالتصور الآتي ) وكذلك أنظر الملف اللمرفق ، حيث قمت بتحويل الترقيم بنفس الأسلوب المطلوب !! شكراً GetSerial.rar