جستجو و نمايش ركورد [بایگانی]

حسن شاهدوست

پنج شنبه 20 اسفند 1388, 19:14 عصر

ضمن عرض سلام و تبريك به خاطر فرا رسيدن عيد نوروز دوستان من در نرم افزار ديدم كه يك ديتا گريد بود و چند عدد تكس باكس و وقتي اطلاعات را داخل تكس باكس مي نوشتيم مي رفت هرچي اطلاعات شبيه بود در ديتا گريد نمايش مي داد و وقتي دو بار كليك روي ديتا گريد مي كرديد مي رفت صفحه مربوط به اطلاعات را نمايش مي داد .
كسي هست همچين جستجويي رو بلد باشه

amirzazadeh

شنبه 22 اسفند 1388, 08:45 صبح

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

حسن شاهدوست

یک شنبه 23 اسفند 1388, 15:35 عصر

دوستان ممنون ولی در اون نرم افزار تعداد ستون های دیتا گرید 9تا بود و تازه در آن می گفت تعداد رکورد ها چقدر است ....

dadsara

یک شنبه 23 اسفند 1388, 16:21 عصر

سلام
خوب شما تعداد ستونها را می توانید به تعداد لخواه تغییر دهید
در خصوص تعداد رکورد نیز جستجو کنید موارد زیادی یافت خواهید نمود
(مثلا اگر شما بجای لیست باکس از سابفرم استفاده کنید بصورت اتوماتیک تعداد رکورد در Vavigation نمایش داده می شود)

el_abdollahi

پنج شنبه 20 خرداد 1389, 13:14 عصر

با سلام
میشه درمورد نمونه دیتابیس پست ۲ توضیح بدین:

Private Sub Text0_Change()
On Error Resume Next
DoCmd.GoToControl "list2"
List2.RowSource = "SELECT Table1.ID, Table1.nam FROM Table1 WHERE (((Table1.nam) Like '*" & Text0 & "*'))ORDER BY Table1.nam;"
List2.Requery
DoCmd.GoToControl "text0"
Text0.SelStart = Text0.SelLength
End Sub

من نمیفهمم چرا کنترل باید بره روی لیست باکس؟
و چرا فوکوس روی تکست باکس برنمیگرده؟
آیا راه دیگه ای وجود نداره؟

amirzazadeh

پنج شنبه 20 خرداد 1389, 17:59 عصر

با سلام
میشه درمورد نمونه دیتابیس پست ۲ توضیح بدین:

Private Sub Text0_Change()
On Error Resume Next
DoCmd.GoToControl "list2"
List2.RowSource = "SELECT Table1.ID, Table1.nam FROM Table1 WHERE (((Table1.nam) Like '*" & Text0 & "*'))ORDER BY Table1.nam;"
List2.Requery
DoCmd.GoToControl "text0"
Text0.SelStart = Text0.SelLength
End Sub

من نمیفهمم چرا کنترل باید بره روی لیست باکس؟
و چرا فوکوس روی تکست باکس برنمیگرده؟
آیا راه دیگه ای وجود نداره؟
سلام
اين دو خط كد براي اين منظور كفايت ميكنه:

List2.RowSource = "SELECT Table1.ID, Table1.nam FROM Table1 WHERE (((Table1.nam) Like '*" & Text0 & "*'))ORDER BY Table1.nam;"
List2.Requery
مابقي كدها روميتونين ريمارك كنيد.
.......................
موفق باشيد

el_abdollahi

شنبه 22 خرداد 1389, 09:16 صبح

با سلام
من این کدها رو مینویسم ولی فایده ای نداره و اصلا خروجی به من نمیده.
هم با کدهای انتقال فوکوس و هم بدون اونها
در ضمن در ابتدای اجرای فرم این خطا رو میده:
you tried to run a visual basic procedure that references an object property or method

من باید چه کار کنم؟

el_abdollahi

دوشنبه 24 خرداد 1389, 08:43 صبح

دوستان لطفا راهنمایی کنید

dadsara

سه شنبه 25 خرداد 1389, 13:25 عصر

با سلام
من این کدها رو مینویسم ولی فایده ای نداره و اصلا خروجی به من نمیده.
هم با کدهای انتقال فوکوس و هم بدون اونها
در ضمن در ابتدای اجرای فرم این خطا رو میده:
you tried to run a visual basic procedure that references an object property or method

من باید چه کار کنم؟
سلام
میتونید این نمونه آخر خودتون را آپلود کنید