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

[safaa salem5]

عندى فورم رئيسى

reservation_frm
موجود فيه 

ليست بوكس اسمه
selected_list

موجود فيه حقل

ID
 وموجود ايضا  كومبوبوكس اسمه

account 

 

المطلوب
اريد عند تغيير قيمة الكومبوبوس اللى اسمه

account

اذا كان الليست بوكس---

selected_list 
بها سجلات بنفس

ID
الموجود في الفورم

reservation _frm
تخرج رساله ' لا يمكن تغيير قيم الكومبوبوس account
الا بعد حذف هذه السجلات

LAB.accdb

تم تعديل يناير 14 بواسطه safaa salem5

[safaa salem5]

؟؟؟

[ابوخليل]

السلام عليكم

طبعا  لم تحصلي على رد وسوف ابين السبب :

اقتباس

المطلوب
اريد عند تغيير قيمة الكومبوبوس اللى اسمه

account

اذا كان الليست بوكس---

selected_list 
بها سجلات بنفس

ID
الموجود في الفورم

reservation _frm
تخرج رساله ' لا يمكن تغيير قيم الكومبوبوس account
الا بعد حذف هذه السجلات

هنا اصلا لا يمكن ظهور  بيانات في القائمة الا بمعلومية ID النموذج

لانك وضعت هذا المعيار  في الاستعلام

وبكذا يكون طلبك لا معنى له

ارى الافضل لك صياغة الطلب بطريقة اخرى وهي توضيح الفكرة او الهدف الذي تريدين الوصول اليه

 

وحسب فهمي للعنوان

يمكنك حماية مربع التحرير اذا كانت القائمة تحمل بيانات

 

[safaa salem5]

1 hour ago, ابوخليل said:

السلام عليكم

طبعا  لم تحصلي على رد وسوف ابين السبب :

هنا اصلا لا يمكن ظهور  بيانات في القائمة الا بمعلومية ID النموذج

لانك وضعت هذا المعيار  في الاستعلام

وبكذا يكون طلبك لا معنى له

ارى الافضل لك صياغة الطلب بطريقة اخرى وهي توضيح الفكرة او الهدف الذي تريدين الوصول اليه

 

وحسب فهمي للعنوان

يمكنك حماية مربع التحرير اذا كانت القائمة تحمل بيانات

 

تمام 

حماية مربع التحرير من التغيير فى حاله تعبئة  القائمه بالبيانات

[ابوخليل]

If Me.selected_list.Column(0, 1) > 0 Then
Me.account.Enabled = False
Else
Me.account.Enabled = True
End If

 

LAB2.rar

[safaa salem5]

21 hours ago, ابوخليل said:

If Me.selected_list.Column(0, 1) > 0 Then
Me.account.Enabled = False
Else
Me.account.Enabled = True
End If

 

LAB2.rar 66.66 kB · 0 downloads

بس انا مش عايزه يحصل عدم تمكين

 عايزه يكون فى تمكين عادى بس بمجرد اختيار اى اختيار تانى من الكومبوبوكس  تخرج رساله (لا يمكن تغيير نوع الحساب الا بعد حذف  التحاليل المطلوبه)  وميحصلش تغيير فى  الاختيار الاساسى الموجود فى الكومبوبوكس

تم تعديل يناير 16 بواسطه safaa salem5

[ابوخليل]

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

وبدلا من الحماية نظهر الرسالة ونلغي الحدث

Private Sub account_BeforeUpdate(Cancel As Integer)
If Me.selected_list.Column(0, 1) > 0 Then
MsgBox "لا يمكن تغيير نوع الحساب الا بعد حذف  التحاليل المطلوبة"
DoCmd.CancelEvent
Undo
Exit Sub
End If
End Sub

 

LAB3.rar

[safaa salem5]

10 minutes ago, ابوخليل said:

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

وبدلا من الحماية نظهر الرسالة ونلغي الحدث

Private Sub account_BeforeUpdate(Cancel As Integer)
If Me.selected_list.Column(0, 1) > 0 Then
MsgBox "لا يمكن تغيير نوع الحساب الا بعد حذف  التحاليل المطلوبة"
DoCmd.CancelEvent
Undo
Exit Sub
End If
End Sub

 

LAB3.rar 67.06 kB · 0 downloads

لما بيكون فى تحليل واحد فى القايمه بيقبل عادى انه يغير فى الكومبوبوكس لو اكتر من تحليل مش بيغير

[ابوخليل]

غيري جزء من السطر :

Me.selected_list.Column(0, 1)

الى

Me.selected_list.Column(0, 0)

ليصبح :

If Me.selected_list.Column(0, 0) > 0 Then

 

[safaa salem5]

On 1/16/2024 at 10:26 PM, ابوخليل said:

غيري جزء من السطر :

Me.selected_list.Column(0, 1)

الى

Me.selected_list.Column(0, 0)

ليصبح :

If Me.selected_list.Column(0, 0) > 0 Then

 

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

undo

بتشتغل على الفورم كله مش على كومبوبوكس فقط

استبدلها بايه لتحقيق المطلوب

Private Sub account_BeforeUpdate(Cancel As Integer)
If Me.selected_list.Column(0, 1) > 0 Then
MsgBox "لا يمكن تغيير نوع الحساب الا بعد حذف  التحاليل المطلوبة"
DoCmd.CancelEvent
Undo
Exit Sub
End If
End Sub

 

[ابوخليل]

جربي :

Me.account.Undo