midoo3591

On Error Resume Next Set DataGrid1.DataSource = Nothing If Combo1.ListIndex = 0 Then If Option1.Value = True Then Adodc1.RecordSource = "Select * From Telcom Where الإسم= '" & Text1 & "'" End If If Option2.Value = True Then Adodc1.RecordSource = "Select * From…

لم يعمل اختار من الكمبو بكس والاوبشن ولكن لا يعمل لا يظهر نتائج

شكرا اخي العزيز وجاري التجربة

أخي OMANI ممكن كتابة الاكواد ورفع البرنامج مرة اخرى لاني معرفتش اعملها

السلام عليكم ورحمة الله وبركاته محتاج كود ضروري لاكتمال هذا المشروع مرفق صورة للشاشة التي أحتاج إلى أكوادها مع العلم أن شاشة الدخول لم أكملها لعرض البرنامج عليكم بسهولة محتاج كود للبحث بــ ( الإسم - تليفون - رقم الكابينة - رقم البورتة ) مرفق الصورة والمشروع ير…

شكرا اخى الكريم وجارى التجربة

انا لقيت الكود ده Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox1.Text = "mo" And TextBox2.Text = "mo") Then Main.Show() Else MsgBox("اسم المستخدم أو كلمة المرور غير صحيحة") End If End Su…

اريد الاكواد للصورة المرفقة بعد اذنكم 1.rar

السلام عليكم اسف لازعاج حضرتكم بعد اذن الاعضاء والمشرفين اريد كود لنافذة تسجيل الدخول لان البرنامج متوقف عليها وضرورى اسلمه بكرة النافذة تتكون من اسم المستخدم text box 1 كلمة المرور text box 2 زر موافق - الغاء ونافذة اخرى لتغير كلمة المرور النافذة تتكون من اسم…

تم تصحيح اخطاء الكود بواسطة الاخ hay3am جزيل الشكر له

اخى البرنامج لا يظهر تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح ولا يقوم بالتعديل ولا توجد رسالة خطأ

بعد اذن الأعضاء والمشرفين ممكن طريقة اضافة الخانات التالية Name.Address.Numtokeel.Yeartokeel.Noatokeel.Numfile الى هذا الكود فى الجزء الخاص بالـ SavInto.CommandText Dim n As String = Label4.Text Dim SavInto As New OleDb.OleDbCommand Dim ConStr As String = _ "P…