سؤال حول عرض أسماء ا لحقول

اخي المهنا

انت دائما معصب ومستعجل

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

إن شاء الله ياتيك الجواب قريبا جدا

تحياتي

اخوك ناصر

شكرا للرد السريع

انت تطلب التعديل في مثال محدد لماذا

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

عزيزي العزيز : المهنا

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

بالنسبه لما طلبت لقد حملت المرفق وان شاء الله سأحاول التعديل عليه ان تمكنت ، وسأعطيك بعض الاكواد المتوفره لدي والتي اعرفها من طلبك الاول ،،

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

تحياتي لك اخي العزيز

فنكشن الف شكر لك وللجميع

وانا في الانتظار على احر من جمر الغضى

أولاً أخي المهنا أنا أعتب عليك وبشدة مخالفتك لقوانين المنتدى وأنت لست بالجديد عليه ..

لا يقبل توجيه السؤال لأشخاص بأعينهم

كما أنه يفضل عدم وضع الأمثلة للتعديل عليها، وفي حال وضعها يجب عدم تضمين البرنامج كاملاً وإنما يتم تضمين مثال صغير على المشكلة ..

عموماً لا أدري إن كنت قد فهمت المطلوب، ولكن جرب المرفق ..

Code.zip

الاخ العزيز عبدالله شكرا للتجاوب والسريع واسف للمخالفة

بالنسبة فالبرنامج هذا ليس كاملا ابدا لان برنامجي عبارة عن اكثر من 25 فورم و 10 موديول و 20 تقرير داتا ربورت وانا لم اعرض برنامجي

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

واكر الشكر والتقدير للجميع

بالنسبة للمرفق يا اخ عبد الله لم يحل المعضلة لاني لا اريد التسلسل من حقل ولا بدون ترتيب

شاهد الصورة للمرفق

ثانيا لم تحل مشكلة الفلكس في الفورم الرئيسي الذي به كل عمليات البحث الهامة

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

http://www.arabteam2000.com/picload/Files/1111_1032005728340.7498896.jpg

Dim i As Integer

i = 0

FLEX1.Rows = 1

Do Until RS.EOF

i = i + 1

FLEX1.Rows = i + 1

FLEX1.TextMatrix(i, 0) = i

FLEX1.TextMatrix(i, 1) = RS.Fields(0)

FLEX1.TextMatrix(i, 2) = RS.Fields(1)

FLEX1.TextMatrix(i, 3) = RS.Fields(2)

FLEX1.TextMatrix(i, 4) = RS.Fields(3)

اقتباس

لاني لا اريد التسلسل من حقل ولا بدون ترتيب

؟؟؟

ما زال شرحك للمشكلة غامضاً ..

أخبرني فقط ما الشكل النهائي الذي تريده ؟

هل تريد عرض الأرقام مسلسلة في الحقل الأول من الواحد إلى الأعلى ؟؟

إذا كان ذلك قصدك حمل المرفق ..

Code.zip

اريد عند البحث عرض النتائج مرقمة من 1 الى عدد النتائج

فلو اني قمت بالبحث حسب المؤلف عن الحرف " ط " وطلعت النتائج 50 نتيجة تكون الارقام من 1-50الخ 00000

المشكلة لا تزال في تغيير اسم الحقول

أخي مهنا

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

كيف تضع كود للبحث عن كلمات مسلسلة في زر أمر

المفروض ان البحث يكون في حدث التغيير لمربع النص

انا سويتلك كده في كود منفصل كود العرض فقط وانت عليك اضافة حقل المسلسل ( سهلة إن شاء الله ) :D

حيث يمكنك استخدام اللووووب لعمل الاضافة الى الفليكس واضافة حقل جديد

البحث هنا في حدث التغيير لمربع النص

Code.rar

السلام عليكم ورحمة الله وبركاته

أخى العزيز المهنا

ربنا ما يرميك فى ضيق أبدا ويفرج لك السبل

أخى العزيز

كان صلى الله عليه وسلم إذا حزبه أمر هرع إلى الصلاة

عموما ما أطولش عليك وأبشرك بأن المثال المرفق فيه حل لمشكلتك بالكامل

لو ما وصلتش لكود الحل لوحدك أو طال بيك البحث - فسأقصر عليك المشوار

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

وهو ببساطة من خاصية FormatString كما ترى فى Sub FlexSize

لا أدرى إن كان الكلام العربى سيظهر فى المشاركة أم لا ولكنه واضح فى البرنامج

Sub FlexSize()
'''*** To Make the Flex AutoFit ***
 Dim R As Long, C As Integer, Tw As Double
 If optArabic.Value Then
   Hed = "^ã |>ÑÞã ÇáãæÙÝ |<ÇáÇÓã ÇáÃÎíÑ |<ÇáÇÓã ÇáÃæá|<ÊÇÑíÎ ÇáãíáÇÏ |<ÇáÅÞÇãÉ |>ÇáÑÇÊÈ"
 Else
   Hed = "^S |<Emp ID |<Last Name |<First Name |<Birth Date |<Country |<Salary"
 End If
 MSHFlexGrid1.RightToLeft = optArabic.Value
 With MSHFlexGrid1
   .FormatString = Hed
  For C = 0 To .Cols - 1
    Tw = 0
    For R = 0 To .Rows - 1
     If R >= .FixedRows Then
       .TextMatrix(R, 0) = R - .FixedRows + 1
     End If
     If TextWidth(.TextMatrix(R, C)) > Tw Then Tw = TextWidth(.TextMatrix(R, C))
    Next R
    .ColWidth(C) = Tw + 150
  Next C
 End With
End Sub

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

ولإثبات ذلك لك إذا نقرت DoubleClick على أى عمود سيرتبه تصاعديا لك والأرقام المسلسلة التسعة لن تتغير لأنه يعيد ترتيبها

لو لم تعثر على الكود بسهولة فى الـ Sub FlexSize فستراه فى حدث النقر المزدوج على الجريد هذا

Private Sub MSHFlexGrid1_DblClick()
  Dim R As Long
  With MSHFlexGrid1
    .Sort = 1
    For R = .FixedRows To .Rows - 1
      .TextMatrix(R, 0) = R - .FixedRows + 1
    Next R
  End With
End Sub

أسأل الله أن تكون الآن نادم على تهديد إخوانك بأن تتركنا ولا تعود للمنتدى

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

والأهم بمنتهى الدقة والسرعة والمناسبة لمشكلاتنا

وفى الختام أسأل الله أن ييسر لك كل أمر عسير ويوسع لك فى العلم ويرضى عنك ويرضيك برضاه

أخوك أيمن همام

FlexPrint.zip

والله الف مليون شكر بصراحة ما ادري اودي جمايلكم فين يا

nasser50001

فنكشن

عبد الله فتحي

abulyaman

احس اني اتعبتكم معي كثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثير

السلام عليكم ورحمه الله وبركاته

في الحقيقة اخي المهنا ان لم اعمل شيء يقارن مع مجهودات الاخوة ...

ولكن لك لدي نصيحه ..

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

تقبل تحياتي اخي العزيز

المشكلة لا تزال في تغيير اسم الحقول

SQL = "select ID as [مسلسل],bookname as [اسم الكتاب],name as [اسم المؤلف] from data where bookname LIKE '%" & Trim(Text7) & "%'"
sql1 = "select bookname as [اسم الكتاب],name as [اسم المؤلف] from data where name LIKE '%" & Trim(Text7) & "%'"
SQL = "select bookname as [اسم الكتاب],name as [اسم المؤلف] from data where bookname LIKE '%" & Trim(Text7) & "%'"

ليس من السهل عمل SQL مكررة اكثر من 55 مرة على عدد الحقول

هل من حل اخر ياشباب للمرفق اريد فقط المحافظة على عدم تغيير اسم الحقل في الفلكس عند البحث

اخي المهنا

أولا الحمد لله على السلامة .... وينك اخي من زمان :D :D

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

أن طريقة البحث التي تستخدمها خطأ تماما فقم بأعادة تحليل عملية البحث مرة ثانية

فأنصحك اخي أن تستخدم طريقة بحث ميسرة تؤدي نفس الغرض بلا تعقيد او تعب واقترح عليك التالي

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

وتضع مربع نص لتاريخ النشر مثلا وهكذا

أو كما انت مسوي تضع أزرار الاسم والتاريخ والرقم .... ثم مربع نص يبحث عن الحروف وعرض النتائج في الفليكس

نصيحة هااااااااااااامة

ما يؤدي الغرض بابسط الطرق نفعله

تحياتي لك

أخوك ناصر

شكرا للتعقيب

والله يسلمك يا ابو السور

أخى المهنا

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

ولم تنجح كل الطرق الى الان هل من هل

المشكلة في ان التحديث هذا هو الى يسوي المشكلة ومع ذلك هو من يقوم بعملية البحث

Set Me.FLEX1.DataSource = RS
FLEX1.Refresh

السلام عليكم ورحمة الله وبركاته

أخى المهنا

جرب إضافة السطر التالى ستفهم كلامى

Set Me.FLEX1.DataSource = RS
FLEX1.Refresh
Flex1.FormatString="^م |^عنوان الكتاب  |^المؤلف |^دار النشر  |^تاريخ النشر

بذلك - بإذن الله - ستنحل مشكلتك 100%

أخوك أيمن همام

يا رب لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك

ياشباب لم تنفع كل الحيل حتى الان حتي كود الاخ تاصر المسمي الطلاب 1 فيه نفس المشكلة عند البحث

وقمت بتجربة

Set Me.FLEX1.DataSource = RS
FLEX1.Refresh
Flex1.FormatString="^م |^عنوان الكتاب  |^المؤلف |^دار النشر  |^تاريخ النشر

ولم تنفع الطريقة ما زال يضهر الاسم الاساسي في الفلكس

السلام عليكم ورحمة الله وبركاته

أخى المهنا

بما أن الكود الذى كتبته لك لم يفلح على حد قولك

فأكيد أكيد أكيد

عندك كود بعده هو الذى يمحى عناوين الحقول التى كتبتها ومكانه بعد هذا الكود

صحيح أى جريد تستخدم ، MsFlexGrid أم MSHFlexGrid؟

سُبْحَانَكَ لاَ عِلْمَ لَنَا إِلاَّ مَا عَلَّمْتَنَا إِنَّكَ أَنتَ الْعَلِيمُ الْحَكِيمُ

ال ف مليون شكر وانا اسف لا تعابكم الفلكس بتاعي MSHFlexGrid؟

أخوي المهنا .. صراحة مش عارف بالضبط إيش اللي تبغاه ...

مره تقول التسلسل .. ومره تقول اسماء الحقول تظهر بالإنجليزي .. ومره تبغى تضيف بس حقلين في الفليكس ..

على العموم على حسب اللي فهمته منك عدلت البرنامج على السريع ...

وهو في المرفقات ..

وإذا كان مش هذا اللي تبغاه ياريت توضح أكثر وإن شاء الله ما يهمك ولا يكون خاطرك إلا طيب ...

أخوك shoqi

maktaba.zip