omani

لو فرضنا انك تكتب اسم السيرفر في TextBox فاستخدم الكود التالي لتمرير اسم السيرفر لكود الإتصال Dim mySrv As String mySrv = Text1.Text db.ConnectionString = "Provider=SQLOLEDB;" & _ "Server=" & mySrv & ";" & _ "Database=data1;" & _ "Trusted_Connection=Yes" ' "UI…

بعد تنزيل البرنامج قم بتثبيته كأي برنامج اخر . تحياتي

اعتقد انه لا يحصل على مسار قاعدة البيانات جرب هذا الكود وضعه في المكان المناسب DataEnvironment1.connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\DataBaseName.mdb;Persist Security Info=False"

السلام عليكم يبدو انك فقدتي الصبر للاسف ShellExecute لا تدعم ارفاق الملفات في تنادي البرنامج فقط . ولم استطع ان امرر له التعليمة ولم اجد اي حل لها بعد البحث لمدة3 ساعات متواصلة بما فيها موقع ميكروسوفت Success = ShellExecute(0&, vbNullString, "mailto:mem2020@ho…

اخي هذا الكود يقوم بتحويل أي قيمة موجودة في التكست بكس الى عدد بصيغه ثابته فمثلا : لو كانت القيمة تساوي 123.453 فيقوم بتحويلها الى : 123.4 مع تجاهل ما تبقى من القيمة تحياتي

وهذا مثال أعددته على عجاله يقوم بتنفيذ فكرة الكود السابق تحياتي Send_Mail.rar Send_Mail.rar

هذا التعديل لاظهار العنوان : Success = ShellExecute(0&, vbNullString, "mailto:mem2020@hotmail.com?subject=ضع الموضوع هنا", vbNullString, "C:\", SW_SHOWNORMAL) أما بالنسبة للمرفقات سأحاول ايجاد طريقة ولكنني لا اعك بانني سأحصل على الحل تحياتي

اخي الكريم الكود ليس به خطأ وإنما الخطأ في اسم الفيلد الموجود في قاعدة البيانات والذي تقوم بالبحث من خلاله وهو حقل name حيث ان name هي كلمة محجوزة للفيجوال فقط قم بتغيير اسم الحقل وليكن مثلا name1 هذا الكود بعد التعديل Dim t As Recordset Set t = db.OpenRecords…

هذه فكرة سريعة ربما تجدي نفعاً ليست بالعبقرية ولكنها كحل يعتبر جيد من وجهة نظري . تعتمد على اخذ الكسور من الاشهر وحسابها عند الشهر الأخير تحياتي Installment.rar

يمكن ذلك باستخدام جملة SQL SQL = Select Top (50) FROM TABLENAME WHERE FIELDNAME = CONDITION ربما هذه الطريقة تحل مشكلتك او انك بعد البحث تعمل لووب على النتيجة وتظهرها في فليكس جريد مثلا dim Rn as long dim i as integer for i = 1 to 100 rn = (rnd * rs.recordcoun…

إذا كانت الشبكة عبارة عن دومين فيمكن ذلك من خلال تحديد الصلاحيات أما اذا كانت الشبكة عبارة عن مجموعة عمل Work Group قلا اعتقد ان ذلك ممكن تحياتي

اخي الكريم كودك السابق صحيح فقط اضف صيغة الملف الى الكود ليصبح بالطريقة التالية Media.URL = App.Path & "\b.wav" تحياتي

اخي الكريم أولا افتح التاسك منجر Task Manager إذهب الى تبويب بروسيس Processes من خلال القائمة امامك ابحث عن اسم الملف وإن وجدته قم باختياره ثم اضغط الزر الموجود بالاسفل واسمه انهاء المهمه أو End Process ثم بعد ذلك قم بحذف الملف وان شاء الله سوف يحذف تحياتي

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

أخي الكريم الكريم لو فرضنا ان لديك عدد 10 تكست من نوع Array استخدم هذا الكود لتحصل على اعلى قيمة Dim a As Long Dim TName As String TName = "text1(0)" a = Text1(0).Text For i = 1 To 9 If Text1(i).Text = a Then TName = TName & " and text1(" & i & ")" ElseIf Text…

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

إذا كان الجهاز به أوفيس 2003 سوف تجدينها في الريفرنس باسم Microsoft Outlook 11.0 Object Library وفي المرفقات تجدينها ايضا ويجب وضعها في المسار التالي : C:\microsoft Office\Office11\ بييث يصبح مسارها كالتالي C:\microsoft Office\Office11\MSOUTL.OLB تحياتي MSOUTL…

مكتبة Outlook تأتي مع الاوتلوك . فإن لم يكن الأوتلووك مثبتاً فلا جدوى من استخدام الكود . عليك تثبيت الأوتلووك الموجود مع مجموعة Microsoft Office 2003 تحياتي

أخي الكريم جرب هذا الكود وإن لم يحقق المراد قم بارفاق المثال لنراه x = Text1.Text + "*" Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'" Data1.Recordset.MoveFirst Data1.Refresh MSFG1.Refresh If Data1.Recordset.BOF = False Then Data1…

اخي هذا الكود MediaPayer.openPlayer "d:\2.wav" أو MediaPayer.openPlayer app.path & "\sound.mp3" تحياتي