PDA

View Full Version : bound کردن از طریق کد؟


IsNull
شنبه 18 فروردین 1386, 04:11 صبح
سلام به همگی:
کسی میدونه از طریق کد نویسی چطور میشه یه text رو باند کرد؟
شاپرک
شنبه 18 فروردین 1386, 07:22 صبح
http://barnamenevis.org/forum/showthread.php?t=59055
moustafa
شنبه 18 فروردین 1386, 15:02 عصر
در لینک زیر هم کد کذاشته شده ،هم نمونه برنامه
http://barnamenevis.org/forum/showthread.php?t=62819&page=2
IsNull
شنبه 18 فروردین 1386, 23:35 عصر
دست شما درد نکنه .
این کدی هست که من باهاش rs رو ست مینکم:

Public rs As Recordset
Public db As Database
Set db = CurrentDb()
Set rs= db.OpenRecordset("Tb")

rs.MoveFirst
و این کدی هست که من باهاش آبجکتهای فرم رو باند میکنم:

Me.Text1 = rstFrm.Fields("tx1")
Me.Text2 = rstFrm.Fields("tx2")
Me.Text3 = rstFrm.Fields("tx3")

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

rs.MoveNext
moustafa
شنبه 18 فروردین 1386, 23:57 عصر
نمیشه خود فایل رو بذاری
اگه اطلاعات از فرم وارد جدول میشه جای طرفین مساوی در قسمت دوم کد های که گذاشتی بایدعوض بشه

rstfrm!("b_autor")=me.textautor
.....

rstfrm.update رو هم که نگذاشتی
IsNull
شنبه 18 فروردین 1386, 23:59 عصر
نه ,من میخوام اطلاعات جدولم رو از طریق rs به آبجکتهام ربط بدم.
یعنی در حقیقت برعکس کاری که شما گفتید, فقط میخوام اطلاعات رو در فرم نمایش بدم.
moustafa
یک شنبه 19 فروردین 1386, 00:30 صبح
منظورت دکمه های next ,...... هست ؟
on error resumenext
rs.movenext
me.text=rs!filde1
.....
IsNull
یک شنبه 19 فروردین 1386, 03:14 صبح
حالا با چه کدی یه txt در ساب فرم (کنتینیو فرم)رو از فرم اصلی باند کنم؟با کد زیر که نشد.

Me.subform1.Form.Controls.Item("txtS") = rsts.Fields("S")
صبا9841
یک شنبه 19 فروردین 1386, 08:45 صبح
فرض کن توی جدولت TextAB را میخواهی در سابفرم از فرم اصلی با یک کلیک نشان بدی.



Private Sub OkClic_Click()
Me.frmSubForm.Form.Filter = "ObjectType='TextAB'"
Me.frmSubForm.Form.FilterOn = True
Me.frmSubForm.Form.Visible = True
End Sub


بجای frmSubForm اسم سابفرمت را بنویس.
IsNull
دوشنبه 20 فروردین 1386, 10:22 صبح
فرض کن توی جدولت TextAB را میخواهی در سابفرم از فرم اصلی با یک کلیک نشان بدی.




Me.frmSubForm.Form.Filter = "ObjectType='TextAB'"

.
منظور از ObjectType اسم اون آبجکتی که در ساب فرم میخوام مقدار توش نشون داده بشه هست؟
در ضمن من فرم اصلی رو با یه rs و ساب فرم رو با یه rs دیگه میخوام کنترل کنم.
صبا9841
دوشنبه 20 فروردین 1386, 11:23 صبح
بله منظور همون ابجکت توی سابفرم.
توی این نمونه نگاه کن
اگر بجای فرم یا گزارش همان TextAB مورد نظر را بگذاری میتونی هر موضوعی را توی سابفرمی که روی فرم هست لود کنی .
IsNull
دوشنبه 20 فروردین 1386, 23:20 عصر
دوست عزیز دست شما درد نکنه ولی در نمونه شما همه چیز bound هست ولی من میخوام unbound کار کنم و میخوام این کار را با رکوردستی که در کد درست کردم بکنم.
IsNull
سه شنبه 21 فروردین 1386, 00:09 صبح
حالا با چه کدی یه txt در ساب فرم (کنتینیو فرم)رو از فرم اصلی باند کنم؟با کد زیر که نشد.

Me.subform1.Form.Controls.Item("txtS") = rsts.Fields("S")

ببخشید مشکل از جای دیگه بود , با کد بالا حل شد.
صبا9841
سه شنبه 21 فروردین 1386, 08:26 صبح
از اینکه مشکلت رفع شد خوشحالم.
حالا که تا اینجا اومدیم اگر نمونه اش را بگذاری شاید یه روزی بدرد کسی بخوره.