ابوخليل

نعم صحيح انا غفلت عن هذه

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

غالبا الوميض يحدث اذا يوجد في الفورم حدث عند عداد الوقت الحل في مثل هذا الحال هو ايقاف هذا الحدث والبحث عن بديل

انا مثلكم حاولت جاهدا ولم اصل الى نتيجة

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

وعليكم السلام ورحمة الله وبركاته ابو غفران انظر الفيديو ادناه حاولت جاهدا من سنين ابحث عن مثل هذا الميزان في الاسواق العالمية وباءت محاولاتي فالفشل صحيح يوجد الكثير مشابه له ولكن المواصفات تختلف خاصة مدخل الكيبل usb لاحظوا انه يوجد برنامج مصاحب يقرأ من الميزان

هذا المنتدى مليء بمثل هذه المواضيع فقط ابحث https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=من+اكسس+الى+وورد&sa=Search

اعتقد فكرة اخونا عمر هي استخراج المجاميع في جدول جديد لاظهارها في التقرير وطبعا يتم حذف بيانات الجدول بمجرد غلق النموذج ، بمعنى ان الفكرة هي اظهار البيانات لحظية مؤقتة قابلة للتغيير والتحديث بالزيادة او النقص . وهنا نستغني عن الجدول وايضا النموذج والأزرار والأكواد المصاحبة هذه الدالة المصنوعة تحقق المطلوب Public Function studentscount(ByVal i As Byte) Dim z As Integer If i = 0 Then z = DCount("[student_name]", "[student]", "[state_code]<3") ElseIf i = 1 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=1") ElseIf i = 2 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=2") ElseIf i = 3 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=3") Else End If studentscount = z End Function ويتم نداءها داخل الحقل سواء في النماذج او التقارير هكذا : للمجموع الكلي = studentscount(0) الابتدائي = studentscount(1) المتوسط = studentscount(2) الثانوي = studentscount(3) وهذا المرفق : إحصاء2_2003.rar

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

الحمدلله على انقضاء الحاجات علما اني كنت اعمل على مثالك طبعا نقلته على جهاز اخر وحولته الى 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

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

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

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

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