هل اجد الكود المناسب حقيقه بحثت في المنتدى لم اجد توضيحاً للكود المطلوب ، سيكون المثال والفكره للتبديل بالبحث شي جيد بالنسبه لي ولبقيه الاعضاء الكرام في المنتدى ,
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
03-10-24, 02:51 AM (آخر تعديل لهذه المشاركة : 03-10-24, 03:48 AM {2} بواسطة justforit.)
المثال يعمل كما طلبت؟
ماهي المشكلة لديك؟
اذا انا فهمت بشكل صحيح عملت مثال جديد ببيانات بسيطة
تفحص ملف الاكسس اولا ثم انظر للاستعلامات واخيرا انظر للفورم بفيجوال بيسك
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
03-10-24, 03:59 AM (آخر تعديل لهذه المشاركة : 03-10-24, 04:12 AM {2} بواسطة محمد مسافر.)
صحيح وبارك الله فيك .
فقط اريد عند التبديل في الراديو بوتون البحث يكون بشكل تلقائي اتمنى ان تكون الفكره وصلت .
نحن الان مفعلين الاختيار التلقائي بـ راديو بوتون 1 المسمى VILLAGE كويس كده
الان ادخلت كلمت خضره مثلاً وهي موجود في عمود الـ VILLAGE وعملت بحث ظهرت النتيجه كويس .
في نفس الوقت وعلى نفس الكلمه خضره انتقلت واضغط على راديو بوتون 2 المسمى OZLAHH لايظهر شي لاانها غير موجوده في عمود الـ OZLAHH ايضاً تمام
المطلوب الان هو عند العوده بالاخيتار مباشره الى الراديو بوتون 1مباشره تظهر النتيجه السابقه ( التبديل بين الراديو بوتون للبحث تلقائي ) يكون فعال من الى بمعنى حركه الانتقال والبحث مابين الراديو بوتون 1 و2 مفعله بشكل تلقائي للنتائج .
شكرأً
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
جرب انك تستخدم الحدث click بدلا عن CheckedChanged
واطلع على المثال ففيه ترتيب الاكواد بشكل جيد.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
جربت غيرت ولم يتم التفعيل للبحث التلقائي عند التنقل بين الراديو بوتون 1 وبوتون 2
PHP كود :
Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [VILLAGE] LIKE @c ", con) End Sub
Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [OZLAHH] LIKE @c ", con) End Sub
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
04-10-24, 01:34 AM (آخر تعديل لهذه المشاركة : 04-10-24, 01:36 AM {2} بواسطة Taha Okla.)
حدث البحث عندك هو المسؤول عن العملية ..
انسخ حدث البحث وضعه تحت RadioButton لكل منهما
فبمجرد اختيار أي منهما يتم البحث .. واعطاء النتيجة ...
أما الكود الذي وضعته أنت تحت حدث الـ RadioButton خطأ وما في داعي له أبداً
الكود عندك في حدث البحث فيه أشياء مكررة وغير منطقية
أقرأ الكود جيداً وراجعه خوة خطوة وستعرف ما المفيد منه وما الشيء الذي لو حذفته لن يغير شيء بمسار التنفيذ ..
(04-10-24, 01:34 AM)Taha Okla كتب : حدث البحث عندك هو المسؤول عن العملية ..
انسخ حدث البحث وضعه تحت RadioButton لكل منهما
فبمجرد اختيار أي منهما يتم البحث .. واعطاء النتيجة ...
أما الكود الذي وضعته أنت تحت حدث الـ RadioButton خطأ وما في داعي له أبداً
الكود عندك في حدث البحث فيه أشياء مكررة وغير منطقية
أقرأ الكود جيداً وراجعه خوة خطوة وستعرف ما المفيد منه وما الشيء الذي لو حذفته لن يغير شيء بمسار التنفيذ ..
بارك الله فيك كلامك صحيح ولكن انا عملت الراديو بوتون هو الخيار الافتراضي المفعل لماذا عندما اكتب كلمه في خانه البحث لاتظهر النتيجه مباشره بأعتبار الراديو بوتون واحد محدد ، بل يجب عليا الضغط مره اخرى علشان الامر يمشى هل بالامكان الكتابه والبحث يظهر مباشره RadioButton1.Checked = True
PHP كود :
Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click dt.Clear() Label1.Hide() If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub If textSerch.Text.Trim.Length < 3 Then Label1.Visible = True Exit Sub End If
dt.Clear() Label1.Hide() If textSerch.Text.Trim.Length >= 3 Then If RadioButton1.Checked = True Then
Dim DS As New DataSet da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [VILLAGE] Like '%" & Trim$(textSerch.Text) & "%'", con)
DS.Clear() da.Fill(DS, "VILLAGE") DataGridView1.DataSource = DS DataGridView1.DataMember = "VILLAGE" dt = DS.Tables(0) If dt.Rows.Count = 0 Then Label1.Show() Else Dim DS As New DataSet da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [OZLAHH] Like '%" & Trim$(textSerch.Text) & "%'", con)
DS.Clear() da.Fill(DS, "OZLAHH") dt = DS.Tables(0) DataGridView1.DataSource = DS DataGridView1.DataMember = "OZLAHH" If dt.Rows.Count = 0 Then Label1.Show()
End If
End If If textSerch.Text = "" Then Label2.Show() Else Label2.Hide() End If
'التحكم في عرض العمود DataGridView1.Columns(0).Width = 40 DataGridView1.Columns(1).Width = 110 DataGridView1.Columns(2).Width = 110 DataGridView1.Columns(3).Width = 130 DataGridView1.Columns(4).Width = 130 End Sub
Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click dt.Clear() Label1.Hide() If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub If textSerch.Text.Trim.Length < 3 Then Label1.Visible = True Exit Sub End If
dt.Clear() Label1.Hide() If textSerch.Text.Trim.Length >= 3 Then If RadioButton1.Checked = True Then
Dim DS As New DataSet da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [VILLAGE] Like '%" & Trim$(textSerch.Text) & "%'", con)
DS.Clear() da.Fill(DS, "VILLAGE") DataGridView1.DataSource = DS DataGridView1.DataMember = "VILLAGE" dt = DS.Tables(0) If dt.Rows.Count = 0 Then Label1.Show() Else Dim DS As New DataSet da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [OZLAHH] Like '%" & Trim$(textSerch.Text) & "%'", con)
DS.Clear() da.Fill(DS, "OZLAHH") dt = DS.Tables(0) DataGridView1.DataSource = DS DataGridView1.DataMember = "OZLAHH" If dt.Rows.Count = 0 Then Label1.Show()
End If
End If If textSerch.Text = "" Then Label2.Show() Else Label2.Hide() End If End Sub
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
04-10-24, 02:33 AM (آخر تعديل لهذه المشاركة : 04-10-24, 04:50 AM {2} بواسطة Taha Okla.)
نسخ الحدث مش يعني تنسخ كل الكود ..
بتضيع كثير وقت ع أشياء بسيطة جداً المفروض تكون عندك من المسلمات .
راجع الأساسيات وراح تفيدك كثير (حرام تضيع وقتك ع مشروع فيك تخلصه بأقل من يومين -- لو هذا الوقت انصرف ع الاساسيات راح توفر عليك كثير بإنتاجية مشاريعك اللاحقة)..
هذا الكود بعد بعض التعديلات (فيك تبسطه أكثر من هيك بكثير) ..
كود :
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
textSerch_TextChanged(Nothing, Nothing)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
textSerch_TextChanged(Nothing, Nothing)
End Sub
Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged
dt.Clear()
If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
If textSerch.Text.Trim.Length < 3 Then
Label1.Visible = True
Exit Sub
End If
Dim strCity As String
dt.Clear()
Label1.Hide()
If RadioButton1.Checked = True Then
strCity = "VILLAGE"
Else
strCity = "OZLAHH"
End If
Dim DS As New DataSet
da = New OleDbDataAdapter("Select * From [Coverage Claims] Where [" & strCity & "] Like '%" & Trim$(textSerch.Text) & "%'", con)
DS.Clear()
da.Fill(DS, strCity)
DataGridView1.DataSource = DS
DataGridView1.DataMember = strCity
dt = DS.Tables(0)
If dt.Rows.Count <= 0 Then Label1.Show()
'التحكم في عرض العمود
DataGridView1.Columns(0).Width = 40
DataGridView1.Columns(1).Width = 110
DataGridView1.Columns(2).Width = 110
DataGridView1.Columns(3).Width = 130
DataGridView1.Columns(4).Width = 130
End Sub
راجع الأساسيات ولا تفوت شي منها .. أكاديمية حسونة ع يوتيوب - فيها كثير أشياء بيحتاجها كل مبرمج ..
