اذهب الي المحتوي
أوفيسنا

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


abdullaht8

الردود الموصى بها

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

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

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

Private Sub txt_Click()

txt.Value = "commnder a enter"

End Sub

هذا هو الكود

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

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

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

رابط هذا التعليق
شارك

اخي الكريم

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

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

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

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

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

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

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

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

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

txt1.text=""

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

رابط هذا التعليق
شارك

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

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

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

txt1.text=""

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

ولا ضبطت

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

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

والله يوفقك

db1.rar

رابط هذا التعليق
شارك

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

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

1339431322601.gif

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

من الجدول shops

ياليت اجد حل

وهذا ما وضعته

Private Sub ÃãÑ311_Click()

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

End Sub

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

وسلامتكم

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

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

رابط هذا التعليق
شارك

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

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

.commnderaenter

او هكذا

.commnder_a_enter

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

  • 5 years later...

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في زر من النموذج

 

 

رابط هذا التعليق
شارك

  • 6 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information