فراخوانی یک رکوردجهت ویرایش

[amirkazem]

باسلام خدمت دوستان واساتیدگرامی.فرارسیدن ربیع الاول برشماعزیزان مبارکباد.
سوالات بنده این هستش که:
1-وقتی ازطریق یک تکست باکس چندین رکوردرادرلیست موجوددرهمان فرم ظاهرمی کنیم.چه کدی لازم است که ازطریق دابل کلیک برروی یک رکوردخاص ازلیست،همان رکورددرفرم دیگری ظاهرشودتابتونیم آن راویرایش کنیم.
2-درفرمی که برای دونوع جستجوطراحی شده یک tab contoroler داریم.دریکی ازاین pageها جستجوبراساس شماره حساب هستش.حالا می خواهیم درpage(تب دیگر)لیستی قراربدیم وجستجوبراساس نام آموزشگاه باشد.البته درهمان فرم.
دوستان محبت کنیدوفایل ضمیمه راملاحظه فرموده وبنده راارشادفرمایید.
ازمساعدت بیدریغتان کمال تشکروقدردانی رادارم
دوستان خواهشاًراهنمایی بفرمایید.هرچه جستجوکردم پیدانکردم.
:بوس:Komak Final-list.zip (http://barnamenevis.org/attachment.php?attachmentid=98318&d=1358018510)

[Abbas Amiri]

سلام در رویداد DoubleClick لیست باکس کدهای زیررا جایگزین کنید


Private Sub List5_DblClick(Cancel As Integer)
Dim sFilter As String
sFilter = "[S-hesab]='" & Me.List5.Column(2) & "' AND Date='" & Me.List5.Column(4) & _
"' AND Mablagh=" & Me.List5.Column(1) & " AND Sharh='" & Me.List5.Column(0) & "'"
DoCmd.OpenForm "Form1", , , sFilter
End Sub



ضمن اینکه خصوصیت Filter On Load فرم یک را هم ست کنید