ابوخليل

هذا يوجد به ما تبحث عنه وهذا ايضا

الحمدلله على انقضاء الحاجات علما اني كنت اعمل على مثالك طبعا نقلته على جهاز اخر وحولته الى mdb وللفائدة يوجد طرق كثيرة لاخراج اعداد الطلاب منها : بدلا من الحاق نتيجة المجاميع في جدول جديد 1 - استخدام استعلام تجميعي 2- عمل دوال عامة تحمل النتيجة ويمكن اظهارها في اي جزء من البرنامج إحصاء.mdb

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

هذا تطبيق بالضبط وبدون زيادة لما تفضل به اخونا الدكتور حسنين db1.mdb

جرب ضع Call قبل سطر النداء مثل Call cmdButton1_Click Call cmdButton2_Click Call cmdButton3_Click

الأصل اغلاق هذا الموضوع لمخالفته قواعد المشاركة والتي منها البحث قبل طرح السؤال فلو بحثت عن حذف مجلد لظهر لك الكثير من النتائج والحلول الجيدة على كل حال : اذا المجلد خالي من الملفات استخدم هذا السطر : RmDir CurrentProject.Path & "\Test\" استبدل Test باسم مجلدك

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

Private Const GWL_STYLE = -16& Private Const TVM_SETBKCOLOR = 4381& Private Const TVM_GETBKCOLOR = 4383& Private Const TVS_HASLINES = 2& Private Const CLR_INVALID = &HFFFF Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function OleTranslateColor Lib "oleaut32" _ (ByVal clr As OLE_COLOR, _ ByVal hPal As Long, _ dwRGB As Long) As Long Private Function TranslateColor(ByVal clrColor As OLE_COLOR, _ Optional hPalette As Long = 0) As Long If OleTranslateColor(clrColor, hPalette, TranslateColor) Then TranslateColor = CLR_INVALID End If End Function Private Sub ChangeBackgroundColor(ByVal hwnd As Long, ByVal longColor As Long) Dim longStyle As Long SendMessage hwnd, TVM_SETBKCOLOR, 0, ByVal TranslateColor(longColor) longStyle = GetWindowLong(hwnd, GWL_STYLE) SetWindowLong hwnd, GWL_STYLE, _ longStyle And (Not TVS_HASLINES) SetWindowLong hwnd, GWL_STYLE, longStyle End Sub Private Sub Form_Load() ChangeBackgroundColor axTreeView.hwnd, 14935260 ' axTreeView is me.axTreeView End Sub

جميل جدا ابا جود يمكن الآن لصاحب الموضوع الاستفادة من المثال ومن الأكواد المصاحبة لتطوير فكرته

اخي العزيز الاستاذ احمد ما هذا الحساب الجديد ؟ هل يوجد مشكلة في الحساب الاصل؟

Dim i As Integer i = Me.text1 DoCmd.PrintOut , 1, 3, , i على اعتبار text1 هو اسم مربع النص الكود اعلاه لطباعة الثلاث صفحات الأولى ولصفحة واحدة : DoCmd.PrintOut , 1, 1, , i

الاستئناس اي الوناسة لما يشوف أحد نتيجة الدالة وانا كتبتها لعموم من يمر على المشاركة ، وغفلت اني اكاتب استاذ وقامة في هذا المنتدى لذا تتبعت صيغة الخطاب وعدلته .

لا يوجد اي حركة بدون اكواد واقصد بفكرتي تبسيط الفكرة الى الحد الأدنى انظر المرفق عملته على اعتبار حقل الاسم في النموذج معيارا في الاستعلام Test Full Name2.mdb

فكرة الحل عندي هي تماما فكرتك الأولى بدون اكواد كود بسيط يكون كوسيط ، كيف ؟ نكتب الاسماء في الحقول الغير منضمة ، ونعمل دالة تصنع الاسم الرباعي ( او بمعنى اصح تجمع الحقول الاربعة مع المسافات) وهي التي نجري عليها البحث فان كانت صحيحة تم نسخها الى حقل الاسم المنضم والا تظهر رسالة تنبيه بالتعديل المطلوب

السلام عليكم اول اجابة للاستاذ محمد رائعة اعجبتني جدا ولكنني لما تصفحت مثاله هالني كثرة هذه الأكواد وخاصة الموجود في الوحدة النمطية وحتى نطبق فكرة ابي جود نريد منك ايضاح عملية البحث التي تجري بعد كتابة الاسم الرباعي يكفي عن الايضاح ان تكتب لنا كود البحث هنا .

آمين .. بداية انت ذكرت ان لديك فراغ في الوقت كبير وتحب الكميوتر ، وايضا على استعداد لدفع المال من اجل التعلم وقد جاءت اليك دورة في مشروعك على طبق .. قد لا تتهيأ لك الظروف لتحصيلها مستقبلا شكرا لك على دعواتك الطيبات .. دمت اخا عزيزا بين اخوانك ،،،

بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....

اشرح برنامجك الحالي الذي تقوم به بالتفصيل كيف ؟ اعتبر موظفا جديدا تم تعيينه عندك .. وكلفت بأن تكتب له شرحا كاملا لآلية العمل وهكذا يمكن للاخوة هنا ان يقوموا بتوجيهك كيف تبدأ تصميم برنامجك

اولا اللغة ليست عائق وستعتاد عليها ويمكنك كتابة اسماء الجداول والحقول بلغة عربية ولكن بحروف لاتينية مثلا : الموظفين تكتبه mowdhfeen ثانيا انت تريد تعلم التصميم ولغة البرمجة فابصم بالعشرة لو استخدمت الحروف العربية ضمن مجال الأكواد والجمل البرمجية لن تخرج بنتيجة ولو مارست سنين والسب ان الاكواد المكتوبة ستظهر مختلة ومنقلبة لاختلاف اتجاه اللغتين ولا يمكنك فهمها وتفسيرها .. بسبب ان الحروف العربية تبدأ من اليمين الى اليسار والاجنبية العكس ثالثا جميع ما تراه من تسميات اجنبية لن تظهر للمستخدم وانما الذي يظهر له لغة عربية مبينة حتى الكلمات الاجنبية لا يسمح فيها بالمسافات الخالية ويجب وضع شرطة تحت بين كل كلمتين ,, ولكني في المثال استخدمت الحروف الانجليزية الكبيرة للدلالة على بداية كل كلمة جديدة بدلا من المسافات والتعويض عنها بالشرطة ومسألة قالو الاخوان اتركها عنك .. فالذي اخبرك يفتي بغير علم

السلام عليكم شكرا استاذنا ابا ابراهيم على هذا الموضوع الذي تكثر الحاجة اليه في المدارس ولا ادري هل مداخلتي ادناه تندرج ضمن هذا الموضوع ام ان الموضوع خاص بجداول المواد والاختبارات عملت برنامج حضور للطلاب على اكسس يقوم مسؤول برنامج نور ومن خلال تقارير نور بتصدير تقرير اسمه : " البيانات الخاصة بالارشاد" يشتمل على 5 أعمدة من بيانات الطلاب على مصنف اكسل ثم يقوم برنامجي بجلبها الاعمدة الخمسة هي : الاسم / رقم الهوية / رقم الجوال / الصف / الفصل او الشعبة ... وهذه البيانات هي التي يحتاجها برنامجي ما ذكرته اعلاه ينطبق على النظام الفصلي لما توسعوا في نظام المقررات خاصة المرحلة الثانوية ، اختفى التقرير المذكور اسمه اعلاه ، واصبحت الاعمدة الخمسة موزعة على اكثر من تقرير صحيح انه يمكن استبدال رقم الهوية والاستعاضه عنه بالرقم الأكاديمي ولكن الحاجة الضرورية هي ضم الاعمدة الخمسة في مصنف واحد بضغطة زر واحدة من نور وجلبها بضغطة اخرى من برنامجي ، من اجل تسهيل العمل على المستخدم .

مصنف اكسل لا يمكنني فتحه .. يبدو يوجد فيه مشكلة عند الفتح .. او لأني اعمل على الاصدار 2003 وازيدك من الشعر بيتا .. انا لم يسبق لي العمل على ملفات اكسل من قبل . فرأيي ان لم يتحفنا الأستاذ جعفر بحل .. وحفظا لوقتك .. ان تنقل مثالي المرفق الى قسم اكسل فأهل مكة ادرى بشعابها .

السلام عليكم تفضلوا اساتذتي هذا المثال _من سنين مضت _ كان عمله لي استاذنا القدير عبدالله باقشير اتمنى تجدوا فيه الفائدة استيراد وتصدير اكسل اكسس.rar

الدرس الأول : ارفقت لك جزء من الجداول بعد اعادة صياغتها .. وهي الجداول الفرعية الخدمية 1- ادرس طريقة التصميم جيدا ( تسميات الجداول / وصف الجداول / تسميات الحقول / وصف الحقول / التسمية التوضيحية للحقول / خصائص الحقول ) بالنسبة الى وصف الحقول يمكنك الإسهاب في الوصف بحيث يعطي وصفا كاملا لوظيفة الحقل وعلاقاته ان وجدت 2- قم بتعبئة جميع البيانات كاملة في هذه الجداول 3- اعد رفع المرفق بالصيغة نفسها mdb .. بمعنى لا تتعبني في نقل الملف الى جهاز آخر لاني اعمل على اكسس 2003 فقط . 4- اللي عنده شغف حب التعلم يسأل عن كل صغيرة وكبيرة لم يفهمها .. وباب السؤال مفتوح في ما يخص الدرس لجميع اخواني الاعضاء المبتدئين . copy02.mdb

تفضل الحل الافضل وهو كون الحدث يخص كل حقل لوحده في حدث بعد التحديث لاي حقل يتم الفحص والاجراء هو : اما انشاء مجلد جديد او تغيير اسم المجلد ان كان موجودا Dim i1 Private Sub Text1_GotFocus() i1 = Text1 End Sub Private Sub Text1_AfterUpdate() Dim fs, cf strFolder1 = CurrentProject.Path & "\" & Me.Text1.Value strFolder11 = CurrentProject.Path & "\" & i1 If MsgBox("سيتم ( إنشاء / تغيير ) اسم المجلد حسب القيمة الجديدة", _ vbQuestion + vbOKCancel, _ "تنبيه") = vbOK Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder11) = False Then Set cf = fs.createFolder(strFolder1) Else Name strFolder11 As strFolder1 End If Else Undo Exit Sub End If End Sub تغير اسم المجلد حسب قيمة الحقل.mdb

خذ نسخة من قاعدة البيانات ثم اعمل على هذه النسخة : 1- احذف جميع النماذج والتقارير والاستعلامات 2- احذف بيانات جدول الاسماء 3- اعمل ضغط واصلاح لقاعدة البيانات