المثال المرفق به أختيار من قائمة .
بعد أختيار الشركة المصنعه .
تظهر قائمة من السيارات التي تصنعها هذه الشركة .
فهل بالامكان تعديل المثال لاضافة أسم سيارة غير الموجوده بعد أظهار رسالة تفيد بعدم وجوده مسبقاً .
تعديل على مثال سابق
مغلق
إستخدم هذا الكود لمنع تكرار إدخال الأسماء وذلك بالبحث داخل القائمة
Dim DB As Database
Dim TB As Recordset
Set TB = DB.OpenRecordset("Car", DB_OPEN_TABLE)
Do While Not TB.EOF
If TB!CarName = CarName.Text Then
MsgBox "åÐå ÇáÓíÇÑÉ ãÖÇÝÉ ãÓÈÞÇ"
VBA.SendKeys "{ESC}"
End If
TB.MoveNext
If TB.EOF Then Exit Do
Loop
فلسطين الزاهية بألوان الحب والسلام
ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها
تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين
هذا الموضوع مغلق.