الكود لا يعمل على اخفاء الحقول من قائمة الخيارات

[qathi]

عملت خيارات البحث عملها أخفاء بعض الحقول من الفورم الفرعي وكذلك العكس .. لكن الكود لا يعمل 

مرفق الملف

Database1.rar

[Shivan Rekany]

54 دقائق مضت, qathi said:

عملت خيارات البحث عملها أخفاء بعض الحقول من الفورم الفرعي وكذلك العكس .. لكن الكود لا يعمل

بدل ان تستخدم Visible استخدم ColumnHidden 

هكذا

    [SershExpenseSub].[Form]![Amount2].ColumnHidden = False

 اليك القاعدة

 

Database1.rar

[qathi]

أهلاً بأستاذنا الكبير @Shivan Rekany أشكرك على ردك السريع 

بارك الله فيك .. 

[qathi]

أستاذنا الكبير @Shivan Rekany 

12 دقائق مضت, Shivan Rekany said:

 اليك القاعدة

جربت الملف .. هناك مشكلة  ..لايتم أخفاء حقل Amount من الفورم الفرعي .. كما انه في خلبطة في اختيار الخيارات يتم عكس العملية 

المطلوب عند اختيار البحث العادي يتم اظهر الحقول أقل - المشار أليها في الكود - وعند اختيار البحث التفصيلي يم أظهار بقية الحقول وعند التبديل لا تحدث أي مشكلة

[Shivan Rekany]

6 دقائق مضت, qathi said:

جربت الملف .. هناك مشكلة  ..لايتم أخفاء حقل Amount من الفورم الفرعي .. كما انه في خلبطة في اختيار الخيارات يتم عكس العملية 

المطلوب عند اختيار البحث العادي يتم اظهر الحقول أقل - المشار أليها في الكود - وعند اختيار البحث التفصيلي يم أظهار بقية الحقول وعند التبديل لا تحدث أي مشكلة

انا لا اعرف تريد ان تظهر اي حقول عند اختيار الاول و اخفاء اي حقول او عند اختيار الثاني
انا عطيتك الطريقة و تأكد من اسماء المربعات النصية في نموذج الفرعي و استخدم ColumnHidden بدل Visible فقط

[qathi]

أستاذنا الكبير @Shivan Rekany 

حاولت التعديل ولكن تظهر خلبطة مش عارف السبب

المطلوب: 

في خيار بحث عادي الحقول التي تظهر SnID و Stype و Sdate و Amount و notes و Expr6 والبقية تكون مخفية 

وفي خيار بحث بالتفصيل تكون جميع الحقول ظاهرة ماعدى حقل Amount يكون مخفي

تم تعديل أكتوبر 21, 2018 بواسطه qathi

[Shivan Rekany]

13 دقائق مضت, qathi said:

في خيار بحث عادي الحقول التي تظهر SnID و Stype و Sdate و Amount و notes و Expr6 والبقية تكون مخفية 

وفي خيار بحث بالتفصيل تكون جميع الحقول ظاهرة ماعدى حقل Amount يكون مخفي

اتفضل اليك هذا

Private Sub kyar_Click()
 If Me.kyar.Value = 1 Then
    [SershExpenseSub].[Form]![Amount].ColumnHidden = False
    [SershExpenseSub].[Form]![Amount2].ColumnHidden = True
    [SershExpenseSub].[Form]![notes2].ColumnHidden = True
    [SershExpenseSub].[Form]![TimeSn].ColumnHidden = True
    [SershExpenseSub].[Form]![SumTotal].ColumnHidden = True
    [SershExpenseSub].[Form]![Cu].ColumnHidden = True
    [Prent].Visible = False
 ElseIf Me.kyar.Value = 2 Then
    [SershExpenseSub].[Form]![Amount].ColumnHidden = True
    [SershExpenseSub].[Form]![Amount2].ColumnHidden = False
    [SershExpenseSub].[Form]![notes2].ColumnHidden = False
    [SershExpenseSub].[Form]![TimeSn].ColumnHidden = False
    [SershExpenseSub].[Form]![SumTotal].ColumnHidden = False
    [SershExpenseSub].[Form]![Cu].ColumnHidden = False
    [Prent].Visible = True
 End If
 Me.Refresh
End Sub

Database1.rar

[qathi]

أشكرك أستاذنا الكبير @Shivan Rekany  تمام هذا هو المطلوب قمت ببعض التعديل عن فتح الفورم

ممكن التكرم أستاذنا بالنظر لتكرار السجلات .. 

 .. المشكلة أن السجلات بتتكرر لانه مربوط بالحقول الفرعية 

ممكن عند أختيار بحث عادي يتم فرز النتائج على حسب حقل أجمالي المبلغ أو الكود بدون تكرار السجلات

الملف الاخير

Database3.rar

 

تم تعديل أكتوبر 21, 2018 بواسطه qathi

[Shivan Rekany]

32 دقائق مضت, qathi said:

ممكن عند أختيار بحث عادي يتم فرز النتائج على حسب حقل أجمالي المبلغ أو الكود بدون تكرار السجلات

اتفضل

Database1.rar

[qathi]

أشكرك أستاذنا الكبير @Shivan Rekany .. بارك الله فيك 

وأدخل الله في حياتك البهجة والسرور .. 

[qathi]

أستاذنا الكبير @Shivan Rekany  .. سامحني طمعان في كرمك .. 

حاولت جعل الحقل SumTotal الاجمالي في الفورم الرئيسي يتعامل مع حقلين Amount و Amount2 بالفورم الفرعي لكن يظهر خطاء  في حالة اختيار بحث عادي هل في طريقة أفضل عبر الكود 

وكذلك حقل Coun 

 

تم تعديل أكتوبر 21, 2018 بواسطه qathi