حسن
به نام خدا با سلام وخسته نباشید یک پایگاه داده در...
به نام خدا
با سلام وخسته نباشید
یک پایگاه داده در اکسس دارم که حدود اسامی 50000 نفر با تمامی مشخصات کد ملی و ش ش ت ت و نام نام خانوادگی را وارد کردم که حدود 20000 نفر تکراری وارد شده اند میخواستم بدانم...
مشاور: ابراهیمی نیا
معمولا براي هر گزارش يك فرم هم بايد ساخته شود كه كاربران پارامترهاي مختلف را قبل از چاپ گزارش در آن فرم تعيين كنند . مثلا در يك گزارش كه ليست بارنامه هاي صادره براي شهرهاي مختلف را چاپ مي كند ممكن است كاربران بخواهند فقط بارنامه هاي مربوط به يك شهر در يك ماه خاص را چاپ كنند . در اين شرايط بايد در يک فرم حداقل يك كمبو باكس وجود داشته باشد تا از ليست شهرها يكي را انتخاب كرده و دو عدد تكست باكس باشد تا تاريخ شروع و تاريخ پايان محدوده زماني گزارش درآنها وارد شده و سپس گزارش چاپ شود. روش اجراء اين كار در اكسس : فرم فوق الذكر بايد يك رشته توليد كند كه در حقيقت همان بخش Where يك رشته Sql است . اين رشته را بايد در آرگومان WhereCondition از دستور OpenReport بكار برد . مثال زير گوياي مطلب است : Sub Print_Click() Dim Str As String Str="" If Not IsNull(M.ComboCity) Then Str="CityId="& Me.ComboCity Endif Docmd.OpenReport "Report1",acviewNormal,,Str End Sub همانطور كه مي دانيد در حالت عادي براي ارجاع شرط Query به فرم ، بايد در Criteria مربوط به Query عبارتي با اين ساختار بنويسيم : [Forms![FormName]![TextBoxName مثلا: Forms![Form1]![Text1] اما اين روش شرط گذاري براي حاتي كه تكست باكس خالي باشد شرطي را اعمال مي كند كه باعث مي شود هيچ ركوردي در نتيجه اجراء Query حاصل نشود و اگر بخواهيم در حالت خالي بودن تكست باكس هيچ شرطي اعمال نشود بايد در Criteria به اين شكل بنويسيم: Forms![Form1]!Text1 Or Forms![Form1]!Text1 Is Null