mrx_ta7ady

لا يوجد أي علاقة بين توسيط الـ Form وبين الـ ScrollBars بينما يظهر هذا الـ Scroll آليا عندما يزيد عرض الـ Forms المفتوحه عن الـ SacleWidth للـ MDIForm وكذلك عندما يزيد إرتفاع الـ Forms المفتوحه عن الـ ScaleHeight للـ MDIForm ووظيفته هذا الـ Scroll ان يسمح للمس…

إرفع مثال وأعد توضيح المطلوب لتأكد لي أن ما فهمته صحيح .. وانتظر مني التعديل فور رفعه ان شاء الله

لو ممكن تخصصلي نسخه للتعديل عليها اكون من الشاكرين النسخه الموجوده لدي من الواضح انها تختلف كثيرا عن ما توصلت اليه ومن أفضل ذكر نص الرسالة الدالة على وجود المشكلة المقصوده وذكر السطر المؤشر عليه وقت ظهور المشكلة :)

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

ضع السطر أدناه في الحدث Load للـ MDIForm Calendar = vbCalHijri ليصبح الإجراء بأكمله هكذا : Calendar = vbCalHijri ConData End Sub Private Sub MDIForm_Load() والـ Calendar هذه هي المسؤلة عن طريقة عرض التاريخ في المشروع بأكلمه أي حين تغييرها إلى vbCalHijri أصبح ا…

في حالة ان الأداة داخل الـ eXe فعليك بوضع متغير في منطقة تصريحات الـ Form من نوع Public Public MYParent As UsuerControl1 والـ UsuerControl1 أقصد به إسم الأداة والـ MYParent هو إسم المتغير أما إذا الأداة مخصصة لتكون ocx فقط .. فعليك وضع Property من نوع Friend د…

قم بإنشاء مشروع جديد وضع بداخله Text1 و Text2 و Command1 .. ثم ضع الكود أدناه في الـ Form If Val(Text1) = 5 And Val(Text2) = 10 Then MsgBox "تم تحقق الشرط" Else MsgBox "لم يتحقق الشرط" End If End Sub Private Sub Command1_Click()

قم بإنشاء مشروع جديد من نوع Standard وضع Timer1 داخل الـ Form1 .. ثم ضع الكود أدناه في الـ Form1 Timer1.Interval = 60000 End Sub Private Sub Timer1_Timer() Static Counter As Double If Counter = 9 Then MsgBox "غشر دقايق" Counter = 0 Else Counter = Counter + 1 E…

بإمكانك وضع شرط البحث بدلا من الشرط الذي وضعته انا .. ما وضعته انا كان مجرد مثال كما ان الشرط الذي وضعته هو عندما يكون الـ ID أكبر من وعندما يكون أصغر من وليس عندما يكون أكبر من أو يساوي وعندما يكون أصغر من او يساوي :) وبالتوفيق إن شاء الله SaveAsWithCDialog_s…

تتم عملية الإسترجاع بحذف قاعدة البيانات الحالية ونسخ قاعدة البيانات المحددة إلى المسار الـ Default للبرنامج App.Path & "\db1.mdb" شرط اساسي ان لا يكون هناك اي اتصال بقاعدة البيانات .. سواء من برنامجك او من اي برنامج آخر SaveAsWithCDialog_shadi.rar

يجب ظبط الـ Connection String بالـ Code مع كل حدث Load لأي Form يحوي أداة ADODC ولكل أداة يجب ظبط الـ Connection String لها .. أي لو افترضنا انهم 3 ادوات في الـ Form1 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data…

لا تعتمد على ملأ الـ Connection String في الـ Design فقط .. بل اعد ملأه في الحدث Load للـ Form بالكود وبالطبع عليك تحديد المسار وفقا لجهاز العميل .. اي مثلا وفي حالة وجود قاعدة البيانات في نفس مجلد البرنامج App.Path & "\Data.mdb" Adodc1.ConnectionString = "Pro…

إضافة الكود الأول هذا للإتصال بقاعدة البيانات التي قلت انت انه فشل في التعرف عليها أي انه بعد حماية قاعدة البيانات بوضع كلمة سر عليها .. للإتصال بها يجب إرسال كلمة السر ولإرسال كلمة السر تحتاج لإضافة الـ Parameter الخاص بكلمة السر لقاعدة البيانات والـ Paramete…

يجب الإنتقال إلى السجل الأول قبل إستخدام الدالة Find .. وهذا في حالة وجود سجلات If dRS.RecordCount > 0 Then dRS.MoveFirst Employees.rar

/index.ph...st&p=567229

أولا بالنسبة للإتصال بقاعدة البيانات .. فعليك إضافة كلمة المرور داخل الـ Provider فقط ;Jet OLEDB:Database Password=123 اي اضافة السطر أعلاه للـ Connection String وتغيير الـ 123 إلى كلمة المرور المناسبة لك وبخصوص النسخ الإحتياطي فهو كنسخ أي ملف .. ويستحسن ضغط ق…

:) الحد الأقصى لأي متغير من نوع Integer هو 32767 .. ورقم الموظف يزيد عنه لذا يجب تغيير نوع المتغير iID من Integer إلى Long Employees.rar

تمت الإجابة على السؤال الأول .. وبالنسبة للسؤال الثاني فالـ frmCome غير موجود مع المشروع Employees.rar

تمت الإجابة على السؤال في موضوع آخر /index.ph...st&p=933012

المثال في المرفقات SumOfField.rar