كود تفريغ حقل بيانات في الاكسيس

[abdullaht8]

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

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

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

Private Sub txt_Click()

txt.Value = "commnder a enter"

End Sub

هذا هو الكود

ارجو من الله ثم منكم شرح الطريقه لي

والله يجزاكم خير

انتظر الطريقه ضروري الله لا يهينكم

[محمد ايمن]

اخي الكريم

من شرحك الكود خاطئ

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

الطريقة الصحيحة

اضف رز امر الى النموذج و ليكن اسم الزر cmd1

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

اذهب الى علامة التبويب حدث

اختر ( عند النقر ) اجراء حدث ثم اضغط على الزر الصغير بجانبها

تفتح لك صفحة محرر الفيجوال بيسك

اكتب الكود التالي

txt1.text=""

حيث txt1 هو اسم حقل النص في النموذج

[abdullaht8]

الله يوفقك يا محمد ويجزاك بالخير

ولا يحرمك الاجر

حاولت اضبطها بنفس شرحك ما ضبطت يعطيني خطاء

txt1.text=""

استبدلت txt1 بــ commnder a enter

ولا ضبطت

هذا مثال ارفقته لك وما اريده منك هو وضع زر الامر لي

علي ان يتم تفريغ جدول mark

والله يوفقك

db1.rar

[ابوخليل]

هذا مثال ارفقته لك وما اريده منك هو وضع زر الامر لي

علي ان يتم تفريغ جدول mark

جدول ؟ ام عمود ؟ ام حقل ؟

[abdullaht8]

ما اريد تفريغه هو عمووود

بضغطه زر

لاحظ الصوره

المضلل اريد تفريغه

تم تعديل يونيو 11, 2012 بواسطه abdullaht8

[ابوخليل]

تفضل

تم التعديل باستخدام عبارة sql ( استعلام تحديث )

db2.rar

[محمد ايمن]

أخي الكريم

يوجد خطا

فلا يوجد جدول باسم shops ؟؟؟؟؟؟؟؟؟؟؟؟

ولا يوجد عمود commnder a enter ؟؟؟؟؟؟؟؟؟

[abdullaht8]

الله يجزاكم خير

عملت نفس الطريقه ويطلع لي خطاء هذي صورته

ما اريده هو افراغ العمود commnder a enter

من الجدول shops

ياليت اجد حل

وهذا ما وضعته

Private Sub ÃãÑ311_Click()

DoCmd.RunSQL "UPDATE shops SET shops.commnder a enter = "

End Sub

[abdullaht8]

الله يجزاكم خير ويوفقكم

انا عندي قاعدة بيانات

وعندي عمود يتغير من فتره الي اخري ومعتمد عليه في تقارير

يعني عندى مجموعتين الاولي الف والثانيه باء

واريد ان افرغ هذا العمود من القيم من اجل ان اختار منهم في المجموعه باء

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

لا اريد وضع صفر في العمود اريد تفريغه من اي قيمه بواسطه الامر

وسلامتكم

وربي من الظهر الي الان وانا احوووس في القاعده

الله يرحم والديكم سااعدوووني

[محمد ايمن]

اخي الكريم

انظر الاستعلام ali

حيث يفرغ جميع القيم في الجدول ali الحقل mark

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

commnder a enter

ولا يوجد جدول باسم

shops

db3.rar

[ابوخليل]

اولا مثالك لا يوجد فيه الحقل المذكور ولا جدول

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

.commnderaenter

او هكذا

.commnder_a_enter

( وهذا هو سبب خروج الرسالة )

الثالث بعد ما تصحح اسم الحقل يمكنك استبدال الصفر الموجود في الكود بكلمة Null

[abdullaht8]

الله يوفقكم ويجزاكم خير

تم حل المشكله مثل ما تفضل اخوي ابوخليل

والشكر لجميع من تفضل بمساعدتي

لا خلا ولا عدم

[ابوخليل]

لو كنت ارفقت مثالك الصحيح وبينت المطلوب بكل دقة لحصلت على الجواب الشافي في اول رد من اخونا محمد

ولما انتظرت كل هذا الوقت

الحمد لله على انقضاء الحاجات .

[طاهر الوليدي]

Dim Sql As String
Sql = "UPDATE sarfyomi SET sarfyomi.todys_add = 0;"
If MsgBox("هل تريد تفريغ جمع عدد ايام الحضور", vbYesNo + vbMsgBoxRight, "تحذير") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh

End If

هذا كود حذف حقل todys_addفي جدول اسمه sarfyomiفي زر من النموذج

المطلوب كيف غيره بحيث يحذف حقل في استعلام اسمه1 sarfyomi

مرتبط بجول الموظفين واسم الحقل نفسه todys_add

[طاهر الوليدي]

في ١٩‏/١٢‏/٢٠١٧ at 10:32, طاهر الوليدي said:

Dim Sql As String
Sql = "UPDATE sarfyomi SET sarfyomi.todys_add = 0;"
If MsgBox("هل تريد تفريغ جمع عدد ايام الحضور", vbYesNo + vbMsgBoxRight, "تحذير") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh

End If

هذا كود حذف حقل todys_addفي جدول اسمه sarfyomiفي زر من النموذج

 

 

[ابويسرى]

x=""

بمعنى x i هو الحقل المراد حذف قيمته = ""