أحمد مبارك الحيقي

تفضل أخي هذا مثال أرجو أن يروق لك... SubFormsExample.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي ربما كانت هذه الفكرة البسيطة تساعدك... 555.rar

لا أدري، ربما كان هذا ما تبحث عنه... name_test.zip

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

وعليكم السلام ورحمة الله... أخي للتغلب على النقطتين المذكورتين جعلت وضع القيم في المصفوفة يتم عند تعديل النموذج (AfterUpdate)... لعل هذا يكون أفضل والله أعلم... أرجو الاطلاع على الملف المرفق... db1.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي تجد شرحاً مختصراً للكود مع تصحيح الخطأ في الملف المرفق... الفكرة هي حفظ قيم مربعات النص المختارة في مصفوفة ثنائية... فكر بالمصفوفة الثنائية كجدول يحوي في حالتنا 20 سطراً (على عدد مربعات النص) وعمودين؛ العمود الأول لحف…

وعليكــم السـلام ورحمة الله وبركاتـه.. بعد إذن الأستاذ إيهاب... هذا حل آخر في الحدث Exit للنموذج الفرعي... DEGREE.rar

وعليكم السلام ورحمة الله... أخي لعل هذا ينفع... عند إضافة سجل جديد ابدأ بالكتابة والمفروض أن تظهر قيم السجل السابق للحقول المختارة... الكود المضاف محدد بالتسطير... والله أعلم. db1_4.rar

السلام عليكــم ورحمـة الله وبركاتــه... هذا إخواني ملف يحوي مقدمة مختصرة لكيفية استخدام نظام الأكسس لتحديد صلاحيات المستخدمين... أسأل الله أن ينفعني وإياكم به... ________________________________________.rar

أخي هذا الكود الكامل لنموذج لا يحوي إلا Microsoft Ritch Textbox واحد فقط اسمه RichTextBox1: Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Any) As Long P…

أعلم أن هذا ليس هو المطلوب تماماً لكن جربي هذا الكود في حدث نقر زر الأمر، حيث test.ppt هو مسار ملف باوربوينت Dim dbl As Double dbl = Shell("POWERPNT.EXE d:\test.ppt")

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

أرجو الاطلاع على الملف المرفق... لاحظ أخي أنه يستخدم Ritch Textbox بسبب صعوبة التعامل مع handle لمربع النص العادي... lines_also.rar

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

أرجو الاطلاع على الملف المرفق... يحوي مثالاً قد يفيد... الجداول مستوردة من قاعدة بيانات Northwind المثال لسهولة التجريب... والله أعلم... InvExample.rar

أخي ليس هناك إزعاج... والخطأ مني إذ أن الاستعلام السابق لم يكن مضبوطاً... أرجو أن يكون التعديل المرفق في الاستعلام صحيحاً... في انتظار النتيجة... account.rar

وعليكم السلام.... أخي إن كنت تود فقط جمع نصوص هي أصلاً أرقام فقم فقط بتحويلها إلى قيمة عددية أثناء الجمع... مثلاً [الاسلامية]+[العربية]+[الانكليزي]+[الرياضيات] AS [sum] تصبح Val( [الاسلامية])+Val([العربية])+Val([الانكليزي])+Val([الرياضيات]) AS [sum] والله أعلم…

تفضل... فقط أضف القيمة الخالية Null إلى بقية الحقول، والقيمة False إلى حقل هل سدد... function.rar

وعليكم السلام ورحمة الله وبركاته... عدد حقول جدول الأقساط خمسة وأنت تحاول إدخال حقلين فقط في عبارة INSERT INTO... لا بد في هذه العبارة من إدخال جميع الحقول، ولو كان بقيم خالية... والله أعلم

أرجو الاطلاع على الملف المرفق... التعديل الذي تم هو إضافة السطرين التاليين إلى استعلام التقرير GROUP BY maden.SumOfExpr1, maden.DateMabeat, maden.CustomerName, maden.Customer HAVING (((Sum(maden.SumOfExpr1))>=0)); والله أعلم account.rar