خواندن اطلاعات یک جدول از طریق فرمی که با آن جدول مرتبط نیست؟

[zamaniabs]

با سلام خدمت تمامی دوستان عزیز
من میخواهم در قسمت کدنویسی اطلاعات چندین رکود از یک Tableی که مرتبط با فرم من نیست را خوانده و در TextBoxهای فرم قرار دهم - بعد از باز کردن Table و رفتن به سراغ رکودهای مورد نظر با دستورات زیر هنگام انتصاب مقادیر فیلدها به Textboxها با مشکل مواجه میشوم.


DoCmd.OpenTable "ghoboz", acViewNormal, acReadOnly
DoCmd.GoToRecord acDataTable, "ghoboz", acNext
[Text1.Value = [ghoboz.doreh
[Text2.Value = [ghoboz.mabalgh
[Text3.Value = [ghoboz.Noe

[amirzazadeh]

سلام
لطفا نمونه خودتون رو اپلود كنيد.

[karmand]

Private Sub Command4_Click()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("namefile", dbOpenDynaset)
rst.MoveFirst
Me.Text0 = rst.Fields(0)
Me.Text0 = rst.Fields("namefiled")
rst.MoveNext
End Sub

[zamaniabs]

سلام
لطفا نمونه خودتون رو اپلود كنيد.
با عرض سلام مجدد و تشکر از توجه و بررسی سریع دوستان عزیز --
دوست خوبم جهت توضیح بیشتر باید عرض کنم این کار (خواندن اطلاعات جدولی که با فرم من ارتباطی (RelationShip) ندارد)را قبلاً با subform انجام داده ام ولی همین کار را میخواهم در فرم اصلی و بدون استفاده از Subform انجام دهم و رکوردهای جدول غیر مرتبط با فرم را خوانده و در Textboxهای فرم قرار دهم.

[mehdi_moghimi]

شما بايد با خاصيت OpenRecordSet تيبل مورد نظر را فراخواني كرده و سپس با FindFirst ركورد مورد نظر را پيدا كرده و اونو در متغيري از نوع Recordset قرارداده و بعد textbox هاي خودتونو برابر با فيلدهاي recordset خودتون قرار دهيد.

[zamaniabs]

بسیار ممنون و سپاسگزارم از راهنمایی دوست عزیزم Karmand اما در خصوص رفتن روی رکوردی که فلان شرط را داشته باشد چگونه عمل کنم.
پیشاپیش از لطف و محبت همه دوستان سپاسگزارم.