• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

asiliem

اعضاء
  • عدد المشاركات

    89
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

4 عادي

عن asiliem

  • الرتبة
    عضو
  • تاريخ الميلاد 09/28/1975

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر

أحدث الزائرين لملفلك الشخصي

1,623 زياره للملف الشخصي
  1. شكراً للأخت زهرة وشكرة لكل من حاول المساعدة   الحمد لله قمت بالتعديل على الكود ووجدت الحل على الرغم من محاولتي لأكثر من يومين، الكود كالتالي:   With TreeView1.Nodes.Add(getNodeIndex(!NODE_FATHER_CODE), tvwChild, strKey, (!NODE_CODE) & ":" & !NODE_NAME_A) If rs!NODE_COLOUR = 0 Then .Forecolor = QBColor(0) Else If rs!NODE_COLOUR = 1 Then .Forecolor = QBColor(1) Else If rs!NODE_COLOUR = 2 Then .Forecolor = QBColor(2) Else If rs!NODE_COLOUR = 3 Then .Forecolor = QBColor(3) Else If rs!NODE_COLOUR = 4 Then .Forecolor = QBColor(4) Else If rs!NODE_COLOUR = 5 Then .Forecolor = QBColor(5) Else If rs!NODE_COLOUR = 6 Then .Forecolor = QBColor(6) Else If rs!NODE_COLOUR = 7 Then .Forecolor = QBColor(7) Else If rs!NODE_COLOUR = 8 Then .Forecolor = QBColor(8) Else If rs!NODE_COLOUR = 9 Then .Forecolor = QBColor(9) Else If rs!NODE_COLOUR = 10 Then .Forecolor = QBColor(10) Else If rs!NODE_COLOUR = 11 Then .Forecolor = QBColor(11) Else If rs!NODE_COLOUR = 12 Then .Forecolor = QBColor(12) Else If rs!NODE_COLOUR = 13 Then .Forecolor = QBColor(13) Else If rs!NODE_COLOUR = 14 Then .Forecolor = QBColor(14) Else If rs!NODE_COLOUR = 15 Then .Forecolor = QBColor(15) End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End With  ولكن هل يمكن إختصار الكود بواسطة FOR NEXT STATEMENT ؟
  2. أشكرك اخت زهرة على ردك السريع، بارك الله لك في علمك   ولكن المشكلة ليست في تحديد أو اختيار اللون   فكما تلاحظين من الكود أن هناك في جدول تكوين ال Treeview يوجد عمود Node_colour لكل Node في الكود السابق ومع تجربة الأكواد من طرفك تعطي نفس النتيجة، فهي تقوم بتلوين كل النقاط بنفس اللون   ما أبحث عنه هو تلوين كل node بلون مختلف وفق القيمة المتوفرة في حقل Node_colour في الصف المكون لهذه الـ Node، كما احاول أن أستخدم هذه الخاصية إن نجحت في تغيير اللون بناء على حقل من جدول آخر، ويمكن استخدام ذلك في التنبيهات مما يعطي الشجرة صورة أكثر تفاعلية.  
  3. السلام عليكم   الأخوة الأعزاء أعمل على قاعدة بيانات لبرنامج إدارة الجودة واستخدم الـ treeview كأداة في الشاشة الرئيسية، واحتاج لتغيير لون الـ Node بناء على قيمة موجودة في جدول تكوين الشجرة أو من جدول آخر مرتبط   الكود عندي كالتالي:   Private Sub Form_Load() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strKey As String Dim nodthis As MSComctlLib.Node mstrFormArgs = "" Set db = CurrentDb Set rs = db.OpenRecordset( _ "SELECT * " & _ "FROM qlt_Switchboard " & _ "ORDER BY NODE_CODE,NODE_FATHER_CODE, NODE_CODE_sun", dbOpenSnapshot, dbReadOnly Or dbForwardOnly) With rs While Not .EOF strKey = !NODE_CODE & ";" & Nz(!NODE_OBJECT_TYPE) & ";" & Nz(!NODE_OBJECT_NAME) & ";" & Nz(!NODE_FATHER_CODE) ' & ";" & Nz(!NODE_COLOUR) For Each nodthis In Me.TreeView1.Nodes If rs!NODE_COLOUR = 1 Then nodthis.Forecolor = QBColor(1) Else If rs!NODE_COLOUR = 2 Then nodthis.Forecolor = QBColor(2) Else If rs!NODE_COLOUR = 3 Then nodthis.Forecolor = QBColor(3) Else If rs!NODE_COLOUR = 4 Then nodthis.Forecolor = QBColor(4) Else If rs!NODE_COLOUR = 5 Then nodthis.Forecolor = QBColor(1) End If End If End If End If End If Next nodthis If !NODE_FATHER_CODE > 0 Then 'This node is a child-node of some other node; 'Find the parent node and add it below that node's last child Me.TreeView1.Nodes.Add getNodeIndex(!NODE_FATHER_CODE), tvwChild, strKey, (!NODE_CODE) & "-" & !NODE_NAME_A' TreeView1.Nodes.Add (getNodeIndex:=RS!NODE_FATHER_CODE, Relationship:=tvwChild, !NODE_CODE) & ":" & !NODE_NAME_A' .forcolor = vbRed Else 'There is no parent - add this node to the treeview's root Me.TreeView1.Nodes.Add , tvwLast, strKey, (!NODE_CODE) & "-" & !NODE_NAME_A End If .MoveNext Wend End WithEnd Subأريد تغيير لون النود بناء على قيمة موجودة في حقل node_colour في جدول qlt_switchboard   حاولت بإستخدام:   If rs!NODE_COLOUR = 1 Then             nodthis.Forecolor = QBColor(1)     Else         If rs!NODE_COLOUR = 2 Then             nodthis.Forecolor = QBColor(2)     Else         If rs!NODE_COLOUR = 3 Then             nodthis.Forecolor = QBColor(3)     Else         If rs!NODE_COLOUR = 4 Then             nodthis.Forecolor = QBColor(4)     Else         If rs!NODE_COLOUR = 5 Then             nodthis.Forecolor = QBColor(1)         End If         End If     End If         End If     End If   ولكن لا يطبق غير قيمة واحدة فقط في جميع الاحوال برجاء المساعدة وأشكركم مقدماً على سرعة الرد  
  4. أكسس ماستر

    جزاك الله خيراً   ولكن للأسف لماذا لا يعمل على إصدار  Office 2010 64-bit
  5. مع الإعتذار الكامل للأخت زهرة أستاذتنا جميعاً. الأخ الكريم: حاول تجربة هذا المثال من مواضيعي على الرابط التالي، ربما تجد ما تريد فيه: http://www.arabteam2000-forum.com/index.ph...st&p=798640
  6. الأخت الكريمة: حاولي إستخدام هذا المثال من مشاركتي على الرابط التالي، ربما تجدين ما تريدين فيه: http://www.arabteam2000-forum.com/index.ph...st&p=798640
  7. أشكرك من أعماق قلبي أقوم بعمل قاعدة بيانات لشركات تأجير السيارات - وأعني هنا بشركات: الشركات الكبيرة ويمكن تطبيقة على المكاتب الصغير للتأجير أيضاً - وكنت سوف احاول القيام بعمل Dynamic Reprt يوضح مدة تأجير السيارات وحالتها الحالية ويمكن أيضاُ عن طريقة عمل بعض العمليات، كما طلب مني العميل وكما رأيته سابقاً في برامج كبيرة وعالمية عملت عليها لسنوات في شركات تأجير كبيرة الحجم. وبما قدمته أنت هنا، قد إختصرت علي مشوار كبير في البحث. جزاك الله خيراً.
  8. وإليكم نفس المثال بعد إضافة طريقة أخرى لإستخدام الكود مع النماذج الطويله المقسمة إلى أكثر من صفحة .. نسألكم الدعاء. asiliem_ShrinkStretcher.rar
  9. أشكرك على ردك الجميل وإليك المرفق بعد التعديل حتى تتمكن من التعديل على الشجرة وإضافة أو حذف نماذج أو أوامر. وأرجو من الأعضاء من رآى أنه يمكنه أن يقوم بالتعديل فعليه به، ومن له أي ملحوظة أخرى فليرفعها حتى تعم الفائدة. نسألكم الدعاء ... ASILIEM_TV_OPEN_FORM_EXECUTE_CMD.rar
  10. أختي الكريمة زهرة المنتدى تعجز الكلمات أمامك، لا أجد إلا أن أقول أنه: أينما تواجدت زدت المكان عزة وإفتخار Wherever you existed the place is increasing with pride and glory. Où que vous existe le lieu est de plus en plus avec fierté et la gloire. Wo auch immer Sie bestand der Ort wächst mit Stolz und Ehre. فأنا بالفعل أعتذ بأني من أعضاء المنتدى الذي أنت أحد أعضاءه. جزاك الله خيراً وحفظك وبارك لك في بناتك ...
  11. حاولت إيجاد طريقة أخرى، ولكن خبرتي الضعيفة لم تمكني من ذلك، أرجو من السادة المشرفين والخبراء إذا كان هناك طريقة أسهل أن يضعوها لنا، وجزاهم الله الخير كله.
  12. أشكرك أستاذنا همام على ردك ،،، الذي أذاب الكثير من الجليد، فكما ذكرت أن ردودك تفسر خطأ في بعض الأحيان، فإن كلامي في موضوعي من البداية يمكن أن يفهم خطأ أيضاً، ولكن من الممكن تجنب ذلك بتوضيح وجهة النظر أكثر فإن كنت شرحت ما قصدته الحين، لم ولن يحدث أي سوء فهم من أي طرف. قلت "فماذا ستستفيد؟" سوف أستفيد بأني أفدت أخواني كما أستفدت من هذا المنتدى الكثير، فقد قمت بشراء الكود لأني كنت في عجلة من حل مشكلتي، ولكن لماذا أحتفظ به لنفسي فقط "فلا ضرر ولا ضرار."
  13. السادة المشرفين: أرجو التعديل على المشاركة الأساسية بهذا الموضوع، لأني أرى أن كثير من الزائرين ما زالو يقومون بتحميل المرفق بها المغلق المصدر ولم ينتبهوا لوجود الموضوع الآخر المفتوح المصدر الموضوع هنا: http://www.arabteam2000-forum.com/index.php?showtopic=158456
  14. ماشاء الله إنجاز رائع، إلى الأمام دائماً. جزاك الله خيراً.
  15. الأخت الكريمة إليك المثال معدل بالمرفق، وأرجو أن يكون هو المطلوب. GH.rar