يك سوال ساده در مورد اكسس

[sama15661]

با سلام خدمت دوستان
من برنامه اي دارم كه مي خواد با توجه به شماره اي در يك تيبل جستجو كند و اطلاعات مربوط به آن شماره را در چند تكست باكس نمايش دهد .
مي شه لطفا در مورد كد جستجو به من كمك كنيد.

 

[sama15661]

لطفا به من بگوييد اشكال اين كد كجاست ؟

Dim db As Database
Set db = CurrentDb
Dim rst As Recordset
Dim strSQL As String

strSQL = "SELECT percode,name,family,cor FROM persenel WHERE (((persenel.percode) Like '*" & Text0.Value & "*'))"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
'Set rst = db.Execute
Do Until rst.EOF
Text0.Text = rst.Fields(0).Value
Text2.Text = rst.Fields(1).Value
Text4.Text = rst.Fields(2).Value
Text6.Text = rst.Fields(3).Value
rst.MoveNext
Loop​

 

[najafzadeh]

با سلام خدمت دوستان
من برنامه اي دارم كه مي خواد با توجه به شماره اي در يك تيبل جستجو كند و اطلاعات مربوط به آن شماره را در چند تكست باكس نمايش دهد .
مي شه لطفا در مورد كد جستجو به من كمك كنيد.

من میتونم برنامه رو براتون کامل بنویسم.
5000 تومن خرج داره. تحویل 24 ساعته

[email protected]