Super_Pro

مشكور اخي الكريم

شكر اخي الكريم Eng. Usama El-Mokadem دائما و ابدا و الى الاخوة الكرام مثال جميل وبسيط اخواني لكن اظن ان الكلاس تستعمل ذاكرة اكبر من الكلاس و تبقى في الذاكرة لفترة اطول مع العلم ان جميع الاجراءات التي احتاج تقوم بعمليات ضمن الفورم نفسه ولكني ربما اخطأت باستخدام…

اخي اذا كنت تعرف طرق اخرى ارجةو امدادي بها لاني اريد ان اعرف هذا الطرق لاني الصراحة كنت متوقع جواب سؤالي هو ""لا يوجد جملة Sql تقوم بهذا العمل """ و الصراحة فاجئتني باجابتك فانا اعرف الـ SQl البسيط اضافة تعديل استعلام بسيط يعني على قدي :lol: و رايت انها توفر ع…

No problems mr kazabra Welcome any Time :lol:

اخواني هل يمكن استدعاء اجراء فرعي من ضمن اجراء رئيسي يعني كمثال التالي Sub ScanAllError() Sub ScanForm1() End Sub Sub ScanForm2() End Sub End Sub ٍScanAllError.ScanForm2 طبعا كل الخرابيط السابقة خطأ بس مثال على الذي يدور في راسي و هي طريقة للترتيب الكود قدر ال…

up :lol:

mashkor a5e kazabra ala hal mos3deh al sare3a oa a5oe mohmmedvb shkran ala al mo7awllah :lol:

Dim i As Integer For i = 1 To Len(Text1.Text) List1.AddItem Mid(Text1.Text, i, 1) Next اخي محمد الكود صحيح 100 % لكن تأكد من اضافة اداة text و اداة list

اخواني مساعدة بخصوص الـ MSHFlexGrid وهي تخيل معي الاداة وهي تحتوي 15 سجل و الـ height الخاص بها لا تكفي الا الى 5 سجلات فالذي سيحدث طبعا سيتم عرض الـ 5 سجلات الاولى و ستظهر اداة سكرول جانبية داخل اداة الفليكس للتمكن من روئية باقي السجلات يدوياً الان و المهم ما…

و الكود السابق يقوم بحساب وسط الشاشة وحدة دون ان تتعب في عمليات التجربة و الحساب

Private Sub Form_Resize() Me.Left = FrmMain.ScaleWidth / 2 - Me.Width / 2 Me.Top = FrmMain.ScaleHeight / 2 - Me.Height / 2 End Sub ضع الكود السابق في كود الفورم الابن

اخي كنت اعلم انك ستتقبل نصيحتي لكن اخي الكود يعمل 100% وهو يقوم بنفس عمل الكود الذي ارفقته 100% وهناك طريقة ايضا اصغر من الكودين وهي تحديد خاص BorderStyle = Fixed Dialog للفورم

اخواني موضوع الاخ العزيز HnHn قد يسهل المهمة دليلك الاسرع

Dim r As String Dim e As String Private Sub Form_Load() r = Me.Height e = Me.Width End Sub Private Sub Form_Resize() On Error GoTo 11 If Me.Height > r Then Me.Height = r End If If Me.Height < r Then Me.Height = r End If If Me.Width > e Then Me.Width = e End If…

اخي اثقلت عليك ولكن ارجو ان تتحملني وانا ارى انك على خبرة عظيمة في جمل الـ SQl التي استطيع ان اسميها مركبة هل استطيع ان اتحكم بشكل العرض مع امكانيه البحث بشكل مختلف يعني كتالي : rs.Open "Select * From (Select ID, First_name+''+Father_name+''+Last_Name As Fulln…

اخي الصراحة قراءت الموضوع من اوله الى اخره :wacko: :blink: وما فهمت اش نوع العلاقة الى بدك ايها يعني ايش الفايدة منها اضافة سجل جديد , عرض السجلات و كأنها في جدول واحد او ماذا بالظبط :huh: ؟؟؟؟؟

(h) حقا ابدعت (h) مشكورة مرة اخرى اخي الكريم و الى الامام ان شاء الله معنا في المنتدى

السلام عليكم هل الجملة اعطت Error ام لم ينجح الكود فقط كما ترغب انت ؟؟؟

4 up

اخي جرب الرابط التالي للأخ العزيز HnHn دليلك الاسرع