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

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

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

السلام عليكم جميعا : سامحوني على كثرة أسئلتي بس حب التعليم وكثرة الأسئلة ولي تتوجه لي وأكثرها ماأعرفها لذا أن أشتشيركم وأسألكم وأستفيد أنا ويستفيد غيري وتستفيدون أنتم أيضا باختلاف الأجوبه... صح . طبعا أنا عملت برنامج وأصبح شبه متكامل وكل يوم نظيف عليه بعض الأفكار والطرق . وأعدكم اذا أنتهينا منه أن أضعه في المنتدى ليستفيد منه كل مبتدأ ومبتدأة مثلي أن شاء الله :

تذكرون سويت برنامج أدخال بيانات ومنعت أن المستخدمه تكرر السجل مرتين عن طريق الأسم والتاريخ . بس تفاجئت من أحدى الطالبات أنها تسأل سؤال وتقول لو أبغى أدخل بكرة لنفس عملي طبعا حيقبل البرنامج لأن تاريخ اليوم مختلف عن أمس . طيب ليه مانخلي البرنامج يسئل سؤال ( هل السجل قديم أو جديد ) فاذا كان جديد حدخل معلومات السجل الجديدة :

رقم السجل - الأسم – المادة – الفصل – الصف – الموضوع – أسم التجربة – رقم التجربه – الملاحظات

أما اذا كان قديم : يسأل البرنامج كم رقم السجل القديم ؟؟؟ ثم نخلي البرنامج يستعرض السجل ونحط فيه زر أمر هو نسخ

الحقول القديمة مثل : المادة – الفصل – الصف – الموضوع – أسم التجربة – رقم التجربه – الملاحظات في السجل الجديد . يعني مافيه داعي أتعب الطالبة بكتابة نفس البيانات القديمة فعملية النسخ كافية ويكون لها طبعا رقم سجل جديد بتاريخ اليوم وممكن غدا أيضا ولكن بنفس المعلومات(مكررة) ...

أختصار ينسخ معلومات السجل القديم حق أمس الى السجل الحالي ... هل هذا ممكن :fff:

حطيت مثال للتوضيح :

http://www.geocities.com/art_rtu/copy.zip

الخلاصه :

كيف أقوم بتكرار السجل السابق - او نسخ اي سجل ولصقه ؟

تم تعديل بواسطه امير عاطف
قام بنشر (معدل)

أخ أمير معروف أن copy & past أو نسخ ولصق لكن ولي ماهو معروف كيف تكتب ككود فهل أستطيع أن أقول كذا

copy [Table1].[Name];past[Table2].[Name]

يعني لوكان عندي جدول1 وحقل name ألصق بيانات هذا الحقل في name التابع لجدول2 . فكيف يتم كتابة هذا الأمر .معليش لو أتعبتك شوي.

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

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

تحتاجي لزرين امر .. واحد ل Copy والا خر ل Paste

في حدث عند On Click لزر Copy ضعي الكود الي مذكور في مثال الاخ احمد الحربي وكذلك الحال مع زر Paste ولكن لاتنسي تتغير اسماء الحقول لما يناسبك ..

امل ان افدتك بشي :rol:

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

السلام عليكم

لاحظت أكثر من مرة طلب نسخ بيانات السجل الأخير ولصقه في سجل جديد ، وقد توصلت إلى طريقة بسيطة قد تكون حلا كافيا لهذا الموضوع .

لاختبار المثال .. انقر نقرا مزدوجا Dbl Click على حقل الهاتف Telephone .

كما يمكن طلب الإجراء باستخدام نفس الحدث لكل الحقول أو من زر في حالة وجود نموذج رئيسي وآخر فرعي .

بانتظار تجاربكم وآرائكم .

تحياتي .

GetLastRecord.rar

تم تعديل بواسطه أبو هادي
قام بنشر (معدل)

طريقة جيدة .. (y)

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

والله الموفق

تم تعديل بواسطه سامي زغلول
قام بنشر

أخي الأستاد/ أبو هادي

الفكرة رائعة جداً جداً في حالة كون المراد نسخ بيانات السجل السابق بأكمله.

مجرد إقتراح:

إيجاد طريقة للتحكم بنسخ بيانات حقل معين أو عدة حقول إلى السجل الجديد

على سبيل المثال: نسخ بيانات حقل تاريخ الميلاد من السجل السابق إلى حقل تاريخ الميلاد في السجل الجديد.

والله الموفق . :fff:

قام بنشر

أخي أبو هادي

أسلوبك ممتاز والـ Sub ما عليه أي كلام و قابل للعمل في أي فورم

بالنسبة للأخوة الذين طلبوا بعض التعديل في الكود فأرغب في لفت انتباهكم إلى وجود اختصار جاهز في أكسس لنسخ بيانات أحد الحقول في السجل الأخير

هذا الاختصار هو Ctrl+'

قام بنشر

السلام عليكم

شكرا لكل من :

سامي زغلول

ابن مسقط

مهند عبادي

محمد طاهر

على مشاركتهم الكريمة وعلى تفضلهم بإبداء آرائهم .

كما أشكر كل من تكرم وقام بإنزال المثال .

كان من المفترض أن أبدأ بتوضيح سبب الحصول على السجل الأخير ولكني كالعادة لا أوفي المواضيع حقها في الشرح والتفصيل .

عموما كثير هم من مدخلي البيانات الكثيرة يلاحظون تشابه في أكثر حقول السجلات أثناء الإدخال فيضطروا إلى إعادة إدخال كل البيانات مرارا متعددة مما يتسبب في ضياع الوقت وهذه العملية سوف تختصر عليه المسافة كثيرا فعند اللصق ما عليه إلا القيام بتعديل القليل من الحقول .

على كل ملاحظة الأخ الأخ سامي زغلول ممتازة ولكنها بعيدة عن هذه الفكرة وتحتاج إلى إجراءات أطول .

أما ملاحظة الأخ ابن مسقط فقد قمت بعمل نسخة من الكود القديم وتم التعديل عليه ليناسب مطلبه ويمكن اختبارها عن طريق حقل Name .

الأخ مهند .. الاختصار هو Ctrl+'

لم يعمل معي هذا الإختصار ، هل لك أن تشرح عنه أكثر وفي أي نسخة يتوفر ؟ .

تحياتي .

GetLastRecord.rar

قام بنشر

أما ملاحظة الأخ ابن مسقط فقد قمت بعمل نسخة من الكود القديم وتم التعديل عليه ليناسب مطلبه ويمكن اختبارها عن طريق حقل Name .

بارك الله فيك يأستاذ/ أبو هادي

هل تعلم عدد الأشخاص الذين أستفادوا من هذا العمل؟ كثيرون ان شاء الله وأجرك عظيم عند الله :rol:

أسأل الله أن يزيدك علماً ويرزقك كل الخيرات.

  • 15 years later...
قام بنشر
في ٢٢‏/٤‏/٢٠٠٤ at 19:26, أبو هادي said:

السلام عليكم

 

وللحصول على نتيجة الإختصار بالكود .. في حد DblClick أكتب التالي :

 

 

SendKeys "^(')", 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