أداة داتا هدية للأعضاء

اداة رائعة لكن لى ملحوظة صغيرة اذا سمحت لى

بما انك لم تغلق التكست بوكس الخاص بالاداة فاجعل عند الضغط على مفتاح Enter ينتقل الى السجل المكتوب رقمه فى التكست بوكس.

ارجو ان تكون قد فهمتنى :rolleyes:

شكرا على التعقيب أخي

يمكننا اضافة خاصية البحث والفلتر كما في الأداة myadodc والهدف هنا لطرح الكود هو تطوير الاداة الى الأحسن

بالتوفيق دائما

آسف نسيت يمكنك إضافة السطر التالي لكي تستفيد من المرور السريع الى التسجيلة المكتوبة في التكست

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Rs.AbsolutePosition = Val(Text1.Text)
End Sub

بالتوفيق دائما

تم التحميل ..

ومشاركة جميلة ومبتكرة منك اخ DreamNet ..

تشكر على هكذا ابداع

السلام عليكم ورحمة الله وبركاته

بعض الإضافات بانتظار التعليق

الملف عذرا

RDATA2.zip

شكرا جزيلا لك جاري التجربة