سلام . باچه کدی میتوان یک یاچند فیلد را در سابفرم مخفی کرد؟
سلام . باچه کدی میتوان یک یاچند فیلد را در سابفرم مخفی کرد؟
با سلام
دوست عزیز نیازی به کد نویسی نیست عموما من خودم برای اینکار در نمای فرم با راست کلیک برروی فیلد مربوطه در سابفرم آنها را hide و سپس freeze می کنم .
راه دیگر بستن ستون فیلد مربوطه در نمای فرم است .
سعید عزیز باز فریاد رسمان شدی . تقصیرمنه که سئوالم را کامل ننوشتم ! اضافه میکنم که با شرط انتخاب نامی در کومبو موجود در فرم اصلی . مثلا وقتی ما نام حسن را از کومبو موجود در فرم اصلی انتخاب کردیم فیلد های مثلا ب و ت مخفی شوند .
باسلام : سئوال این است ، وقتی از کومبو مثلا"جاب" را انتخاب میکنیم ،بقیه فیلد ها درسابفرم مخفی سوند.ویا ، چنانکهمقدار کومبو " جاب"یا "ادرس " باشد فیلدهای "سیتی"و "نام" مخفی شوند .
با سلام
دوست عزیز ! جناب استاد بهرامی در پست 4 الگویی ارائه کردند که راه کار بسیار جامعی بود که جواب سوال شما را نیز کفایت می کند و برای خود بنده نیز بسیار جالب بود و از ایشان کمال سپاسگذاری را دارم .
دوست خوبم ، به نظر بنده اگر بخواهید همیشه جواب سوالات خود را کامل دریافت کنید باید بگم که تنها ماهی دریافت کرده اید و اصل ماهیگیری را نیاموخته اید .
حال خود دانید . تلاش کنید اگر باز هم موفق نشدید بنده حقیر ( اگر توانستم ) و دیگر دوستان شما را راهنمایی خواهند کرد .
سعید عزیز تلقی شما دراین مورد از وضیعت بنده حقیر درست است وعلت آن هم این است که من برنامه نویس نیستم ولی علاقه مندم که خودم تاحدتوان کارخودمو انجام دهم با این حال توانسته ام برای امور محل کار باکمک دوستانی مثل شما واقای بهرامی و حدود چهارسال پیش استادانی مثل شاپرک وصارمی برنامه ای تنظیم کنم که هیچ یک از برنامه نویسان قبول ندارند دست پخت من است ! حال بعداز 5 سال بایک ای دی دیگری اومدم و میخواهم تغیراتی دران بعمل اورم امید وارم زحمات مرا بعنوان " اذیت خوب" پذیرا باشید! من تمام نمونه هائی که استاد بهرامی ارائه نمودند از منابع خارجی گرفتم ولی نتوانستم در این مورد که مثلا " آ " را از کومبو را انتخاب میکنیم فیلد های "ب" و "ج" و "د" مخفی شوند . تا اینجای کار که " آ" راانتخاب کردیم " ب" مخفی شود میام ولی در انتخاب مثلا سه گزینه میمانم . نمونه کدهائی که نوشتم را میزارم . امیدوارم باقبول زحمت اشکالش را رفع کنید.
Private Sub NB_AfterUpdate()
If [Forms]![fasli]![NB] = "كار" Then
Forms!fasli![Query1 subform]![Artesh].ColumnHidden = True
Else
Forms!fasli![Query1 subform]![Artesh].ColumnHidden = False
End If
If [Forms]![fasli]![NB] = "كار" Then
Forms!fasli![Query1 subform]![GAR].ColumnHidden = True
Else
Forms!fasli![Query1 subform]![GAR].ColumnHidden = False
End If
If [Forms]![fasli]![NB] = "كار" Then
Forms!fasli![Query1 subform]![MN].ColumnHidden = True
Else
Forms!fasli![Query1 subform]![MN].ColumnHidden = False
End If
If [Forms]![fasli]![NB] = "كار" Then
Forms!fasli![Query1 subform]![GT].ColumnHidden = True
Else
Forms!fasli![Query1 subform]![GT].ColumnHidden = False
End If
End Sub
با سلام
دوست عزیز نمونه شما اصلاح شد .
db3.rar