سلام عليكم ورحمه الله وبركاته
بجد اعجز عن شكركم لهاذا المنتدى الرائع والفعال بكل ماهو جديد ومفيد
فجزاكم الله كل الخيررر للجميع
عندي سؤال وهو كالتالي
لدي فورم بحث
عليها 3 option بحيث سوف يبحث في ال
option1 برقم الطالبه
option 2 يبحث برقم البرنامج
option 3 يبحث برقم الايصال
وعندي لعملية العرض ولاختيار DBCombo3 لكل خيار وايضا ليبل توضيحي
المفروض عند خيار اي اوبتشن سوف يظهر لي اداتا كمبو واليبل الخاص بالخيار
وايعرض لي من القاعده البيانات
وعندما اختار مثلا رقم الطالبه من الداتا كمبو عندي
كومند موافق والغاء الامر
عند الضغط على موافق يعرض لي نتيجه البحث وهي فورم البيانات الطالبه
وهاذ الكود الي ماظبط معي في عمليه البحث في زر موافق
Dim m, h, k As Integer
If Option1.Value = True Then
m = DataCombo1.Text
Form14.Hide
Form5.Adodc1.Recordset.MoveFirst
Form5.Adodc1.Recordset.Find "[student_ no] ='" & m & "'"
End If
If Option2.Value = True Then
h = DataCombo2.Text
Form14.Hide
Form5.Adodc1.Recordset.MoveFirst
Form5.Adodc1.Recordset.Find "[programe_ no] ='" & h & "'"
End If
If Option3.Value = True Then
k = DataCombo3.Text
Form14.Hide
Form5.Adodc1.Recordset.MoveFirst
Form5.Adodc1.Recordset.Find "[ricept_ no] ='" & k & "'"
End If
-----------
وفي كل اوبتشين وضعت هاذا الكود
If Option1.Value = True Then
Label2.Visible = False
Label3.Visible = False
DataCombo2.Visible = False
DataCombo3.Visible = False
Label1.Visible = True
DataCombo1.Visible = True
End If
علمن باني رابطه الداتا كمبو بالقاعده
بواسطه Adodc
واسفه على الاطاله اعانكم الله لفعل الخير
وجزاكم الله منا كل الخير
اختكم
آنين الصمت