ورود

View Full Version : انتخاب یک رکوردازلیست باکس وفراخوانی آن درفرم دیگرجهت ویرایش


amirkazem
چهارشنبه 27 دی 1391, 01:26 صبح
باسلام خدمت دوستان واساتیدگرامی.
سوالات بنده این هستش که:
1-وقتی ازطریق یک تکست باکس چندین رکوردرادرلیست موجوددرهمان فرم ظاهرمی کنیم.چه کدی لازم است که ازطریق دابل کلیک برروی یک روکوردخاص ازلیست،همان رکورددرفرم دیگری ظاهرشودتابتونیم ان راویرایش کنیم.
2-درفرمی که برای دونوع جستجوطراحی شده یک tab contoroler داریم.دریکی ازاین pageها جستجوبراساس شماره حساب هستش.حالا می خواهیم درpage(تب دیگر)لیستی قراربدیم وجستجوبراساس نام آموزشگاه باشد.البته درهمان فرم.
دوستان محبت کنیدوفایل ضمیمه راملاحظه فرموده وبنده راارشادفرمایید.
ازمساعدت بیدرغتان کمال تشکروقدردانی رادارم
:بوس:Komak Final-list.zip (http://barnamenevis.org/attachment.php?attachmentid=98318&d=1358018510)
amirkazem
جمعه 29 دی 1391, 23:34 عصر
دوستان لطفاًراهنمایی کنید.زکات علم که گفته اندهمین جاکاربردارد.
ممنون
padide55
یک شنبه 01 بهمن 1391, 20:12 عصر
سلام
باید یک کوئری بسازید و مسیر criteria رو به اون بدید
خیلی سخت نیست
نمونه زیر در افیس 2010 ببینید
padide55
یک شنبه 01 بهمن 1391, 20:41 عصر
اینم فایل اصلاح شده خودتون

مشکلتون اینه که برای هر رکورد یک کد ثبت نداشتید تا بر اساس اون کد فرم رو فرا بخواند

لیست باکس یک boundcolomn داره که شماره ردیفی که میشناسه رو تعیین می کنه
در فایلتون در ردیف 1 کد ثبت فیش رو میشناسه و کوئری همون رو باز میکنه
amirkazem
یک شنبه 01 بهمن 1391, 23:34 عصر
ازشمااستادگرانقدرجناب:padideh 55 بی نهایت سپاسگزارم.خیلی لطف کردید.
abdoreza57
چهارشنبه 04 بهمن 1391, 22:08 عصر
سلام


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

خدا نگهدار
Abbas Amiri
چهارشنبه 04 بهمن 1391, 22:50 عصر
سلام


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

خدا نگهدار

سلام
کد زیر رو جایگزین کنید


Private Sub List4_DblClick(Cancel As Integer)

If Not IsNull(List4.Column(2)) Then

DoCmd.OpenForm "Cucstomers", acNormal, , "CustomerID='" & List4.Column(2) & "'"
Else 'If nothing was selected, run message.
MsgBox "ÇØáÇÚÇÊ ˜ÇÝí äíÓÊ", vbInformation, "No Item Selected"
Me.List4.SetFocus
End If
ExSub:
Exit Sub
ErrHandler:
MsgBox "Error Number: " & err.Number & " - " & err.Description, vbInformation, "Opps: ERROR!"


End Sub