[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
أتمنّى يكون هذا المطلوب .. وهذا من خيرات أخي و أستاذي الغالي " أحمد منصور "
جزاه الله خير الجزاء حاضرًا و غائبًا
تحياتي

كود :

Set RS = DB.OpenRecordset("Select * From Tabel1 Where ID=" & Val(Trim$(Text1.Text)) & " Or Name Like '" & Trim$(Text2.Text) & "*'")