اسلام الكبابى

لا أستطيع فتح النت https://www.sombes.com/sub/68fb46e220c23278f191a7315f7c9990 كيف أتخلص من هذا الموقع لا أستطيع فتح أى موقع على النت بسببه هذه الكلمات التى تقرءونها الآن اضطررت لكى أضعها لكم فى المنتدى الى كتابتها أولآ فى ملف وورد ثم نسخها ثم لصقها هنا بسرعة حتى لا تطير صفحة المنتدى ويظهر بدلآ منها صفحة هذا الموقع فكيف أتخلص من هذا الموقع ولكم ألف شكر

وجدت الحل والحمد لله انه فى الحدث AfterColEdit أى أن الكود يكون هكذا Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer) Z = MsgBox(" ", vbYesNo, "       هل أنت متأكد؟ ") If Z = 6 Then Adodc1.Recordset.UpdateBatch adAffectCurrent: GoTo 100 Adodc1.Recordset.CancelBatch adAffectCurrent  100End Sub  

لدى DataGrid متصلة بAdodc متصل بأحد جداول قاعدة بيانات ما هو الكود الللازم لتوجيه الماوس الى حقل معين فى سجل معين ؟ مثلآ توجيهه الى الحفل رقم 2 فى السجل رقم 34 ولكم ألف شكر

لم أجد أى اجابة حتى الآن

أريد تنفيذ كود معين كلما تغيرت خلية الDATAGRID بحيث اذا قام المستخدم بعمل تعديل فى احدى الخلايا ثم انتقل الى خلية أخرى يقوم البرنامج بتنفيذ هذا الكود مع العلم أن حدث الDataGrid_Change لم يصلح فى ذلك لأنه يجعل البرنامج ينفذ هذا الكود بمجرد كتابة المستخدم حرف واحد أو رقم واحد فى هذه الخلية التى يريد تعديل ما فيها ولكنى لا أريد تنفيذ هذا الكود الا بعد أن ينتهى المستحدم من كتابته ويخرج من هذه الخلية الى غيرها ولكم ألف شكر

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

 

ألا يمكن الاستغناء عن هذه الجملة الطويييييييلة .......... OR...OR...OR...OR...OR...OR ولكم ألف شكر

أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات ووضع هذه الأرقام فيه كسجلات وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟ ولكم ألف شكر    

لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول كود : X = Val(Text1.Text) Y = 200 If X = 7 Or X = 20 Or X = 23 Or X = 38 Or X = 69 Or X = 188 Or X = 213 Or X = 239 Or X = 246 Then Y = 100 Print Y ألا يمكن عمل مجموعة تحتوى هذه الأرقام بحيث تكون صيغة هذه الجملة الشرطية الطويييييييلة هكذا THEN Y=100    ضمن أرقام المجموعة     IF X ولكم ألف شكر

ألا يمكن هذا الذى سأل عنه صاحب السؤال نتحكم في نوعية الخط ( فونت ) و حجم الخط في رسالة msgbox

فى لغة الvb6 كيف أمنع المستخدم من اغلاق الفورم سواء بالضغط على علامة x أو بالضغط على مفتاح Alt+F4 أو بأى طريقة أخرى أريد ألا يسنطيع المستخدم غلقها الا بالضغط على زر الغلق الذى أضعه فى الفورم وأكتب طبعآ كود الغلق فى حدث الضغط عليه           و أظهره وقتما أشاء و أخفيه وقتما أشاء ولكم ألف شكر

فى لغة ال VB6 لدى Adodc متصل بجدول TABLE1 فى قاعدة بيانات وعندى مشكلة عند عرض البيانات بترتيب معين جملة الترتيب التى أعرفها هى Adodc1.RecordSource = "select * from TABLE1 ORDER BY TABLE1.NAME تحدث المشكلة اذا كان الحقل المطلوب ترتيب السجلات بناء عليه(الحقل NAME) حقل نصى وتحتوى بيناته على همزات فهو يفرق بين الحرف "ا" وبين الحرف "أ"   فيجعل كلمة "أمجد" قبل كلمة "اشرف" بينما لو تجاهلنا الهمزات ولم نفرق بين الحرفين لكانت كلمة "اشرف"هى الأولى (لأن طبعآ حرف ال شين قبل حرف ال ميم) ولكم ألف شكر

ألا يوجد حل حتى الآن  ولو لمشكة التاريخ المقلوب ولكم ألف شكر

هذا مرفق . وستجدون التاريخ مكتوبآ مثلآ  14/05/1992   ولكن باللغة العربية ولكنى أريده مكتوبآ باللغة العربية  ولكن هكذا   1992/05/14  وستجدون مشكلة ثالثة وهى أن بعد كل بحث تتغيرعروض أعمدة الdatagrid كما تتغيرعناوينها وتتحول الى الغة الانجليزية فهل لهذه المشكلة حل ؟ أم أنه لابد من اعادة الكود المكتوب فى الForm_Activate  بعد كل بحث (أعنى لابد من وضعه فى func والتوجه اليها بعد كل بحث) ولكم ألف شكر الموظفين.rar