Visitor_OM

العفو وانا في الانتظار

السلام عليكم يمكنك تحديد مجلد Windows بعدت طرق اسهلاها هذا الكود : WinDir$ = Environ$("windir") MsgBox WinDir$ تحياتي

السلام عليكم عفوا اخي البرنامج السابق توجد فيه بعض الاخطاء بسبب تسرعي . تفضل هذا النسخه المعدله وإن شاء الله يكون افضل من السابق وفيه ستحصل على مبتغاك والمعذرة . بالتوفيق optics02.zip

السلام عليكم جرب اخي الكود المعدل : وابلغني عن اي خطاء يحدث معك ، تحياتي optics01.zip

السلام عليكم اخي الكريم osos.bg حقيقة لم اتمكن من فهم الكود اعلاه لكثرة الادوات المستخدمة فيه ، حبذا لون تحط برنامجك هنا يمكن نتوصل لحل مع بعض . على فكرة CompactDatabase لا تعمل مع ADODB لانها خاصه ب DAO . تحقق من وجود مكتبة DAO في مشروعك . وذلك بالتالي . اذهب…

السلام عليكم اخ الكابوس تفضل الكود : Private Sub Command1_Click() WinDir$ = Environ$("windir") KillWin$ = WinDir$ + "Rundll.exe User.exe,ExitWindows" Shell KillWin$ End Sub

السلام عليكم في مايلي كود للنسخ الإحتياطي وكود لإصلاح الاخطاء في قاعدة البيانات مثل الموجود في Access تماما بستخدام DAO . ملاحظة هامة يجب إن لا يكون هناك اي اتصال بقاعدة البيانات . للنسخ الإحتياطي DBEngine.CompactDatabase App.Path & "OldDatabase.MDB", _ App.Pa…

السلام عليكم اخي العزيز معنى الرسالةباختصار شديد هو وجود شخص ما يعمل على قاعدة البيانات واتوقع إن البرنامج هو إلى شاغل قاعدة بياناتك . الحل : هو قم بغلق قاعدة البيانات قبل إن تعمل النسخ الإحتياطي عن طريق Close مثال adoPrimaryRS.Close على فكرة الغلق يتم من خلال…

لا شكر على واجب

السلام عليكم ورحمة الله وبركاته حقيقة لا توجد عندي خلفية حول asp.net ولكن سأرفق مثال عن login ولكن بستخدام ADO لعله يفيدك بفكرة معينة مع تحياتي . تفضلي المثال : login.zip

السلام عليكم عزيزي توجد دالة تتحقق من صحة التاريخ المدخل وهي IsDate وهذا مثال عليها If IsDate(Text1.Text) then Msgbox "Ok" Else Msgbox "False" end if اتمنى ان تفيدك هذه الداله ولو بشي يسير .

السلام عليكم أخي هذا مثال لكيفية استخدام مفتاح F1 فعندما تضغط على F1 تظهر سالة مرحبا Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) ' If KeyCode = vbKeyF1 Then MsgBox " مرحبا " End If ' End Sub وإذا اردت الحصول على الدوال KeyBoard قم بفتح Object …

احسنت أخي وبارك الله فيك

السلام عليكم أخي العزيز تفضل المثال المرفق ولعلك تستفيد منه وإذا يوجد عندك اي تعقيب فإنا في الإنتظار وعلى فكرة كتب هذا الكود بسرعة بدون فحص ولا ترتيب!. والله الموفق . calc.zip

جديد جدا ونحن في الإنتظار

السلام عليكم اخي العزيز اتبع الخطوات التالية لعلالها تفيدك . 1- من القائمة اختر Project ثم References 2- من القائمة التي سوفا تظهر اختر Microsoft ActiveX Data Objects 2.1 Libaray 3- افتح الفورم Form وضع الكود التالي في تصريح General Dim db As ADODB.Connection …

بارك الله فيك واحسنت

جرب تستبدل Dim بي Public

السلام عليكم أخي جرب هالكود :لكن اسمحلي لاني ما فهمت قصدك زين qry = inputbox"enter name emp"1 If qry=VbCancel Then Exit sub data1.recordset.findnixt qry مع تحياتي

السلام عليكم تفضل اخي هذا الرابط ربما تجد فيه ما ينفعك http://www.geocities.com/fadinet1/vb1.html