بن ملعاط

أخي الكريم جرب هذا الكود Private Sub ListBox_Countries_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox_Countries.SelectedIndexChanged If TextBox1.Text.Contains(ListBox_Countries.SelectedItem) Then Exit Sub End I…

هذه طريقة بدائية تفي بالغرض و الإخوان فيهم الخير و البركة Private Sub mCalc() Dim aBuyPrice As Double Dim aSellPrice As Double Dim aExpense As Double Dim aProfit As Double aBuyPrice = Val(TextBox1.Text) aSellPrice = Val(TextBox2.Text) aExpense = Val(TextBox3.T…

هو موجود فعلا في حدث اللود فورم form8 و لكن يجب أن تلاحظي أنني غيرت اسم جدول الصفوف في نفس قاعدة البيانات و كذلك في البرنامج ليصبح Sch_Rows بدلا من Rows وبدون هذا التغيير أكيد لن يعمل و الله سبحانه أجل و اعلم

ممكن ترفع مثال للتسهيل على من لديه فكرة بالتوفيق

أولا الجدول يحنوي فعلا على 54 سجل شاهد الصورة المرفقة ثانيا بالنسبة للكمبوبوكس انت عامل دالة لتعبئة الكمبوبوكس FILLCOMBOBOX("CustomerDetails", "address", Me.ComboBox) ولكن الدالة في Module1 فارغة Module Module1 Public Sub FILLCOMBOBOX(ByVal TABLE As String, By…

جربت كل الحلول و لكن لم تضبط معي لأن كلمة Rows كلمة محجوزة في الفيجوال بيسك دوت نت و بعد تغيير اسم الجدول إلى Sch_Rows و تنفيذ هذا الكود تمت تعبئة الكمبوبوكس conn.Open() Dim dataadapter1 As New OleDbDataAdapter(sqlstr, conn) dataadapter1.Fill(dataset1, "Sch_Ro…

,basiceditfunction='" & If(Trim(txtbasicedit.Text)="نعم",True,False) بكل بساطة إعمل جملة شرطية إذا كانت قيمة التكست بوكس نعم يسجل في مكانه قيمة منطقية True كما في المثال

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

:excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl: :excl:

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

أخي الكريم أنا باستخدم هذه الدالة من فترة طويلة لتعطيل زر إغلاق الفورم Public Function DisableCloseButton(ByRef frm As System.Windows.Forms.Form) As Object Dim lHandSysMenu As Integer Dim lAns1, lAns2 As Integer lHandSysMenu = GetSystemMenu(frm.Handle.ToInt32,…

بالتوفيق إن شاء الله أخي الكريم جمال الدين لدي استفسار بسيط عند تشغيل البرنامج لدي لم يتعرف على سيرفر الـ SQL المدمج مع الدوت نت فهل جربت البرنامج و هل من الضروري وجود SQL server 2008 ولك الشكر

أشكرك أخي الكريم ولكن ليس هذا ما قصدته سؤالي أن يتم عرضه بدون استيراد إلى قريد شكرا

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

أرسلت لك على الخاص

أشكرك وفيت وكفيت

هنا سوف تجد برنامج من ميكروسوفت حقيقة أنا لم أجربه لكن حسب ما فهمته أن يقوم بما تطلبه بالإضافة إلى دمج أكثر من قاعدة بيانات أكسس في قاعدة SQL أتمنى أن يكون ما تبحث عنه و عذرا إن لم يكن http://www.microsoft.com/sqlserver/2005/en...ion-access.aspx

شكرا يتم التحميل الآن

اخي الكريم هل له واجهة استخدام خاصة ؟ يعني كيف أستطيع العمل عليه ( إنشاء الجداول و الاستعلامات و العلاقات ) و شكرا

الله يجازيك كل خير أخي الكريم محمد شكرا