جستجوي Table

[ArashAminzadeh]

سلام دوستان

من چطوري ميتونم از يك فرم با وارد كردن يك فيلد خاص به محض اينكه كليد enter يا tab رو زدم تمام table من سرچ بشه و اگر فيلدي برابر با فيلد مورد نظر در فرم من بود رو پيدا كنه و تو همون فرم به نمايش در بياد (يعني تمامي فيلدهاي فرمم اتومات پر بشه) و اگر نبود كه هيچ بقيه فرم رو خودم پر ميكنم.

مرسي

[مهدی قربانی]

سلام
دوست عزيز شما براي خواسته تون بايد از ركوردست استفاده كنيد به اين ترتيب كه وقتي فيلد مورد نظرتون رو ترك مي كنيد ( با استفاده از رخداد After Update ) اطلاعات جدول رو بريزيد توي ركوردست ، اين ركوردست با استفاده از دستورات SQL ركوردهاي متناظر با اطلاعات وارده رو فيلتر ميكنه و شما مي تونيد اطلاعات مورد نيازتون رو در ساير فيلدها قرار بديد حالا بسم الله رو بگيد و شروع كنيد به ساختن اگر به مشكلي برخورديد همين جا مطرح كنيد تا كمك و راهنمايي هاي لازم خدممتون ارائه بشه ، البته چنانچه يك مقدار جستجو مي كرديد مطالب و موضوعات مشابه در دسترس شما قرار داشت چون در مورد جستجو ، ركوردست ، مقدار دهي اتوماتيك و .... بارها در اين انجمن بحث شده .
موفق باشيد

[karmand]

برای دیدن نام جداول از کد زیر استفاده کن اما نام فیلد جستجو میکنم شما نیز

Private Sub Command5_Click()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
' If obj.name = "bariran" Then


MsgBox (obj.name)

'End If
Next obj
End Sub