منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Dim db As Database
Dim rs As DAO.Recordset

db.Open App.Path & "\new.mdb"
rs.Open Add, db, adOpenStatic, adLockPessimistic
rs.Find id = " & Trim(Text1.Text) & ", 0, adSearchForward, 1

(Text2.Text = (rs!room

بقاعدة البيانات لدي جدول باسم add  و يحتوي على خانتين id  و room 
استخدمت هذا الكود لاستدعاء البيانات الموجودة في الحقل room عن طريق البحث عن القيمة الموجودة في id باستخدام صندوق النص text1, لكن في كل مرة أقوم بكتابة قيمة مختلفة في text1 يقوم باستدعاء اول سجل فقط 

مارايك بالطريقة التالية:
http://vb4arb.com/vb/showthread.php?tid=7411

(02-08-17, 07:58 PM)سعود كتب : [ -> ]مارايك بالطريقة التالية:
http://vb4arb.com/vb/showthread.php?tid=7411

شكرا لك أخي الفاضل 
الطريقة جميلة 

لكن كنت افضل استدعاء البيانات في مربع النص مباشرة دون استخدام الاداة MsFlexGrid

إقتباس :لكن كنت افضل استدعاء البيانات في مربع النص مباشرة دون استخدام الاداة MsFlexGrid

لست مجبر ... بامكانك تغير اللي تريد