توجد مشكلة في هذا الكود
يظهر الخطأ في عبارة Sub AutoResize(Flex As MSHFlexGrid)
'اجراء لجعل حجم صفوف واعمدة اداة الجدول تتلائم مع محتواها
Sub AutoResize(Flex As MSHFlexGrid)
With Flex
Dim Tw As Double
For C = 0 To .Cols - 1
Tw = 0
For R = 0 To .Rows - 1
If TextWidth(.TextMatrix(R, C)) > Tw Then Tw = TextWidth(.TextMatrix(R, C))
Next R
.ColWidth© = Tw + 150
Next C
End With
End Sub
أعتقد أن الأداة MSHFlexGrid غير مضافة في المشروع
ومن المحتمل ظهور مشكلة أخرى في حالة عدم العثور على Function الـ TextWidth
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
هل اداة VSFalxGrid هي نفسها اداة MSHFlexGrid
واين اجد هذه الاداة
ستجدها Component يحمل إسم Microsoft Hierarchical FlexGrid Control
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
لدي مشكلة ايضا في هذا الكود
Private Sub Form_Load()
If hRS.State = adStateOpen Then hRS.Close
hRS.Open " Select [tblEmployeesDetails.ID], [tblEmployeesDetails.Name]," & " [tblEmployeesDetails.MobileNum],[tblHolidays.Holiday_Num], " & " [tblHolidays.Holiday_Type],[tblHolidays.Days_Count], " & " [tblHolidaysDetails.ID], [tblHolidaysDetails.Holiday_Num]," & " [tblHolidaysDetails.StartDate], [tblHolidaysDetails.EndDate]," & " [tblHolidaysDetails.Wanted_Days] FROM tblHolidays INNER JOIN " & " (tblEmployeesDetails INNER JOIN tblHolidaysDetails ON " & " tblEmployeesDetails.ID = tblHolidaysDetails.ID) ON " & " tblHolidays.Holiday_Num = tblHolidaysDetails.Holiday_Num", CN, adOpenStatic, adLockPessimistic
'hRS.Open "[queHolidays]", CN, adOpenStatic, adLockPessimistic
hViewRecord
hViewlen
End Sub
الخطأ يقول : تعيين غير صالح للأقواس المربعة للاسم,[tblHolidays.Days_Count], "
تأكد من وجود حقل يحمل نفس الإسم Days_Count داخل جدول tblHolidays
لقد قمت بإنشاء الثلاثة جداول المستخدمه داخل قاعدة بيانات مع كل الحقول المستخدمه أيضا
والأمور على ما يرام عندي .. في حالة وجود تأكدك من وجود الحقل المذكور داخل الجدول المذكور
فيرجى إرفاق قاعدة بيانات بها الـ 3 جداول المستخدمه دون حتى أي سجلات
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
احسنت وجزاك الله خير اخي mrx_ta7ady فعلاً وجد عندي خطأ في اسم الجدول في قاعدة البيانات, ولكن لا زال لدي مشاكل كثيرة في البرنامج
ارجوا عند حل المشكلة توضيحها لي , لكي اعرف ما هو الخطأ عندي
لا أملك الأدوات المستخدمه في مشروعك لغير Microsoft
وياحبذا أن تحدد مطلبك بوضوح
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
ما هي مشكة قاعدة البيانات الموجودة ضمن الملف المرفق هل يجب أن يكون هناك ربط علاقة بينها وكيف ستكون
ايظاً هناك مشكلة في فورم frmEmployeesHolidays في زر cmdAdd (اضافة بيانات جديدة) والكود
Private sub cmdAdd_Click
frmEmployeesHolidaysChooser.Show
bHAdd=True
hEnabledUnEnabled (False)
end Sub
الخطأ يكون في hEnabledUnEnabled
وهناك ايظاً خطأ في frmFindEmployee في عملية البحث وعند الضغط على زر البحث الآن ينشأ الخطا في كود هذا الزر في Call AutoResize
ودمتم
تم تعديل هذه المشاركة بواسطة aftfm في 26 يناير 2009 في 20:58
mrx_ta7ady كتب:لا أملك الأدوات المستخدمه في مشروعك لغير Microsoft
أين الأداة VSFlexGrid7Lite أي ( Vsflex7L.ocx )??
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
لم افهم هل الأداة Vsflex7L.ocx غير موجودة في المشروع, أم أين تجدها في Components
وهل لو رفع لك مجلد المشروع تستطيع أن تتعامل معه افضل
يا ابني الملف مش عندي .. ومش هاقدر افتح المشروع من غيره .. ارفعه لو عاوزني اساعدك
mrx_ta7ady كتب:أين الأداة VSFlexGrid7Lite أي ( Vsflex7L.ocx )??
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
اخي الفاضل ارجوا المعذرة أنا ارفقت المشروع كامل ولا اعرف مذا تقصد بالملف وما هو نوع هذا الملف
ارجوا التوضيح اكثر وإني لك من الشاكرين على اهتمامك
تم تعديل هذه المشاركة بواسطة aftfm في 28 يناير 2009 في 18:57
الملف المطلوب موجود داخل مجلد الـ System32 وهو الـ Grid المستخدمه في مشروعك
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
طيب ممكن توضح اكثر , هل كل برنامج يتم عملة تكون بة هذه الأداة, ومافائدتها.
فائدة الأداة انها احترافية وسريعة مقارنة بما صنعت شركة Microsoft
ويمكنك الاطلاع على صفحتها في موقع الشركة المنتجة لمعرفة ما تريده من تفاصيل
وبالطبع هي أداة إختيارية تضيفها الى مشروعك إن إمتكلتها ورغبت في العمل بها
وهي مستخدمه في مشروعك في شاشتي الـ frmFindEmployee و الـ frmFindEmployeeHoliday
وبخصوص المرفق .. تم التعديل المطلوب وإضافة عليه تعديل بعض الأخطاء المشابهة
ومن باب العلم بالشيء لتفاديه الاخطاء كانت معظمها اخطاء املائية وايضا خطوات منسية
اي انى وجدتك تستدعي إجرائات باسمائها دون وجودها .. وقمت بإضافة الإجرائات الضرورية
كما قمت بتعطيل اوامر إستدعاء الإجرائات غيرالموجوده والمفترض ان وظيفتها تغيير حجم الـ Columns
وإضافة على ذلك قمت بتغيير نوع حقل الـ Cer_ID من جدول tblEmployeesDetails إلى Text بدلا من OLE Object
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي