نسخ عدد من مربعات النص من السجل الحالي الي السجل التالي

[محمد سلامة]

السلام عليكم

اريد نسخ عدد من مربعات النص مثلا 5 او 6 مربع نص من السجل الحالي.. ولصقهم في السجل التالي مباشرة بضغطة زر 

جربت استعلام الحاق ولكن لم افلح

 

@رمهان

استاذ رمهان تم فتح موضوع جديد كما اشرت سابقا

 

[jjafferr]

وعليكم السلام

 

طريقتين يجون على بالي:

1. نسخ السجل بالكامل ، عمل سجل جديد ، لصق بيانات السجل ، ثم حذف/تصفية الحقول التي لا تريدها:

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPaste
me.Field5=0
me.Field6=""

 

2. تنسخ قيمة كل حقل في متغير في الكود ، عمل سجل جديد ، لصق هذه المتغيرات الى حقولها:

a1=me.field1
a5=me.field5
a6=me.filed6
    DoCmd.GoToRecord , , acNewRec
me.field1=a1
me.field5=a5
me.filed6=a6

 

جعفر

[محمد سلامة]

48 دقائق مضت, jjafferr said:

وعليكم السلام

 

طريقتين يجون على بالي:

1. نسخ السجل بالكامل ، عمل سجل جديد ، لصق بيانات السجل ، ثم حذف/تصفية الحقول التي لا تريدها:

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPaste
me.Field5=0
me.Field6=""

 

2. تنسخ قيمة كل حقل في متغير في الكود ، عمل سجل جديد ، لصق هذه المتغيرات الى حقولها:

a1=me.field1
a5=me.field5
a6=me.filed6
    DoCmd.GoToRecord , , acNewRec
me.field1=a1
me.field5=a5
me.filed6=a6

 

جعفر

شكرا استاذ جعفر 

انا بالفعل كنت جربت الطريقة التانية ولكنه لا تعجبني 

والطريقة الاولي جميلة وسوف استخدامها 

شكرا استاذ جعفر

تم المطلوب 

[رمهان]

اعتذر عن التاخر والاستاذ جعفر فيه البركة وكفى ووفى

وحبيت لو مرفق بسيط نشوف طرق ثانيه

تحياتي

تم تعديل أبريل 28, 2017 بواسطه رمهان

[محمد سلامة]

2 ساعات مضت, رمهان said:

اعتذر عن التاخر والاستاذ جعفر فيه البركة وكفى ووفى

وحبيت لو مرفق بسيط نشوف طرق ثانيه

تحياتي

شكرا لك استاذ رمهان بل انا الذي اعتذر علي الازعاج 

والاستاذ جعفر دائما سباق بالخير

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

وكل عام وانتم بخير 

@jjafferr

@رمهان

[jjafferr]

2 ساعات مضت, رمهان said:

والاستاذ جعفر فيه البركة وكفى ووفى

هلا والله بالاستاذ رمهان

 

20 دقائق مضت, محمد سلامة said:

شكرا لك استاذ رمهان بل انا الذي اعتذر علي الازعاج 

والاستاذ جعفر دائما سباق بالخير

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

وكل عام وانتم بخير 

@jjafferr

@رمهان

حياك الله أخوي محمد 

 

جعفر

[عيسى الحوراني]

في 4/28/2017 at 10:57, jjafferr said:

وعليكم السلام

 

طريقتين يجون على بالي:

1. نسخ السجل بالكامل ، عمل سجل جديد ، لصق بيانات السجل ، ثم حذف/تصفية الحقول التي لا تريدها:

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPaste
me.Field5=0
me.Field6=""

 

2. تنسخ قيمة كل حقل في متغير في الكود ، عمل سجل جديد ، لصق هذه المتغيرات الى حقولها:

a1=me.field1
a5=me.field5
a6=me.filed6
    DoCmd.GoToRecord , , acNewRec
me.field1=a1
me.field5=a5
me.filed6=a6

 

جعفر

الف شكر استاذ جعفر كود رائع طبقت الكود الثاني على قاعدة بياناتي واعطى نتيجى رائعة 

تم تعديل مايو 4, 2017 بواسطه عيسى الحوراني

[jjafferr]

[عيسى الحوراني]

10 دقائق مضت, jjafferr said:

ارجو منك استاذ جعفر الاطلاع على موضوعي وابداء رأيك

 

تم تعديل مايو 4, 2017 بواسطه عيسى الحوراني