استاذ عبدالله
اعتقد انني توصلت الى طريقة لتشغيل الاستعلام فانظر المثال ان كانت تفي بالغرض
ملحوظة : هناك error في حدث التصدير اتركه لك حيث لم يتبين لي مصدره ولكني الجمته
استيراد وتصدير.rar
Docmd امر تشغيل داخل اكسس
و RunSql لتنفيذ جملة الاستعلام
هذا ما اعرفه ، ولا ادري نصف العلم
فمثلا هذه الاسطر لحذف بيانات جدول في قاعدة بيانات اكسس خارجية ( موجودة ضمن مجلد البرنامج)
Dim strSQL As String
Dim srtPath As String
srtPath = Application.CurrentProject.Path & "\kh.mdb"
strSQL = "DELETE table1.* FROM table1"
DoCmd.RunSQL strSQL
وعليكم السلام ورحمة الله وبركاته
قدمت أهلا ووطئت سهلا أستاذنا العزيز
لم يتضح لي ان كنت تريد الحذف في جدول اكسس ام اكسل
في أكسس :
جملة sql هذه لحذف جميع سجلات الجدول table1 دفعة واحدة
DoCmd.RunSQL "DELETE table1.* FROM table1"
السبب انه كل طالب له درجة في اكثر من مادة وبالمقابل كل مادة مضافة الى اكثر من طالب
ولو عملت كما تقول لاضطررت الى تكرار المواد بشكل رهيب ( عدد الطلاب )
لان كل طالب سيأخذ جميع المواد والذي يليه مثله وهكذا ....
عملت لك النموذجين في المثال السابق قصدا . حتى تتضح لك الرؤية ، وتعرف الغاية من العلاقات المنشأة
نموذج لادخال درجات المواد كلها لطالب
والآخر لادخال درجة مادة لجميع تالطلاب
اخي الحبيب بداية ندعوك للمشاركة هنا http://www.officena.net/ib/index.php?showtopic=41520
وللمبرمجين فيما يرون مذاهب
ملحوظة : يتم اختيار القسم بواسطة الاستعلامات ، انظر المعيار
db1.rar
تم طرح وجهة نظرك لفريق الموقع
الموضوع قيد التصويت ...
المسألة لاشك تحتاج الى وقت حتى نطلع على آراء فريق الموقع والتي من خلالها سيتحدد ايجاد هذه الخدمة من عدمها
وعليكم السلام ورحمة الله وبركاته
اخي الكريم
1- لا تدع فراغا بين الكلمات عند تسميتك للحقول
2- من غير المنطقي اننا نحرك العنصر يسارا وباللحظة نفسها نحركه يمينا وينطبق هذا على الاعلى والاسفل
ولكن مقدار الحركة تكون قياسا الى الهامش الايسر وكذلك تكون الى الهامش الاعلى
لذا انت بحاجة الى حقلين اثنين فقط
انظر التعديل على حقل DayDate واكمل على النسق نفسه
للتجربة ضع مثلا للحركة الافقية = 5000
وللحركة الرأسية = 200
Move Cell2.rar
هدية جميلة ورائعة
جزاك الله خيرا
بالنسبة للخلل فهو ما ذكر استاذي العزيز عبدالله باقشير
وطريقة الاصلاح التي عملت بها : اذهب الى المكتبات كما في الصورة المرفقة أعلاه
وانظر الى الاسطر التي تبدأ بكلمة :Missing وقم بحذفها وذلك بإزالة العلامة من مربع الخيار ثم موافق
اخي الكريم
وقتي الآن لا يسمح بالتواصل والمتابعة بسبب ازدحام العمل
الاخوة في المنتدى هنا لن يألو جهدا في خدمتك فتحل بالصبر
لعل الله ان يسوق لك من يعينك
تقبل تحيتي واعتذاري
اعمل في حاسوبي على الاصدار 2003 ولتحقيق طلبك في الاطلاع على المرفق اضطررت لنقله الى حاسوب آخر
من النظرة الاولى لبرنامجك انت بحاجة لتقسيم البيانات على اكثر من جدول
جدول لبيانات المريض الثابتة
جدول للتحاليل المخبرية والتحاليل الاشعاعية والتشخيص والعلاج ويشتمل على رقم قيد لكل زيارة
تربط بين الجدولين بعلاقة واحد لكثير
السبب ان المريض قد يتردد على المشفى اكثر من مرة في ازمنة متفاوتة واعراض مختلفة
نعم يمكن وهو الافضل بلا شك
والطريقة انك تصمم الخطاب على التقرير كما تصممه على وورد
ويختلف الاكسس في كون البيانات الثابتة تكتب داخل مربعات التسمية بينما البيانات المتغيرة تكون مربعات نصوص
تم التعديل كالتالي :
المربعات الصغيرة تم تحويلها من تسميات الى مربعات نصوص
استخدمنا الدالة Dcount لتجميع الوضع حسب انوع في خمس حقول ( هي الموجودة في جدول الموظفين ) وعليك اكمال البقية
ملحوظة : التسميات بحروف عربية تسبب ارباك عند كتابة الجملة البرمجية حيث تنقلب رأسا على عقب
انظر الى هذا السطر الخاص بمجموع م.يومي
=DCount("[الوضع]";"الموظفين";"[الوضع]='" & "م.يومي" & "'")
وانظر اليه حينما نستبدل م.يومي بحروف انجليزية كـــ xxxx
=DCount("[الوضع]";"الموظفين";"[الوضع]='" & "xxxx" & "'")
الى ترى ان الثاني واضح تماما
يكتب هذا السطر في مربع عنصر تحكم الحقل ، استبدل فقط الـــ xxxx بالقيمة الموجودة في حقل الوضع
db4.rar
اكتب هذا السطر في حدث عند فتح النموذج
DoCmd.GoToRecord , , acNewRec
ملحوظة : اجعل احد الحقول في خصائص الجدول ( مطلوب ) حتى تتلافى تكرار السجلات الفارغة
اقساط العرس.rar
الفارق : ان البيانات موزعة على ثلاث جداول
ما المشكلة ؟ فانت اولا قبل التوزيع في الاستعلام الجدولي بحاجة الى ضم و تجميع هذه الجداول سواء كان جدولا او استعلام تحديد او توحيد