سوال بخصوص MSFlexGrid

ارجو الرد علية

يمكن جعل عرض العمود=0

يعني لو فرضنا رقم العمود في الشبكة هو 2 بما أن الترقيم يبدأ من الصفر يكون الكود:

MSFlexGrid1.ColWidth(2) = 0

يوضع هذا الكود في الإجراء المسؤول عن ملئ الشبكة بالبيانات

و الطريقة الثانية هي عدم ربط الحقل بقاعدة البيانات أصلا

شكرا اخى هجرب

طيب عايز اغير اللون

لدى سوال ايضا عايز عند الكتابة فى تيكست بوكس والضغط على انتر يتحول اول حرف كابتل والباقى صمول

بالنسبة لسؤالك أخي kokogogo2000 والخاص بتحويل أول حرف كابتل وباقي الحروف صمول ، فهناك دالة تقوم بتحويل اي نص من صمول الي كابتل وهذه الدالة هي (UCase) ويمكنك تجربتها كما يلي

msg = UCase("ahmed")
MsgBox msg

ستلاحظ ظهور الاسم كابتل في رسالة .

لكنك تريد أن تجعل أول حرف فقط هو الكابتل والباقي صمول ، وقد قمت بعمل فكره بسيطة لتنفيذ ماتريد ويمكنك تجربة الكود التالي وإن شاء الله يقوم بعمل ماتريدة :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1 = UCase(Left(Text1, 1)) & Mid(Text1, 2, Len(Text1) - 1)
End If
End Sub

أرجو أن أكون قد أسهمت في حل مشكلتك ولو بقدر بسيط .

أحمـد

وبالنسبة لسؤالك عن كيفية تغيير لون الصف الذي تقف عليه في الـ MSFlexGrid1 فيمكن ضبط ذلك من خلال الخصائص الخاصة بالأداة نفسها

الخاصية HighLight تجعلها flexHighlightWithFocus

والخاصية SelectionMode تجعلها flexSelectionByRow

يمكنك التجربة وستجد ماتريد بإذن الله

أحمـد

شكرا اخى العزيز احمد

لدى مشكلة اخرى اخوى هى عندما اعمل update فى MSFlexGrid1 يحفظ كل الملفات ذى اول ملف

بمعتى عندى فى MSFlexGrid1 جدول اسمة الاسم العنوان المرتب

محمد السعودية 500

احمد دبى 600

عند عمل update اكتشف فى الداتا بيس انها اصبحت الاسم العنوان المرتب

محمد السعودية 500

محمد السعودية 500

مش عارف السبب اية

الكود الى انا استخدمة هو

dbrs3.Open "select * from calls where CompanyID=" & Label31.Caption & "", cn, adOpenStatic, adLockOptimistic

Do Until dbrs3.EOF

dbrs3("CallType") = MSFlexGrid1.TextMatrix(i, 0)

dbrs3("CallDate") = MSFlexGrid1.TextMatrix(i, 1)

dbrs3("CallTime") = MSFlexGrid1.TextMatrix(i, 2)

dbrs3("Subject") = MSFlexGrid1.TextMatrix(i, 3)

' dbrs3("Notes") = MSFlexGrid1.TextMatrix(i, 6)

dbrs3.Update

dbrs3.MoveNext

Loop

dbrs3.Close

MsgBox "Data Saved", vbInformation, "administrator"

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

ارجو المساعدة

ارجو المساعدة ضرورى

السلام عليكم

انا رديت علي المشكله دي في مكان تاني

ياريت

ما عليك الا ان تضيف

I=I+1