اختصاص یک گزارش به یک نفر

[kivan3000]

میخوام از طریق برنامه نویسی در اکسس در بانک اطلاعاتی که در دارای دو فیلد code و nameمیباشد ُیکسری برگه شماره دار را به افرادی اختصاص دهیم . تعداد برگه هایی که به افراد داده میشود متغییر میباشد مثلا علی از 1 تا 100 حسین از 101 تا 150 حسن از 151 تا 560 و .... (البته میخواهم از طریق فرم اینکار عملی بشود ).لازم به ذکر است که نمیخوام برگه به برگه اطلاعات مشابه وارد شود و میخواهم مانند یک حلقه این کار صورت گیرد ... لطفا در صورتیکه میتوانید کمک کنید .

تلفن 2052386 کیوان پاشا

[amrabady]

دوست عزیز سلام
البته من حرفه ای که هیچی، مینی حرفه ای هم نیستم
راه حل من به شرح زیر است:

ابتدا فرمی ایجاد کن که به جدول حاوی فیلدهای مورد نظرت (که در سوال گفتی) مرتبط باشه.
باید در قسمت Form Wizard آن را در حالت Tabular تنظیم کنی
1- یک Text Box ایجاد کن برای ورود تعداد کد اختصاصی (Text01)
2- یک Text Box ایجاد کن برای ورود شماره آغازین کد(Text02)
3-یک Text Box ایجاد کن برای نشان دادن ردیفهایی که در فرم ایجاد شده (با کمک دستورSUM) و نام آن مثلا Text03 (لزومی ندارد که این باکس را کاربر ببیند)
4- یک کامبو باکس ایجاد کن که حاوی نامهایی باشد که کد می‌خواهند (Combo01)
5- یک دکمه هم ایجاد کن برای شروع عملیات کد گذاری(command01)

6- سپس در محیط کدنویسی :


Private Sub Command01_Click()
code = Text01
Name = combo01
DoCmd.GoToRecord , , acNext

222
If ([Text03] <> [Text01]) Then
Name = combo01
code = [last([code])] + 1
DoCmd.GoToRecord , , acNext
GoTo 222
Else
MsgBox "End"
DoCmd.Close
Exit Sub
End If
End Sub

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