mega_soft

Text1.Text = App.Path & "\" & App.EXEName & ".exe"

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

كيف اقوم بتشغيل ملف صوتي بدون استخدام اي ادوات عن طريق الكود

هذه ليست اداه يمكنك فعلها من الفيجول اختر من خصائص التيكست خاصية Muiltline وقم بتفعيلها ثم خاصية Scrollbars وأختر نوع الأسكرول الذي تريدي افقي أو رأسي او الأثنان معا

يمكنك عمل ذلك من خلال عمل combo ليتم من خلاله عرض اسماء المواقع كما بالبرامج العادية وربطها بقاعدة البيانات واذا قمت بوضع مشروعك هنا ساقوم بعملها لك تحياتي ،،،

ممكن ان تقوم بعمل هذا من خلال تسجيل اسم الموقع بقاعدة بيانات

الأخ solid15 انا مستخدم لك في الكود between and وظيفة هذا الكود انه يتم عرض ما بين رقين تحددهم انت هم D1 & D2 ويقوم بعرضهم داخل الداتا جريد ارجو ان يكون هذا هو الكود المطلوب تحياتي ،،،

جاري البحث

وانا بردو مش فاهم حاجة من الكلام :) ممكن توضح كلامك شوية وان شاء الله بساعدك

تفضل ها الكود حبيبي Data1.Recordset.Fields!اسم الحقل = Update

ممكن توضح سؤالك اكتر

علي نا أعتقد انو في حل بسيط ممكن تصطب ويندوس من جديد لو كنت مستعجل

السلام عليكم وجد حل لهذه المشكلة انني قمت بتعديل بسيط لكود الأخ FemTo هو انك هتأخد القيمة المخزنة من Text2 وياريت يكون دا المطلوب تحياتي ،،، Project1.rar

الأخ amawi ممكن ان تضع مشروعك هنا لكي أعدل لك فيه أو أحد الأعضاء

الأخ aroow777 سؤالك غير واضح يا ريت يكون مفسر شوية

الأخ solid15 قمت بتصحيح الكود لك علي حسب الكود القديم الي انت وضعة بالمشاركة وهذا الكود يقوم بالبحث داخل قاعدة البانات ما بين الأرقام يعني مثلا انت كتب من 2 الي 10 سيقوم بعرض جميع الأرقام من 2 الي 10 مع العلم ان هذا الكود يحتاج الي اداه DataGrid ليقوم بعرض محت…

والله انا مستغرب هو السؤال صعب خالص كده ؟؟!

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

أخي هذه ليسة مشكلة وحلها أيضا بسيط أفتح نسخة الفيجول الموجوده لديك واذهب الي هذا المسار Microsoft Viual Studio\VB98\WIZARDS\PDWIZARD\REDIST\MDAC_TYP.EXE ستجدم ملف اسمه MDAC_TYP.EXE قم بتنصيبة علي اي جهاز وسيعل مشروعك بأذن الله تحياتي ،،،،

تفضل حبيبي وان شاء الله يكون الكود المطلوب Dim db Dim D1, D2 As Variant D1 = DateSerial(Val(InputBox(" insert first number "))) D2 = DateSerial(Val(InputBox(" insert second number"))) Data1.RecordSource = "SELECT * From students WHERE DateSerial([x], [y], [z])…