PDA

View Full Version : سوال: نمایش سابفرم با تعداد مشخص رکورد



saeed1234n
جمعه 13 دی 1392, 14:34 عصر
با سلام
به تمامی دوستان و اساتید گرامی
چگونه می توان در فرمی ، سابفرمی قرار داد که رکوردها سابفرم به تعداد مشخص باشد ؟
مثلا سابفرمی که دارای دو رکورد باشد ؟

alirezabahrami
جمعه 13 دی 1392, 15:47 عصر
با سلام
به تمامی دوستان و اساتید گرامی
چگونه می توان در فرمی ، سابفرمی قرار داد که رکوردها سابفرم به تعداد مشخص باشد ؟
مثلا سابفرمی که دارای دو رکورد باشد ؟
سلام سعید !
معلوم هست کجائی دوست بزرگوار !
فقط خواستی ما برگردیم و .......
فکر کنم از Top درکوئری استفاده کنید به نتیجه می رسید
نمونه ضمیمه را ببین!
یاعلی

saeed1234n
جمعه 13 دی 1392, 17:44 عصر
با سلام
خدمت استاد خوبم

سلام سعید !
معلوم هست کجائی دوست بزرگوار !
فقط خواستی ما برگردیم و .......
فکر کنم از Top درکوئری استفاده کنید به نتیجه می رسید
نمونه ضمیمه را ببین!
ما هم هستیم همین اطراف ! تشکر از لطف شما ...
جناب استاد بهرامی در این صورت که فرمودید
سابفرم قابل ویرایش نمی باشد ؟
محبت می کنید اگر بررسی بفرمایید .

alirezabahrami
جمعه 13 دی 1392, 19:34 عصر
با سلام
خدمت استاد خوبم

ما هم هستیم همین اطراف ! تشکر از لطف شما ...
جناب استاد بهرامی در این صورت که فرمودید
سابفرم قابل ویرایش نمی باشد ؟
محبت می کنید اگر بررسی بفرمایید .
سلام
کوئری را در نمایSQL View باز کن و کلمهDISTINCT را پاک کن!
یا علی

hamid-nice
جمعه 13 دی 1392, 20:57 عصر
برای موردی که 2 رکورد آخر را بخواهیم چی به جای Top باید نوشت ؟
و اگر فقط رکورد شماره 3 و 5 مد نظر باشد چطور باید نوشت ؟
با تشکر

saeed1234n
جمعه 13 دی 1392, 21:35 عصر
سلام
کوئری را در نمایSQL View باز کن و کلمهDISTINCT را پاک کن!
یا علی
با سلام
جناب استاد بهرامی
با حذف DISTINCT اجبار تعداد مشخص رکورد خاصیت خود را از دست می دهد !:متفکر:

saeed1234n
جمعه 13 دی 1392, 21:46 عصر
با سلام

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

در فروم خارجی http://www.access-programmers.co.uk خوشبختانه به جواب خود رسیدم .

راه حل به دو صورت قابل حل است .

Private Sub Form_Current()

' if 2 is the max records to enter
If Me.RecordsetClone.RecordCount < 2 Then
Me.AllowAdditions = True
Else
Me.AllowAdditions = False
End If
End Sub

یا
Private Sub Form_Current()

' if 2 is the max records to enter
Me.AllowAdditions = Me.RecordsetClone.RecordCount < 2

End Sub



باز هم از همه دوستان کمال تشکر را دارم ...

alirezabahrami
جمعه 13 دی 1392, 21:56 عصر
برای موردی که 2 رکورد آخر را بخواهیم چی به جای Top باید نوشت ؟

کوئری را در نمای دیزاین باز کن و گزینه sort را تغییر بده!


و اگر فقط رکورد شماره 3 و 5 مد نظر باشد چطور باید نوشت ؟

برای این حالت top کارائی ندارد و باید از یک فیلد با دیتاتایپ yes/no در جدول استفاده نمود .


با حذف DISTINCT اجبار تعداد مشخص رکورد خاصیت خود را از دست می ده

در هنگام اضافه نمودن رکورد در سابفرم در رویداد AfterUpdate فیلد مربوطه دستور Me.Requery بکار رود.

یا علی

hamid-nice
جمعه 13 دی 1392, 22:04 عصر
ظاهرا این کدها را برای استفاده ویرایش نوشتید ولی با استفاده از کوئری در فایل ضمیمه جناب بهرامی ، کدهای شما جواب نداد
اگه ممکنه نمونه بذارید
سوالات پست من چطور ؟
با تشکر

alirezabahrami
جمعه 13 دی 1392, 22:36 عصر
ظاهرا این کدها را برای استفاده ویرایش نوشتید ولی با استفاده از کوئری در فایل ضمیمه جناب بهرامی ، کدهای شما جواب نداد
اگه ممکنه نمونه بذارید
سوالات پست من چطور ؟
با تشکر
سلام حمید!
پست8 راملاحظه ننمودی؟

hamid-nice
شنبه 14 دی 1392, 00:29 صبح
سلام حمید!
پست8 راملاحظه ننمودی؟
ممنون نمی دونم چرا اون پست نبود !
در مورد فیلد yes/No و ارتباطش با شماره رکورد 3 و 5 متوجه نشدم ؟ اگه می شه بیشتر توضیح بفرمایید.
با تشکر