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

[safaa salem5]

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

reservation_frm
موجود فيه 

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

موجود فيه حقل

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

account 

 

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

account

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

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

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

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

LAB.accdbFetching info...

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

[safaa salem5]

؟؟؟

[ابوخليل]

السلام عليكم

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

  اقتباس

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

account

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

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

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

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

Expand  

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

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

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

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

 

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

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

 

[safaa salem5]

  في 15‏/1‏/2024 at 14:42, ابوخليل said:

السلام عليكم

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

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

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

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

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

 

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

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

 

Expand  

تمام 

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

[ابوخليل]

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

 

LAB2.rarFetching info...

[safaa salem5]

  في 15‏/1‏/2024 at 18:39, ابوخليل 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

Expand  

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

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

تم تعديل يناير 16, 2024 بواسطه 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.rarFetching info...

[safaa salem5]

  في 16‏/1‏/2024 at 20:12, ابوخليل 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

Expand  

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

[ابوخليل]

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

Me.selected_list.Column(0, 1)

الى

Me.selected_list.Column(0, 0)

ليصبح :

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

 

[safaa salem5]

  في 16‏/1‏/2024 at 20:26, ابوخليل said:

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

Me.selected_list.Column(0, 1)

الى

Me.selected_list.Column(0, 0)

ليصبح :

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

 

Expand  

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

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