اذهب الي المحتوي
أوفيسنا

هل يمكن اخفاء الكمبو بوكس مباشرة بعد الادخال


الردود الموصى بها

السلام عليكم ورحمة الله تعالى وبركاته

مشكورين على هذا الموقع الرائع والمتميز

عندي فورم

يحتوي على ثلاث كمبو بوكس

الأول اسمه الفئة

يحتوي على "العمال,الشركات,الوكالة"

الثاني اسم الموظف

يظهر فقط عند اختيار العمال من الفئة

الثالث اسم الزبون

يظهر فقط عند اختيار الشركات من الفئة

القيمة الافتراضية ل اسم الموظف و اسم الزبون هي

visible=false

مشكلتي كالتالي

لنفترض أنني اخترت من الفئة العمال وظهر اسم الموظف واخترته

بعد الضغط على سجل جديد

يبقى اسم الموظف ظاهر رغم ان السجل جديد

والفئة لم يتم تحديدها بعد

هل يمكن إخفاء اسم الموظف و اسم الزبون مباشرة بعد الادخال

------------------------------------------------------

جربت

Private Sub Form_AfterInsert()

          Me.اسم الزبون .Visible = False
         Me.اسم الموظف .Visible = False

لكن لم تفلح

رابط هذا التعليق
شارك

عزيزي

اعمل قاعدة جديدة واستورد لها فقط النموذج ومصدره ومصادر الكمبو بكسس الثلاثة ! ثم اضغط القاعدة وارفقها كملف مضغوط

 

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

7 minutes ago, رمهان said:

المرفق ؟

 

12 minutes ago, رمهان said:

عزيزي

اعمل قاعدة جديدة واستورد لها فقط النموذج ومصدره ومصادر الكمبو بكسس الثلاثة ! ثم اضغط القاعدة وارفقها كملف مضغوط

 

مشكور على اهتمامك

تم ارفاق الملف

New Microsoft Access Database (2).rar

رابط هذا التعليق
شارك

تفضل وحسب طريقتك ! ماحبيت اغير لكي لا تتشتت !

لا حظ الكود في حدث في الحالي للنموذج

Private Sub Form_Current()
Call Category_AfterUpdate
If IsNull(Me.Category) Then
         Me.cobClient.Visible = False
         Me.cobEmployee.Visible = False
End If
End Sub

بالتوفيق

رابط هذا التعليق
شارك

6 hours ago, رمهان said:

تفضل وحسب طريقتك ! ماحبيت اغير لكي لا تتشتت !

لا حظ الكود في حدث في الحالي للنموذج


Private Sub Form_Current()
Call Category_AfterUpdate
If IsNull(Me.Category) Then
         Me.cobClient.Visible = False
         Me.cobEmployee.Visible = False
End If
End Sub

بالتوفيق

بارك الله فيك أخي الكريم

ماحبيت اغير لكي لا تتشتت

بالعكس سيدي أنا أريد أن أتعلم على الأصول

في انتظار ردكم

في آمن الله

رابط هذا التعليق
شارك

جرب عزيزي

في حدث بعد التحديث:

Private Sub Category_AfterUpdate()
On Error Resume Next
         Me.cobClient.Visible = (Me.Category = "الشركات")
         Me.cobEmployee.Visible = (Me.Category = "العمال")
Me.Category.SetFocus
End Sub

وفي حدث الحالي للنموذج :

Private Sub Form_Current()
Call Category_AfterUpdate
End Sub

هذه فقط للاكواد !

اما كفكرة للتصميم فيكون عمود واحد في الجدول ! سيحتوي الاسم ! وطبعا سنعرف نوعه من خلال عمود الفئة!

وهنا سيكون مصدر الكمبو في النموذج جملة اس كيو ال متغيرة حسب اختيار الفئة !

هنا عزيزي حبيت افيدك بفكرة وكمعلومة اضافية ! جنبا الى انك مؤدي كما تريد وبطريقتك وهي صحيحة الى حد ما!

ولكن انبهك الى انه بطريقتك ستضيف اعمدة في الحركات حسب نوع الفئة وهذا به تحدي كبير خصوصا لما يكون هناك فئة جديدة بعد اغلاق البرنامج وتسليمه للمستخدم !

 

هذا واتمنى ان افدتك وبالتوفيق

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم ورحمة الله تعالى وبركاته

مشكووووووووور أستاذنا الغالي رمهان

آآآآآآآآآآآآآآآآآآآآآآسف على التأخير

تم تعديل الكود حسب ما تفضلتم

بقي عندي اشكالان

الاول في الفئة

لان المشروع يحتوي على

سند صرف

سند قرض

حيث أني أريد إضافة

زر أمام الفئة "سند صرف" مهمته إضافة فئة جديد لسند الصرف فقط

زر أمام الفئة "سند قرض" مهمته إضافة فئة جديد لسند القبض فقط

لكن للأسف الطريقة التي أتبعها غير نافعة تماما

هل من الأفضل إضافة جدول جديد باسم الفئة ثم ربطه

وما هو الكود المناسب للزر لإضافة فئة جديدة للسند المطلوب

في ‎1‎/‎12‎/‎2015 at 19:10, رمهان said:

اما كفكرة للتصميم فيكون عمود واحد في الجدول ! سيحتوي الاسم ! وطبعا سنعرف نوعه من خلال عمود الفئة!

وهنا سيكون مصدر الكمبو في النموذج جملة اس كيو ال متغيرة حسب اختيار الفئة !

بحثت كثيرا في النت ولم أجد ما يسعفني إذا تكرمت علينا بمثال أكن لك من الشاكرين

الثاني في سند القيد

أيضا هل من الأفضل إضافة جدول جديد باسم سند القيد ثم ربطه

حيث يكون هناك فورم واحد يستعمل لادخال سند الصرف وسند القرض معا طبعا من خلال الكمبوبوكس  

وفي هذه الحالة كيف تتم عملية الترقيم هل هي مشتركة ام لكل ترقيمه الخاص

هذا المشروع الذي اشتغل عليه وجدت شرح له على اليوتيوب للأستاذ الفاضل سيد بدران فقمت ببعض التغييرات حتى يتناسب معي

PreTest.rar

آآآآآآآآآآآآآآآآآآسف على الاطالة

بارك الله فيك وفي علمك

تم تعديل بواسطه بوعبد الله محفوظ
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information