حذف حقل محدد

[co2002co]

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

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

كنت استخدم

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

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

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

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

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

 

[Shivan Rekany]

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

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

[اكرم العريقي]

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

[co2002co]

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

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

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

 

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

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

 

 

الحقل فقط

راح ارفق مثال

[co2002co]

Test.rar

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

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

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

[Shivan Rekany]

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

Test.rar

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

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

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

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

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

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

me.c = ""

 

[co2002co]

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

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

[اكرم العريقي]

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

بالتوفيق

 

A-test.rar

[co2002co]

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

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

بالتوفيق

للاسف

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

 

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

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

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

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

[اكرم العريقي]

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

 

A-test.rar

[co2002co]

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