الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في زر أمر حذف أرجو المساعدة ؟

مغلق
بدأه loayy في 24 يوليو 2003 · 8 رد · 786 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الإخوة الأعزاء في المنتدى

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

أواجه يا إخوتي مشكلة وهي تتلخص فيما يلي :

عندما أقوم بحذف سجل تظهر لي الرسالة التالية :

تعذر على مايكروسوفت اكسيس العثور على الحقل forms المشار إليه في التعبير الذي استخدمته

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

مع العلم أنني لم أحذف أي حقل أو أعيد تسميته

ولكن الذي حصل ما يلي حيث أتوقع أن المشكلة عندي من هنا

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

أما خاصية بعد التحديث وفي الحالي للنموذج فهي كما يلي :

me.allowedits=false

أما زر تعديل السجل نفسه فهو كما يلي :

private sub modify_click()

me.allowedits=true

me![firstname].setfocus

end sub

أي أن إمكانية التعديل لا تكون إلا في حالة الضغط على زر تعديل السجل فقط

مع العلم أنني عندما أضغط على زر تعديل السجل ثم بعد ذلك أضغط على زر حذف السجل فإن البرنامج يقبل حذف السجل ويظهر رسالة :

أنت على وشك القيام بحذف سجل / سجلات ويقبل عملية الحذف

أرجو أن لا أكون أطلت عليكم وأن أكون نجحت في إيصال الفكرة إليكم

بارك الله فيكم ،،،،

وتفضلوا بقبول فائق الإحترام ،،،

أخوكم أبو العبد (لؤي)

#2

لو تضع مثالاً لكان أفضل

كحل سريع ضع هذا السطر في أول الكود لزر الحذف

On Error Resume Next

سيتجاهل الخطأ ولن يعرض رسالة

شيء آخر .. إن كنت أسميت الحقل بـ forms كما هو واضح من الرسالة فهذا خطأ أيضاً .. إذ أن هذه الكلمة محجوزة من قبل آكسس

#3

أخي الكريم أحمد الحربي

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

يوجد في نموذجي 3 أزرار أمر هي زر إضافة سجل وزر حذف سجل وزر تعديل سجل كما يوجد عندي حقلان هما OrganNo (رقم الهيئة الكافلة) وorganName (أسم الهيئة الكافلة) أما الأوامر البرمجية التي ينشئها أكسيس لزر حذف السجل فهي ما يلي :

Private Sub حذف_هيئة_Click()

On Error GoTo Err_حذف_هيئة_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_حذف_هيئة_Click:

Exit Sub

Err_حذف_هيئة_Click:

MsgBox Err.Description

Resume Exit_حذف_هيئة_Click

End Sub

بالنسبة لزر إضافة سجل لا أعتقد أنني بحاجة لكتابة الأوامر البرمجية الخاصة بها لأنه لا يوجد مشكلة عند إضافة سجل

أما زر تعديل سجل فقد قمت بإنشائه باستخدام زر أمر بحيث أنني قمت بجعل خاصية معالج عناصر التحكم في وضع عدم التشغيل حتى أضيف الأوامر البرمجية التالية يدوياً وهي :

private sub modify_click()

me.allowedits=true

me![OrganNo].SetFocus

end sub

السطر الأول يمكن المستخدم من التعديل في السجل عند الضغط على زر التعديل والسطر الثاني يجعل التركيز على الحقل OrganNo (رقم الهيئة الكافلة)

أما النموذج نفسه فجعلت خاصية في الحالي وبعد التحديث كما يلي :

me.allowedits=false بحيث أنه عند الانتقال إلى سجل جديد أو في حالة تحديث السجل الحالي لا يمكن التعديل

بمعنى أنني لا أستطيع تعديل السجل إلا عند الضغط على زر تعديل السجل فقط

أما المشكلة فهي أنني عندما أضغط على زر حذف سجل تظهر الرسالة التالية :

تعذر على مايكروسوفت اكسيس العثور على الحقل forms المشار إليه في التعبير الذي استخدمته

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

مع العلم أنني لم أحذف أي حقل أو أعيد تسميته

مع ملاحظة أنني عندما أضغط على زر تعديل السجل ثم بعد ذلك أضغط على زر حذف السجل فإن البرنامج يقبل حذف السجل ويظهر رسالة :

أنت على وشك القيام بحذف سجل / سجلات ويقبل عملية الحذف

أرجو أن لا أكون أطلت عليك وأن أكون قد نجحت في إيصال الفكرة

أخوك / لؤي (أبو العبد)

#4

ضع المثال

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

#5

هذا هو المثال في الملف المرفق

ملاحظة في بعض الأحيان تظهر رسالة غير التي ذكرتها في المرة السابقة وأحيانا لا يعمل زر الحذف مطلقاً

أخوكم / لؤي (أبو العبد)

orph.rar

#7

أخي الكريم sary

جزاك الله خيرا أخي الكريم ولكن مع الأسف الملف لم يعمل حيث ظهرت الرسالة التالية عند تشغيل الملف :

Unrecognized database format

علما بأنني أعمل على office97

أخوك لؤي (أبو العبد)

#8

اخي الكريم

اسف لقد وعدلت على برنامجك ووضعته لك باكسس 2000

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

زر الحذف ضع الاضافه ضع هذا الكود:

On Error GoTo Err_إضافة_هيئة_Click



       DoCmd.GoToControl "OrganNo"

           DoCmd.GoToRecord , , acNewRec



Exit_ إضافة_هيئة _Click:

    Exit Sub



Err_ إضافة_هيئة _Click:

    MsgBox Err.Description

    Resume Exit_ إضافة_هيئة _Click

اما زر الحذف فضع فيه هذا الكود:

On Error GoTo Err_حذف_هيئة_Click



   DoCmd.SetWarnings False

   If MsgBox("تحذير...انت تقوم بعملية حذف", _

       vbQuestion + vbYesNo + vbDefaultButton2, _

       "حذف؟") = vbYes Then

     DoCmd.RunCommand acCmdSelectRecord

     DoCmd.RunCommand acCmdDeleteRecord

   End If

Exit_ حذف_هيئة _Click:

   DoCmd.SetWarnings True

   Exit Sub

Err_ حذف_هيئة _Click:

   MsgBox Err.Description

   Resume Exit_ حذف_هيئة _Click

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

وفقك الله

#9

أخي الكريم sary

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

جزاك الله خيرا وأكثر الله من أمثالك أخي الكريم لقد عمل الكود فعلا دون أي مشاكل

لي رجاء خاص أرجو أن لا أكون أثقل عليك فيه وهو إذا تكرمت أن تشرح لي الكود إن لم يكن لديك مانع وأكون لك من الشاكرين وأيضا حتى لو لم تشرح لي الكود أيضا أنا لك من الشاكرين مصداقا لقول رسولنا الكريم عليه الصلاة والسلام(لا يشكر الله من لا يشكر الناس) صدق رسول الله صلى الله عليه وسلم

أخوك / لؤي (أبو العبد)

هذا الموضوع مغلق.

مواضيع مشابهة