bound کردن از طریق کد؟

[IsNull]

سلام به همگی:
کسی میدونه از طریق کد نویسی چطور میشه یه text رو باند کرد؟

[شاپرک]

https://barnamenevis.org/showthread.php?t=59055

[moustafa]

در لینک زیر هم کد کذاشته شده ،هم نمونه برنامه
https://barnamenevis.org/showth...t=62819&page=2

[IsNull]

دست شما درد نکنه .
این کدی هست که من باهاش 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]

نمیشه خود فایل رو بذاری
اگه اطلاعات از فرم وارد جدول میشه جای طرفین مساوی در قسمت دوم کد های که گذاشتی بایدعوض بشه

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

rstfrm.update رو هم که نگذاشتی

[IsNull]

نه ,من میخوام اطلاعات جدولم رو از طریق rs به آبجکتهام ربط بدم.
یعنی در حقیقت برعکس کاری که شما گفتید, فقط میخوام اطلاعات رو در فرم نمایش بدم.

[moustafa]

منظورت دکمه های next ,...... هست ؟
on error resumenext
rs.movenext
me.text=rs!filde1
.....

[IsNull]

حالا با چه کدی یه txt در ساب فرم (کنتینیو فرم)رو از فرم اصلی باند کنم؟با کد زیر که نشد.

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

[صبا9841]

فرض کن توی جدولت 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]

فرض کن توی جدولت TextAB را میخواهی در سابفرم از فرم اصلی با یک کلیک نشان بدی.

 

 

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

.

منظور از ObjectType اسم اون آبجکتی که در ساب فرم میخوام مقدار توش نشون داده بشه هست؟
در ضمن من فرم اصلی رو با یه rs و ساب فرم رو با یه rs دیگه میخوام کنترل کنم.

[صبا9841]

بله منظور همون ابجکت توی سابفرم.
توی این نمونه نگاه کن
اگر بجای فرم یا گزارش همان TextAB مورد نظر را بگذاری میتونی هر موضوعی را توی سابفرمی که روی فرم هست لود کنی .

[IsNull]

دوست عزیز دست شما درد نکنه ولی در نمونه شما همه چیز bound هست ولی من میخوام unbound کار کنم و میخوام این کار را با رکوردستی که در کد درست کردم بکنم.

[IsNull]

حالا با چه کدی یه txt در ساب فرم (کنتینیو فرم)رو از فرم اصلی باند کنم؟با کد زیر که نشد.

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

ببخشید مشکل از جای دیگه بود , با کد بالا حل شد.

[صبا9841]

از اینکه مشکلت رفع شد خوشحالم.
حالا که تا اینجا اومدیم اگر نمونه اش را بگذاری شاید یه روزی بدرد کسی بخوره.