omani

اخي الكريم : الجدول الموجود في قاعدة البيانات يحتوي على حقل ممنوع من التكرار . كمفاح اساسي مثلا . او قمت انت بإنشاءه ليكون غير مكرر . الحل : هو قبل ان تضيف الى قاعدة البيانات , وبعد ان تقوم بالادخال في الفورم . تقوم بالبحث عن القيمة اللتي تخض هذا الحقل . فإذا …

اخي ماهو برنامج التحزيم الذي تستخدمه ؟ إذا كنت تستخدم Pakage & deployment المرفق مع الفيجوال . فسوف تجد بعد التحزيم . ملف اسمه Setup.list قم بفتح الملف باستخدام المفكرة . إفتح الملف وابحث عن هذا التبويب [setup1 Files] ستجد تحتها قائمة تبدأ ب File1 قام بحذف الس…

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

لرسم الدائرة في وسط الفورم . تحياج الى الحصول على الاحداثيات اولا وذلك بأخذ الارتفاع /2 والعرض /2 X1 = Me.Width / 2 Y1 = Me.Height / 2 Circle (X1, Y1), 1000, 500 تحياتي

تفضل اخي فقط قم باضافة زر وعدد 2 تكست بكس . ضع الكود التالي في الزر واكتب التاريخ في تكست1 Dim d, m, y As Integer Dim pd As Integer Dim pd1 As Integer Dim pd2 As Integer Dim pd3 As Integer If IsDate(Text1.Text) = False Then MsgBox "عفوا يجب ان يكون الادخال تار…

تفضل Msgbox " هل تود التطبيق على بيانات شهر " & combo1.text تحياتي

اخي الكريم : قم بتغيير الخط وباذن الله سوف تحل المشكلة تحياتي

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

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

هذا كود التحويل الى ثنائي مع الفاصلة العشرية ان وجدت . على عجالة اعددته اتمنى ن يكون صحيحا علماً بأنني لم اجرب الكود Dim s As String Dim f As String Dim L As Integer s = Int(Text1.Text) L = Len(s) f = "" If Len(Text1.Text) <> L Then f = Mid(Text1.Text, (L + 2)…

العفو ولكن يجب تطوير هذا الكود ليتمكن من قراءة الارقام الثنائية التي بعد الفاصلة مثال : 1001.111 هذا طريقة تحويله تختلف عن الكود السابق الأس هنا بالسالب حيث يكون -1 ، -2 ، -3 وهكذا سأحاول ان اطور الكود بحيث يستطيع قراءة مابعد الفاصلة تحياتي

انا اسف لا توجد S هي n فقط انا اعدت صياغة الفيريبلز ونسيت هذه If n > 0 Then oct = oct + (n * (2 ^ i)) تحياتي واكرر اسفي

هذا بالفيجوال بيسك 6 إذا ينفعك ولكن فقط الارقام الصحيحه بدون الفاصلة العشرية Dim n As Integer Dim oct As Integer oct = 0 For i = 0 To (Len(Text1.Text) - 1) n = Mid(Text1.Text, (Len(Text1.Text) - i), 1) If n > 0 Then oct = oct + (s * (2 ^ i)) Next i Text2.Text …

السلام عليكم اولا شكرا على الكتاب .. وانا بجي وياك بس للحين ما لقيت تاكسي يوديني انته تقدم وانا لاحقك اليوم او بكره هههههههههههههههه تحياتي

تفضل اخي هذا تحويل الى الاكسيس ولكنني لم افحصه جيداً تحياتي ToAccess.rar

الافضل استخدام الدالة Trim لازالة المسافات في البداية والنهاية اما المسافات الداخلية فلا تتأثر بذلك . وهذه امثلة على كيفية استخدام Trim مثال Trim(text1.text) لازالة الفراغ في الطرف الايمن والايسر Trim$(text1.text) نفس السابق مع قبول بيانات من نوع نص RTrim(text…

اخي الكريم : انتظرني الى يوم غد وسأقوم بتحويله لك إذا لم يقم اي من الاعضاء بتحويله لك اليوم . تحياتي

جرب هذا If DataEnvironment1.rsCar.State = 1 Then DataEnvironment1.rsCar.Close DataEnvironment1.rsCar.Open DataEnvironment1.rsCar.Filter = "" DataEnvironment1.rsCar.Requery DoEvents DataEnvironment1.rsCar.Filter = "" DataEnvironment1.rsCar.Filter = "date >= #" …

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

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