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

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

قام بنشر

السلام عليكم

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

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

 

@رمهان

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

 

قام بنشر

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

 

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

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

 

جعفر

  • Like 3
قام بنشر
48 دقائق مضت, jjafferr said:

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

 

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

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

 

جعفر

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

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

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

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

تم المطلوب 

قام بنشر (معدل)

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

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

تحياتي

تم تعديل بواسطه رمهان
  • Like 1
قام بنشر
2 ساعات مضت, رمهان said:

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

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

تحياتي

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

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

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

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

@jjafferr

@رمهان

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

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

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

 

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

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

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

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

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

@jjafferr

@رمهان

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

 

جعفر

  • Like 1
قام بنشر (معدل)
في 4/28/2017 at 10:57, jjafferr said:

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

 

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

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

 

جعفر

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

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

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.

×
×
  • اضف...

Important Information