اضهار الحقول واخفائها من مربع تحرير وسرد

السلام عليكم 

هذه محاول من عندي لتطبيق ماتريد

New Microsoft Access Database.rar

طبعا اكيد ليست مثالية  بس حبيت اجرب  الى ان يأتيك المدد  ..  تحياتي

تفضل اخي الكريم 

الملف بعد التعديل بناء على طلبك

za-Database-UP.rar

بالتوفيق

كيف يمكن الكتابة فى TextBox موجوده فى Form فى برنامج اخر مصمم بالاكسيس

بواسطة برنامج جديد مصمم الاكسيس

عندي برنامج مصمم بالاكسيس فيه فورم بتفتح وفيها تكست بوكس

عاوز اعمل برنامج ثاني بالكسيس فيه فورم فيها تكست

وعاوز لما اكتب فى التكست الخاصة بالبرنامج الجديد

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

بحيث يكون الاثنين مفتوحين

بالعكس اخي الكريم

حالتك مثالية وتستحق الشكر على كل ماتقدمة

الاخت الفاضلة زهرة لاتوجد مساحات للشكر على ماتقدميه

ولكن في النماذج المستمرة لاتعمل رسالة الحدث

شكرا من الاعماق للجميع

ناصر المصلح كتب:

 

ولكن في النماذج المستمرة لاتعمل رسالة الحدث

 

 

اخي الفاضل : ناصر

بناء على طلبك في النموذج المفرد الذي انت وضعته في السؤال تمت الإجابة عليك كما تريد بالضبط

ولم يكن السؤال عن النماذج المستمرة لأنه بارك الله لن تعمل معك هذه الطريقة ولن تجد اي طريقة لإخفاء الحقول في النماذج المستمرة

والسبب انها فقط حقلين في النموذج المستمر فإن اتبعت نفس الطريقة التي في النموذج المفرد فسوف تختفي كل الحقول من النموذج المستمر

لذا خلك على النموذج المفرد حتى تستطيع ان تتحكم في الحقلين المراد اخفاؤهما وإظهارهما

بالتوفيق

اسف اخت زهرة لم اقصد النماذج المستمرة اقصد عند الانتقال لسجل موظف اخر لايجبرني على التعبئة في حال اختيار منتهية خدمتة او منقول ولايتم اخفاء الحقول

لكم كل الود

ناصر المصلح كتب:

 

تحية طيبة لكل القائيمين على هذا المنتدى العريق

 

لدي مربع قائمة به ثلاثه اختيارات ( الحالة الوظيفية )

1- على راس العمل

2- منتهية خدمتة

3- منقول

المطلوب عند اختيار الحالة الوظيفية من مربع القائمة منتهية خدمته او منقول يتم اضهار الحقول ( جهة النقل ) ( نهاية الخدمة / النقل ) وتكون الزامية بتعبئتها وعندما يكون على راس العمل لاتضهر هذه الحقول تكون مخفيه

 

صورة للتوضيح

 

 

ناصر المصلح كتب:

اسف اخت زهرة لم اقصد النماذج المستمرة اقصد عند الانتقال لسجل موظف اخر لايجبرني على التعبئة في حال اختيار منتهية خدمتة او منقول ولايتم اخفاء الحقول

 

لكم كل الود

اخي الفاضل : ناصر

في المشاركة الأولى تقول :

عند اختيار الحالة الوظيفية من مربع القائمة منتهية خدمته او منقول يتم اضهار الحقول ( جهة النقل ) ( نهاية الخدمة / النقل ) وتكون الزامية بتعبئتها

وفي المشاركة الثانية تقول :

لايجبرني على التعبئة في حال اختيار منتهية خدمتة او منقول

الآن بارك الله كيف نوفق بين هاتين المشاركتين

مره تقول يجب ان تكون الزامية بتعبئتها ومرة تقول لا يجبرني على التعبئة

حاول تحدد المطلوب بالضبط حتى نستطيع مساعدتك

بالتوفيق

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

بمختصر واحد جميع ماريدة يعمل في السجل الاول فقط اما باقي السجلات لايعمل

اتمنى يكون وضح المطلوب

وفي المشاركة الثانية تقول :

لايجبرني على التعبئة في حال اختيار منتهية خدمتة او منقول

بمقصد لايطلب مني تعبئة هذه الحقول سواء ادخلت بيانتهم او لم ادخل غير ملزم مثل السجل الاول

اتوقع المشكلة من هذا الكود في حدث قبل التحديث حيث انه موجود بالنموذج لدي

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim X As String
X = MsgBox("هل تريد الحفظ", vbQuestion + vbApplicationModal + vbYesNo, "تنبية")
If X <> vbYes Then
Cancel = True
Me.Undo
End If
End Sub

حيث انه يلغي مهمة تاكيد تعبئة الحقول للمنتهية خدماتهم والمنقولين في حدث عن الغاء التحميل الذي قمتي انتي بعملة

Private Sub Form_Unload(Cancel As Integer)
If Me.nam11 = "1 - على راس العمل" Then

Else
MsgBox "يجب تعبئة حقل المنتهية خدماتهم والمنقولين  ", vbCritical, "تنبية"
DoCmd.CancelEvent
End If
End Sub

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim X As String
X = MsgBox("هل تريد الحفظ", vbQuestion + vbApplicationModal + vbYesNo, "تنبية")
Cancel = True
Me.Undo
Else
Select Case Me.nam11
If Me.nam11 = "1 - على راس العمل" Then

Else
MsgBox "يجب تعبئة حقل المنتهية خدماتهم والمنقولين ", vbCritical, "تنبية"
DoCmd.CancelEvent
End If
End If
End Sub

مثل ماعلمتينا نحرك البطيخة الي فوق ولا كن باقي البطيخة نايمه

ناصر المصلح كتب:

مثل ماعلمتينا نحرك البطيخة الي فوق ولا كن باقي البطيخة نايمه

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

بكل تأكيد كما قلت لكم ان تحركوا البطيخة اللي فوق  ولكن ما قلت لكم تحوسون ام الكود

وتدخلون Select في IF بدون درايه مسبقه

عموما شوف المرفق بعد التعديل في حدث قبل التحديث

za-Database-END.rar

بالتوفيق