اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حذف حقل محدد


co2002co

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

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

اسعد الله اوقاتكم بكل خير

كنت استخدم

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

لتحديد الصف وحذفه كامل

لكني اريد فقط حذف قيمة معينه

لنفترض ان بالجدول 10 حقول

واريد حذف الحقل رقم 5 فقط مع الابقاء على القيم كما هي

 

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

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

وتريد تحذف البيانات من الحقل تلفوان وتبقى حقل نفسه
ما هو تريد بالضبط
السجل ام الحقل

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

5 ساعات مضت, اكرم العريقي said:

سوي استعلام تحديث قيمة الحقل المطلوب بشرط رقم السجل واكتب القيمة التي تريد اما صفر او فارغه

انا ابي انقل قيمة حقل وحذفه بعد النقل فقط الحقل المنقول

 

6 ساعات مضت, Shivan Rekany said:

السجل ام الحقل

 

 

الحقل فقط

راح ارفق مثال

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

11 دقائق مضت, co2002co said:

Test.rar

اريد ان انقبل قيمة الحقل c

فقط ومن ثم حذف قيمة الحقل

دون الاضرار بقيم الحقول الباقيه

حسب فهمي لسؤالك
انت عملت المطلوب فقط غير هذه السطرين الى

7 ساعات مضت, co2002co said:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

me.c = ""

 

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

1 دقيقه مضت, Shivan Rekany said:

حسب فهمي لسؤالك
انت عملت المطلوب فقط غير هذه السطرين الى

جرب المثال المرفق

If IsNull(Me.c) Then
MsgBox "الحقل فارغ"
Exit Sub
End If
DoCmd.Requery
    On Error Resume Next
Dim strSQL As String
strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "OK"
DoCmd.SetWarnings True

اريد ان احذف الحقل المنقول فقط بعد النقل

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

22 دقائق مضت, اكرم العريقي said:

جرب المرفق افتح النموذج شغل زر التحديث

بالتوفيق

للاسف

ليس هذا المطلوب

 

لنفترض ان جميع الحقول ممتلئه

واريد نسخ قيمه الحقل c

الى الجدول الاخر وحذف قيمة الحقل c

مع الابقاء على باقي الحقول كما هي

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

14 دقائق مضت, اكرم العريقي said:

اتفضل اتمنى يكون المطلوب

للاسف لا

بس انت اعطيتني المفتاح بجد

اشكرك

 

 


If IsNull(Me.c) Then
MsgBox "الحقل فارغ"
Exit Sub
End If
DoCmd.Requery
    On Error Resume Next
Dim strSQL As String
strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c"
Me.c = ""

If IsNull(Me.c) Then
MsgBox "ÇáÍÞá ÝÇÑÛ"
Exit Sub
End If
DoCmd.Requery
    On Error Resume Next
Dim strSQL As String
strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.RunCommand acCmdSelectRecord
Me.c = ""
MsgBox "OK"
DoCmd.SetWarnings True

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

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