امير عاطف

الملف الاول لم يتم فتحة .... ام الباقي فتم عملهم

ما شاء الله

حل آخر : يمكنك الوصول للعميل الذي تريد بمجرد كتابة رقم التليفون الخاص به عن طريق وضع مربع نص غير منضم بالنموذج وتضع هذا الكود لحدث بعد التحديث لمربع النص DoCmd.ApplyFilter , "[Customer_Name] = Forms!FormName!txtsearch" حيث FormName هو اسم النموذج و txtsearch هو اسم مربع النص الغير منضم و Customer_Name هو حقل اسم العميل وفي حالة كتابة رقم التليفون في مربع النص المسمى txtsearch ثم الضغط على زر انتر سوف يقوم بالذهاب بسرعة الى العميل الذي رقم تليفونة مسجل بمربع النص txtsearch اما بالنسبه لمعرفة هل قام العميل بسداد تأمين سابق ام لا فيمكنك ذلك عن طريق وضع هذا الكود لحدث بعد التحديث لمربع النص اسم العميل If DCount("Customer_Name", "TableName", _ "[Insurance]>0 and [Customer_Name]=Forms!FormName!Customer_Name") _ > 0 Then _ MsgBox "هذا العميل قام بسداد تأمين سابق بتاريخ" & " " & [dateField] End If حيث dateField هو حقل تاريخ التأمين المسدد مسبقاً و Insurance هو حقل مبلغ التأمين

والله الواحد ما عارف يقولك ايه على هذه الافادة الأكثر من رائعة لكن اقل شىء .... جزاك الله كل خير

بالنسبة للسؤال الأول يوجد سؤال اخر شبيه له هنــــا اذا اردت ان تعرف هل يوجد للعميل بيانات سابقة ام لا استخدم الدالة Dcout تجد شرح مفصل عنها لأستاذنا محمد طاهر بقسم خلاصة مشاركات الأكسس بقسم الدوال هنـــــا

لمعرفة المستخدم الذي قام بادخال البيانات تضع عند حدث الخروج من مربع النص الذي يتم ادخال البيانات به : a = CurrentUser حيث a هو مربع النص الذي يتم كتابة اسم المستخدم الذي قام بادخال البيان وقتها لمعرفة وقت وتاريخ ادخال البيانات تضع عند حدث الخروج من مربع النص الذي يتم ادخال البيانات به : b = Now حيث b هو مربع النص الذي يتم وضع تاريخ ووقت ادخال البيان للمستخدم

بما ان لديك حقلان للتاريخ وليس حقل واحد .... اذن ضع بخانة المعايير Criteria اسفل حقل تاريخ البداية >[forms]![rj]![st] ضع بخانة المعايير Criteria اسفل حقل تاريخ النهاية <[forms]![rj]![ed] ولا تنسي ان تضع اسفل حقلي تاريخ البداية وتاريخ النهاية بالإستعلامWhere بدلاً من Group By

مثال الأخ ابو أحمد Rased.zip

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

ameeratif@yahoo.com

اسفل حقل التاريخ بالإستعلام قم باستبدال Group By بــــ Where

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

ايضاً بعد تجربتها .... عملت بشكل سليم

طيب بدل استخدام المتغير استخدم مربع نص مخفي على النموذج واتبع نفس التعليمات الموضحة بأعلى ولكن بدلاً من المتغير استخدم مربع النص

لا يوجد بالأكود السابقة اي مشاكل ! تأكد من وضع الاكواد عند حدث التغيير لورقة العمل وليس لدفتر العمل

الاخ حسام الكود سليم 100% تأكد انك قمت بوضع الكود لحدث التغيير (لورقة عمل) وليس لدفتر العمل الذي تريد الكتابة بداخلها

الرد للأخ rudwan : شكرا جزيلا للاستاذ الفاضل أبو هادي , حيث أفاد و أجاد

الرد لأستاذنا ابو هادي : السلام عليكم أخي الفاضل .. لا يمكن عرض العناصر للـ ActiveX Contols كما هي في الأدوات الأساسية التابعة للأكسس . كل الأحداث التي أدرجتها بمشاركتك جميعا لم استخدمها من قبل أبدا . حتى الأداة نفسها لم أقم باستخدامها قط . هي فقط مرة واحدة التي قرأت عن بعض المعلومات عنها قبل فترة طويلة عندما قمت بتقديم هذا المثال لأحد المشاريع الجماعية بمنتدى الفريق العربي للبرمجة ولم أرجع له أي المثال مرة أخرى . عموما الأداة المستخدمة بالمثال الآن هي : Microsoft Tree View Control, Version 6.0 (sp4) وملف العون التابع له cmctl198.chm . كما توجد أداة ثانية بإسم : Microsoft Tree View Control, Version 5.0 (sp2) وملف العون التابع له vbcmn96.hlp . طبعا ملفي العون غير متوفرين لدي حاول أن تبحث عنهما وأن تزودنا بهما في حال وجدتهما :) . وقد اعتمدت على ملف عون ثالث مرفق هو أقرب إلى الأداة الثانية ولكن يكفي لفهم الكثير عن الأداة الأولى حيث الإختلاف بينهما طفيف . تحياتي . Comctl1.zip

الرد للأخ rudwan : الشكر الجزيل لك يا أستاذ أبو هادي , و هذا بالضبط ما أبحث عنه . و لكن لدي ا ستفساران لو سمحت : الأول : هل بعض المعاملات الخاصة بالبنية الشجرية غير معرفة في الأكسس ؟ حيث لا حظت أن بعض الأكواد التي أرفقتها في المثال لم تظهر في صندوق المساعدة أثناء محاولة اعادة الكتابة مثل : TreeView1.SelectedItem, , Node.Parent TreeView1.Nodes.Add(, , "A", "Root") f فأين نجد المساعدة حول استخدام هذه المعاملات مستقبلا . السؤال الثاني : أعرف أنني أثقلت عليكم , و لكن هل من الممكن لو تفضلتم شرح بسيط عن متى أستطيع استخدام الأحداث التالية , حيث أنها غير متوفرة على لائحة مساعدة الاكسس : TreeView1_OLESetData TreeView1_OLEStartDrag TreeView1_OLEGiveFeedback TreeView1_OLEDragOver TreeView1_OLEDragDrop TreeView1_OLECompleteDrag TreeView1_Collapse TreeView1_AfterLabelEdit TreeView1_Expand

الرد لأستاذنا أبو هادي : السلام عليكم الأخ رضوان .. آمل أن يكون الكود التالي هو المطلوب : Private Sub TreeView1_NodeClick(ByVal Node As Object) Dim Pos As Integer If Node.Index > 1 Then MsgBox TreeView1.SelectedItem, , Node.Parent End If Pos = InStr(1, TreeView1.SelectedItem, "..") - 1 If Pos > 0 Then If Left(TreeView1.SelectedItem, Pos) = "1299999" Then DoCmd.OpenForm "Form1" End If End If End Sub تحياتي .

السؤال للأخ rudwan : أريد مثلا عندما أنقر على اسم الحساب الفرعي ( العقدة الابن ) أن يفتح لي نموذج آخر يعرض بيانات تعريفية بذلك الحساب , فما هي ياترى تسمية تلك العقدة الابن ؟ و كيف نستطيع التعامل معها ؟ و لك خالص التحية و الشكر

لم تنجح محاولات التعديل

====================================== الأخ العزيز ha98 : من قواعد طرح الأسئلة بالمنتدى عدم طرح الأسئلة لأشخاص محددين حتى يتسنى لكل المشاركين ولأي شخص يعرف الاجابه ان يضع الرد حيث ليس الرد مقصور على المشرفين وليس شرط ان يعرف المشرف اجابة سؤالك ....... ارجو ان تتقبل ذلك بصدر رحب :) ====================================== بالنسبه للبحث بمجرد كتابة الحرف الأول يمكنك الاستفادة من هذين الموضعين بقسم الخلاصات: البحث بمجرد الكتابة مباشرةً (داخل قائمة) البحث بمجرد الكتابة مباشرةً (داخل نموذج فرعي) اما بالنسبه لكي تجعل درجة مواظبة الطلاب الملتزمين 100% استبدل كود المعادلة التي داخل مربع النص الخاص بدرجة المواظبه بالكود التالي: =IIf(DCount("[عدد الدرجات المخصمة]";"qry2";"student_id = forms!formname!student_id")>0;100-DSum("[عدد الدرجات المخصمة]";"qry2";"student_id = forms!formname!student_id");"100%")

رد للأخ أبو احمد : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <> "" Then If Target.Column = 1 Then MsgBox "تمت أضافة المبلغ", , "تهانينا" End If If Target.Column = 2 Then MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك" End If End If End Sub

راجع هنـــــــــــا للإستزادة