[baha]

(27-09-19, 12:53 AM)ahssan كتب :

(26-09-19, 06:21 AM)baha كتب : الشكر لله

أرجو أن يكون المطلوب لأن الموضوع لا يزال غامضاً لدي

تمنياتي لك وللجميع التوفيق

وفقك الله اخي baha بالظبط هذا المطلوب لكن لمن اجي اشغل المثال بيطلع خطا بالكود ...

جرب تعديل الكود 

كود :

If dt.Rows.Count > 0 Then
     TextBox4.Text=dt(0)(0)
End If

بالكود

كود :

If dt.Rows.Count > 0 Then
On Error Resume Next  
   TextBox4.Text=dt(0)(0)  
End If

أتمنى لك التوفيق