عبدالفتاح حسن

تفضل Dim T1 As Date Dim T2 As Date T1 = Me.Text1 T2 = Me.Text2 Text3 = Format(T2 - T1, "HH:MM:SS")

الأخ الفاضل الكود سليم ولكن يجب مراعاة حالة الأحرف يمكنك استبدال السطر If TV1.Nodes(a).Text = txtSearch.Text Then بالسطر If UCase(TV1.Nodes(a).Text) = UCase(txtSearch.Text) Then لتجنب حالة الأحرف ويمكنك استبداله ايضا بالسطر التالى للبحث بجزء من الكلمة If UCase…

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

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

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

الأخ الكريم الجدول مصمم من قبل شخص اخر و بالفعل هو تصميم سئ والمطلوب منى اعادة تنظيم البيانات بشكل عملى ويمكن الإستفادة منه ولكن حاولت ان اتعامل مع هذا الجدو بالـ Ado او Dao فلا يظهر لى سى الـ 255 حقل الأولى فقط وانا لا اعرف حتى عدد الحقول الفعلى و شكرا للمرور

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

تفضل مثال للربط من خلال الفيجوال بيزك وكذلك ملف وورد (منقول عن احد الأخوة فى المنتدى ) لشرح عملية تنصيب sqlserver 2005 ولا تنسى تنصيب كل من IIS المرفقة على اسطوانة الويندوز وكذلك SqlConnect.rar

اذا كنت تستخدم Adodb Db.execute "set character_set_server='utf8';" db.execute "set names 'utf8';"

الأخ الفاضل اذا كنت من مبرمجى الفيجوال بيسك فلا انصحك بإستخدام MySql وذلك لصعوبة الربط بإستخدام Ado اوDao فقد تحتاج لوسيط مثل MysqlConnector علاوة انك ستلاحظ بطء شديد وخصوصا فى حالة زيادة البيانات . إلا ان Mysql مثالية ولكن مع PHP و Java وغيرها لذا انصحك بإستخ…

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

للرفع والمتابعة

السادة الأفاضل أبحث عن كود لإرسال رسائل للموبايل (SMS) علما بانى استخدم جهاز (Premaxcel) وهو جهاز يمكن من توصيل بطاقة الموبايل على منفذ الموديم فى الكمبيوتر وقمت بالبحث عن الكود المطلوب فى مواقع متعدده وكلها اكواد متشابهة لكن لا تعمل لدى كما قمت بتنزيل المكتبة…

الأخ الفاضل يرجى ارفاق مثال حتى يتم لتعديل عليه

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

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

مرفق لإجراء عملية البحث بإستخدام محرك البحث جوجل من خلال برنامج ويمكن استبدال اسم الموقع google بأى اسم اخر حسب المطلوب Send_Text.rar

الأخت الفاضلة إليك المثال بعد التعديل ولكن .. يجب مراعاة ان استيراد نصوص او صور او اى كائنات من صفحة ويب ليس له قاعدة ثابتة او اكواد تؤدى نفس الغرض مع كل الصفحات ولكن يتم التحايل على النص المكون للصفحة لإستخلاص المطلوب منه وقد يكون هذا الإجراء فى غاية الصعوبة …

Dim DB As New ADODB.Connection DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=[databasename];Jet OLEDB:Database Password=[database password];"

مشكور اخى وجارى التجربة