aldowsary

أخوي معليش عندي سؤال انت تقول انك تبغى الموظفين اللي حصلوا على ممتاز في اخر ثلاث تقارير سنويه لهم ، فهل تقصد أخر ثلاث تقارير سنوية متتالية أم لا؟ فعلى سبيل المثال لو كان الموظف علي لديه التقاريرالتالية: 2002 ممتاز 2003 ممتاز 2007 ممتاز لاحظ أنه لاتوجد تقارير ل…

اخي الكريم، فهمت قصدك و المطلوب بالضبط. لكن و ش رايك في حل المشكلة هذي برمجياً؟ بمعنى أنه إذا كان الحصول على جملة الـSQL التي تؤدي الغرض صعباً أو مستحيلاً، فأرى أن تقوم بالحصول على المطلوب بطريقة أخرى، وهي عن طريق الكود. اليك خطوات الحل برمجياً: افرض أننا سنقو…

اخوي ليش ما تجرب تفتح الجدول و إذا حصلت على خطأ معناها الجدول غير موجود. الشكل العام للكود يكون كما يلي: Function IsTableExist(ByVal sTableName As String) As Boolean Dim rs As New Recordset On Error Resume Next rs.Open sTableName, cn If Err.Number<>0 Then IsTa…

للحصول على أعداد عشوائيةمحصورة اد بين A و B أو بتعبير آخر للحصول على الأعداد الأكبر من أو يساوي A و الأصغر من أو يساوي B يمكن استخدام القاعدة التالية: n = A + Int(Rnd() * (B-A+1)) يعني للحصول على الأعداد المحصورة بين 10 و 20 عشوائياً تكون الدالة كالتالي: n = 1…

اخوي كلامك صحيح انا كاتب SELECT TOP 3 EMPLOYEES.NAME بس فعلياً الجملة كاملة ترجع جميع الموظفين اللي حاصلين على ممتاز في آخر ثلاث تقارير. أنا جربت الجملة مرتين مرة من برنامج Microsoft Access و مرة من الـVB6 وعشان اتأكد من صحة الجملة جعلت آخر ثلاث تقارير لجميع ا…

اخي الكريم : السلام عليكم ورحمة الله وبركاته جملة الـ SQL اعلاهـ تسترجع الموظفين اللي حصلوا على ممتاز في اخر ثلاث تقارير سنويه لهم وهذا هو ماتريد .. إلا إذا كان أنا مافهمت ما ذا تريد بالضبط :huh:

فيما يلي جملة SQL المطلوبة إن شاء الله: SELECT TOP 3 employees.name AS NAME FROM employees INNER JOIN report ON employees.num = report.num GROUP BY NAME, employees.num, report.num, report.report HAVING (((report.report)='ممتاز')) ORDER BY Count(report.year) DE…

أخي الكريم، الصراحة لم استطع تحديد المشكلة في برنامجك. لكن لاحظت أنك تستخدم كائن اتصال (Connection) لكل نموذج، فقمت بتعديل الكود بحيث يستخدم كائن واحد لكل النماذج. كل الإضافات التي عملتها تظهر مباشره في الـGrid و لم تواجهني أي حالة عكسية. بالنسبة للبحث بالاسم …

السلام عليكم في مكان عملي قمت بتطوير برنامج يعمل عليه حوالي 20 مستخدم. البرنامج موجود على سيرفر ويتم الدخول عليه من قبل المستخدمين عن طريق الشبكة (ملف الـEXE موجود داخل مجلد مشترك Shared Folder). البرنامج شغال له حوالي سنة و زيادة، و من واقع تجربتي استطيع أن ا…

السلام عليكم أنا ما أدري إذا كنت فهمت مشكلتك بشكل صحيح أم لا، لكن على كل حال أنا أقترح ان تغير نوع الحقل المسمى No_sev إلى AutoNumber. أيضا أنت ذكرت أنه إذا كان عدد السجلات 10 فعند التسجيل الجديد يكون رقم الخدمة هو 11، بالتالي لماذا لا تجعل رقم الخدمة الجديد ك…

اخي الكريم الدالة Format تستخدم مع نوع البيانات Dateعشان ترجع لك نص String ، و أنت التاريخ عندك جاهز على هيئة نص ليش تستخدم Format. على كل حال جرب عدل السطر اللي فيه جملة الـSelect كما يلي: Data1.RecordSource = "select * from sale where datee between " & "#" &…

أخوي الموضوع سهل إن شاء الله ،،، تأكد من إضافة المكتبة Microsoft DAO 3.51 Object Library إلى الـReferences. بعد ذلك إليك الكود الذي يقوم بتحميل محتويات حقل إلى List: Dim db As Database Private Sub Form_Load() Set db = DBEngine.OpenDatabase(App.Path & "\NWIND.m…

السلام عليكم ورحمة الله و بركاته، أخي الكريم يمكن فصل السلاسل النصية باستخدام الوظيفة Split، كما يلي: Sub SplitTextBox() Dim vParts as Variant vParts = Split(txtSource.Text, "/") txtPart1.Text = vParts(0) txtPart2.Text = vParts(1) End Sub الكود أعلاه يقوم بفصل…

اخي الكريم عند تطبيق الحماية يجب السماح بتنسيق الخلية لكي يتمكن الكود من تغيير خلفية الخلية النشطة. ما قمت به هو حماية الـSheet و السماح فقط بتحديد الخلايا غير المؤمنة. مرفق لك الملف للتوضيح مع بعض التعديلات على الكود. Book1.rar

أخوي فيصل ، السلام عليكم و رحمة الله و بركاته ،،، أنا كتبت كود VBA في إكسل يسوي اللي انت تسأل عنه، وجربته تجربة بسيطة و ماكان فيه أي مشاكل. 1- اضغط بالزر الأيمن للماوس على الـSheet1 مثلا، واختر View Code. 2- قم بتعريف متغيرين كالتالي: Private objCurrentCell As…

السلام عليكم و رحمة الله و بركاته ما يحصل فعلا هو أن السجل الأخير يتم حذفه لكن المشكلة في الإجراء showdata فبعد حذف آخرسجل يكون قيمة Recordcount بالتأكيد أقل من 1 و بالتالي فإن الإجراء showdata ينتهي بدون تحديث واجهة المستخدم.

فكرة رائعة أخ abdhassan سأقوم إن شاء الله باختباراها. شكراً جزيلاً أخي الكريم. والشكر الجزيل للأخ kazabra

شكرا أخ kazabra على الرد لكن ما أريده هو منع المستخدم من فتح جلستين من جهازين مختلفين بنفس اسم المستخدم.

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

أخي الكريم يمكن تفادي هذي المشكلة عند إنشاء الـsetup للبرنامج. فإذا كنت تستخدم برنامج Package & Deployment Wizard الذي يأتي مع الفيجوال بيسك 6 يمكنك اختيار الملفات المطلوب إضافتها و تحديد موقعها على الجهاز الذي سيتم تثبيت البرنامج عليه.