mahmoudabdelshafy

السلام عليكم ورحمه الله لو سمحتوا اخواني عاوز اعمل خط مائل متحرك يكون بعد اخر صف به بيانات مثل ما في الصوره كل لما يتم ادخال بيانات في صف فارغ يتحرك الخط للصف الفارغ التالي تلقائي ارجو شرح الطريقه للضروره لانه المدير محتاجها وانا مش عارف اعملها مطلوبه مني غدا بإذن الله

السلام عليكم ورحمة الله وبركاتة لو سمحتوا بيظهرلى رسالة خطأ Syntax error in FROM clause رغم إن الكود صح أسم الجدول USER واسماء حقول الجدول name_far و name_user و pas_user ولا اعلم ما سبب الخطأ برجاء مراجعة الكود وإعلامى بالخطأ للضرورة cmd = New OleDbCommand("select * from user where name_far=@name_far and name_user=@name_user and pas_user=@pas_user ", con) cmd.Parameters.Add(New OleDbParameter("@name_far", OleDbType.VarChar)).Value = ComboBox1.Text cmd.Parameters.Add(New OleDbParameter("@name_user", OleDbType.VarChar)).Value = TextBox1.Text cmd.Parameters.Add(New OleDbParameter("@pas_user", OleDbType.VarChar)).Value = TextBox2.Text con.Open() dr = cmd.ExecuteScalar dr.Read() If dr.HasRows Then Dim frm As New Form2 'frm.Show() Else MSGBOX("خطأ") End If dr.Close() con.Close()

السلام عليكم ورحمه الله وبركاته لو سمحتوا يا اخواني انا عندي داتا جريد فيو فيها 5 اعمده وانا عاوز اعمل بحث فيها من خلال كومبو بوكس وتيكست بوكس وزر بحث بحيث اختار نوع المخزن من الكومبو بوكس واختار الصنف من التيكست بوكس واقوم بالبحث بالضغط علي الزر وشكرا لكم جميعا

السلام عليكم ورحمة الله وبركاتة لو سمحتوا انا مصمم يوزر فورم ادخال بيانات وعامل كود اخفاء ورقة العمل عند فتح الشيت وهو تمام لكن كل لما افتح ورقة عمل اخرى اثناء فتح اليوزر فورم يظهر ورق العمل اللى خافيها المطلوب :- كود لعدم ظهور ورقة العمل اثناء فتح اى ورقة عمل اخرى ولكم جزيل الشكر

شكراً جداً أستاذ محمد الأن يعمل بشكل جيد الحمد لله شكراً جدا

لو سمحتوا أرجوا المساعدة انا مصمم فورم للبحث ببحث فية بين تاريخين وبشرطين ان يكون ComboBox28 = العمود 4 و ComboBox32 = العمود 5 وهو شغال كويس جداً بس عاوز تعديل بسيط فية لو سمحتوا أن لما يكون combobox32 فارغ يظهر جميع النتائج الموجودة داخل الكومبو بوكس مش شرط يكون فى بيانات المعذرة مش عارف ارفق ملف لان حجمه كبير جدا أرجو الإفادة من حضراتكم ... ودا الكود دا حضرتك ملف عاملة بسرعة لان الأخر حجمة كبير ويوحى لنفس الفكرة البحث شغال كويس جدا لكن أريد عندما يكون ComboBox4 فارغ ولم يتم تحديد أى مقاس منه يقوم بالبحث من خلال COMBBOX3 فقط أرجو الإفادة من حضراتكم للضرورة إن شاء الله أكون قدرت أوصل وجهت نظرى لحضرتك On Error Resume Next Dim sh As Worksheet Set sh = Sheets("ÕÑÝ Òì") Dim i, x As Long Me.ListBox6.Clear For i = 3 To 10000 If sh.Cells(i, 3) >= CDate(Me.TextBox61) And sh.Cells(i, 3).Value <= CDate(Me.TextBox60) _ And sh.Cells(i, 4) = Me.ComboBox28 And sh.Cells(i, 5) = Me.ComboBox32 Then Me.ListBox6.AddItem sh.Cells(i, 2).Value Me.ListBox6.List(ListBox6.ListCount - 1, 1) = sh.Cells(i, 3).Value Me.ListBox6.List(ListBox6.ListCount - 1, 2) = sh.Cells(i, 4).Value Me.ListBox6.List(ListBox6.ListCount - 1, 3) = sh.Cells(i, 5).Value Me.ListBox6.List(ListBox6.ListCount - 1, 4) = sh.Cells(i, 6).Value Me.ListBox6.List(ListBox6.ListCount - 1, 5) = sh.Cells(i, 7).Value Me.ListBox6.List(ListBox6.ListCount - 1, 6) = sh.Cells(i, 8).Value End If Next i