الفوارس

هذ المرفق بعد التعديل وارجو معذرتي كوني عملته وان امستعجل اي استفسار نحن في الخدمة New_Project.rar

اخي العزيز VB6-Rocket يعطيك العافيه لقد جربتها وكانت ممتازه وارجو ان تناسب الاخ مهنا

اخي العزيز انتظر والشباب ما رايح يقصرون

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

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

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

اخي العزيز كتكوت كما قال الاخ المتميز لو بحث لحصلت على اجابات وافيه وايضاً راجع الرابط التالي لوجود سؤال مماثل واجابه انقـــــــر هنـــا الفوارس2000

اخي العزيز عبود المنطاد العفــــــــــو ما سوينا شيء هذا هذا واجبنا ونتشرف بخدمتك وخدمة اي عضو يريد يتعلم فكلنا هنا لنفيد ونستفيد

اخي مهنا تستاهل كل خير هذا مثال بسيط حسب معرفتي طبعاً كل واحد له طريقه وانا اعطيك الطريقة التي فكرت بها Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Text = "" MsgBox ("لا يمكن استخدام هذه الخ…

معليش اخوي العزيز هذا الكود يعمل في الفيجول 6 ما ادري يضبط معاك ام لا ارجو اخباري ليتم تعديله على حسب الطلب

او استخدم الكود التالي إذا كمنت متصل بواسطة ODBC cn.Open "DSN=name;uid=sa;pwd=;database=DataName " واي استفسار حاضرين

اخي العزيز اذا كانت القاعدة اس كيو ال سيرفر فخذ هذا الكود ورد على لاعرف ماذا حصل معك cn.ConnectionString = "driver={SQL Server};" & _ "server= Computer NAME;uid=sa;pwd=;database=Dtata name" cn.Open strCnn فقط قم بتعديل اسم الجهاز واسم المستخدم وكلمة المرور واس…

العفو اخي العزيز وبالنسبة لاضافة الحذف فلامانع ولكن انتظر قليلاً لاتمكن من انهابعض اشغالي وابشر بطلبك

جزاك الله خيراً

بالنسبه وعلى المستعجل حسب 'كود امر التالي Private Sub Command1_Click() On Error Resume Next deleartable.MoveNext Text1.Text = deleartable![Dealer_Code] Text2.Text = deleartable![Dealer_Name1] Text3.Text = deleartable![Dealer_Name2] End Sub 'كود امر السابق Priv…

اخي العزيز سوف يتم التعديل بشكل كامل على مثالك في الاتصال والحفظ وتقدم السجلات ولكن ارجو الصبر لكوني حالياً مشغول

اخي العزيز ضع الكود الذي وضعته لك في الفروم الخاص بالاتصال وعدل به كما تشاء وإذا لم ينفع معك حدد المشكله وارسلها لي على الخاص بعد وضعها في المنتدى لان خاصية التبليغ لا تعمل لكي يتم متابعه موضوعك

اخي العزيز لنفترض ان لديك text1 والثاني text2 نكتب هذا الكود هذا على الطريقه الماشي ( المستعجله) If CDate(Text1.Text) > CDate(Text2.Text) Then MsgBox ("التاريخ الاول اكبر من التاريخ الثاني ") End If

شكراً اخي العزيز VB6-Rocket وشكراً على الكود

مشكور وبارك الله فيك ونتطلع للمزيد