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

لدي مشكلة في ترحيل قيد من الجدول الرئيسي الى الجدول الثاني


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

السلام عليكم اخواني الاعزاء

عملت برنامج الرواتب للموظفين بمساعدة احد اعضاء منتداكم الذي دائما ً اشكره على جهوده معي  الاستاذ مارد ولكن لدي مشكلة فيه اذ انني عندما ارحل بيانات الموظف من الجدول الرئيسي الى جدول شهرمعين فان بياناته تترحل ولكن عندما اكتب بيانات موظف ثاني  واقوم بترحيله في جدول الشهر المعني فان بيانات الموظف الثاني تكون بدلا ً من بيانات الموظف الاول وهكذا اي يترحل قيد قيد القيد الحالي يحذف القيد السابق ولاحظت انني دائما ً ارحل من القيد الاول في الجدول الرئيسي ارجو مساعدتي في حل هذه المشكلة مع الشكر الجزيل

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

اخواني الاعزاء

السلام عليكم

انني اعمل في دائرة وتريد مني هذا البرنامج  يوم الاحد كاملا ً وانا في ورطة في ذلك وذلك لوجود فيه هذا الاشكال وقلت لهم انني سوف اصلح هذا الاشكال الذي فيه  ارجو المساعدة مع الشكر الجزيل

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

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

ولكن يجب ان تنتبه لمسألة احتمال التكرار 

السلام عليكم اخي العزيز

اشكر كثيرا اهتمامك بمشكلتي انني استخدم dao  اي بهذه الطريقة المشكلة التي لدي ان البيانات تنتقل من القيد الاول من الجدول الاول الى القيد الاول  من الجدول الثاني وعندما انقل البيانات الجديدة من الجدول الاول فانها تنتقل الى القيد الاول من الجدول الثاني وليس القيد الثاني ارجو المساعدة مع الشكرالجزيل

تم تعديل بواسطه omena100
رابط هذا التعليق
شارك

السلام عليكم اخواني الاعزاء

هذا برنامج الرواتب المرفق الذي فيه اشكال حيث انني عند الذهاب الى الفورم الذي اسمه name_  وعند ادخال معلومات رواتب الموظف وعند ادخال اسم الموظف الثلاثي يظهر رقم id بشكل اوتوماتيكي ونقوم بادخال معلومات الموظف وعند اختيار من قائمة اختيار الاشهر نختار مثلا ً شهر حزيران فان معلومات الموظف تترحل الى ملف شهر حزيران وعند ادخال موظف ثاني الى نفس شاشة الترحيل الى نفس الشهر فان الموظف الثاني يحل محل الموظف الاول في ملف شهر حزيران اي ان الموظف الاول يحذف ويحل محله الموظف الثاني في ملف شهر حزيران مثلا ً ارجو مساعدتي في حل هذه المشكلة اذ انني استخدمت في هذه الطريقة تقنية dao والذي من خلالها عملت بكودات vba ارجو مساعدتي في حل هذه المشكلة مع الشكر الجزيل

برنامج الرواتب.rar

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

السلام عليكم

انت تقوم بالترحيل سجل سجل ، ويمكنك المحاولة بترحيل الجميع اذا كانت بياناتهم المالية كاملة ومحدثة 

 

وعلى كل حال وبعد الاطلاع على الاكواد المسؤلة عن الترحيل

جرب الآتي :

1- احذف الاقواس من هذا السطر 

If Not (rs.EOF And rs.BOF) Then

ليصبح :

If Not  rs.EOF And rs.BOF  Then

 

2- عطل هذا السطر عن العمل

rs.MoveNext

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

السلام عليكم اخي العزيز ابو خليل

لقد حلت المشكلة لقد قمت بازالة الاقواس وقمت بتعطيل الايعاز rs.move.next وقد وجدت ان القيود ترحل بالكامل وليس قيد قيد اي ان المشكلة حلت اشكرك كثيرا ً ولكن لدي تعقيب عندما ارحل قيد معين اريد ان تكون الحقول مصفرة جميعها من ضمنها حقل id  وحقل الاسم الثلاثي ليتسنى لي مرة اخرى ادخال اسم جديد كيف يمكنني ذلك وعندما فرضا ً اخطأ وادخل اسم موظف لديه نفس رقم id  تظهر عبارة باللغة الانكليزية تقول ان القيد مكرر اريد كيفية حل هذه المشكلة ارجو المساعدة مع الشكر الجزيل

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

عندما فرضا ً اخطأ وادخل اسم موظف لديه نفس رقم id  تظهر عبارة باللغة الانكليزية تقول ان القيد مكرر اريد كيفية حل هذه المشكلة 

 

هذا شيء طبيعي حتى لا يتكرر القيد

علما ان السبب هو في الحقل id في الجدول فهو غير قابل للتكرار

 

سأعلق على  طريقة تصميم البرنامج  وآمل ان تتقبل النقد بصدر رحب

جعل لكل شهر جدول يخصه + نموذج يخصه + تقرير يخصه  : غير صحيي

يكفي في العملية وهو الصحيح

1- جدول بيانات الموظفين الثابتة

2- جدول بالبيانات المالية ( ويمكن ضمه الى الجدول الاول ، ويتم تحدث الراتب والعلاوات عند كل زيادة )

3- جدول الرواتب

4- نموذج واحد ( او زر واحد )  للترحيل الى جدول الرواتب

5- تقرير واحد لعرض الجميع حسب الشهر المطلوب

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

السلام عليكم اخي العزيز ابو خليل

سوف اخذ بنصيحتكم عند عمل برنامج جديد للرواتب ولكن لدي اشكال في برنامج الرواتب السابق عند كتاب الاسم الثلاثي فان رقم id يتولد اوتوماتيكيا ً للموظف المعني ولكن هناك خطأ يحدث الا وهو يتولد رقم مكرر للموظف الجديد فيتوقف البرنامج عن العمل هل من طريقة بحيث عندما يتولد الرقم يكون دائما ً مختلف حتى لايحدث هذا الاشكال ارجو المساعدة مع الشكرالجزيل

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

السلام عليكم

اخي العزيز ابو خليل المحترم اريد عند ادخال قيد مكرر تظهر لي رسال تقول لي القيد مكرر استخدم  id جديد اي في كل مرة عند ادخال قيد مكرر تظهر لي الرسالة كيف يمكنني ذلك في المرفق السابق للرواتب مع الشكر الجزيل

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

اخي العزيز ابو خليل

لقد قرأت كل الامثلة التي اعطيتني اياه ونفذتها ولكن المشكلة لم تحل اذ انني اضع الكود الذي اعطتني اياه الا وهو

Dim rst As Recordset

''اسناد قيمة للكائن وهي مجموعة سجلات النموذج الحالية

Set rst = Me.RecordsetClone

''اذهب لاول سجل لانه يريد المرور على جميع السجلات

rst.MoveFirst

'' احد الجمل التي تساعد على الدوران - حلقة - وبالعربي لف حتى النهاية

Do Until rst.EOF

 ''والتي هي تمثل بيانات الموجودة  وبين البيانات التي بالنوذج الجديدة rst'هنا مربط الفرس فبدأ يقارن ماهو موجود بمجموعة السجلات

'' فعند تطابق جميع الشروط ادناه تظهر رسالة ويعمل تراجع والخروج من الدوران والذهاب لامر الانتقال للسجل الثاني

If rst![كود اليوم] = Me![كود اليوم] And rst![الفترة] = Me![الفترة] And rst![القاعة] = Me![القاعة] And rst![الدكتور] = Me![الدكتور] Then

''الرسالة

MsgBox " يوجد تعارض بالجدول ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

''التراجع والغاء الحدث

Me.Undo

DoCmd.CancelEvent

''نقل التركيز لكود اليوم لتعديل البيانات

[كود اليوم].SetFocus

''الخروج من الدوران حيث وجد التكرار

Exit Do

End If

'' الانتقال الى سجل جديد لفحصه

rst.MoveNext

Loop

''اغلاق الكائن

rst.Close

اين اضعه في اي مكان في برنامج الرواتب المرفق سابقا ً اذ ان برنامجي يحتوي على نموذج رئيسي ونموذج فرعي لايطبق عليها هذا الكود اذ ان المشكلة لاتحل ارجو المساعدة مع الشكر الجزيل

تم تعديل بواسطه omena100
رابط هذا التعليق
شارك

قد اجبت في مشاركتي السابقة

لا يتصور ادراج اسم ومعرف جديد في جدول الرواتب الا بعد تسجيله وتسجيل بياناته في جدول الموظفين

بل يستحيل ذلك !!

واذا كنت مصرا على رأيك فانظر هنا كود خاص بمنع التكرار وقد كتبته الساعة http://www.officena.net/ib/index.php?showtopic=62576#entry405609

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

اخي العزيز ابو خليل جربت الكود الذي اعطيتني اياه على حقل id  في الفورم name_  في حدث قبل التحديث ولم تحل المشكلة وجربت ووضعت الكود في زر الترحيل بعد عبارة

  If Not rs.EOF And rs.BOF Then ووضعت end if الخاصة بالكود في نهاية كود الترحيل في مجموعة end if  النهائية ولم تظهر لي رسالة ان القيد مكرر اي لم تحل المشكلة اعلم من خلال ذلك ان مشكلة تكرار القيد لاتحل في هذه الحالة الا ان ارضى بالامرالواقع الا وهو حذف القيود المكررة ان وجدت في شاشة الترحيل او في جداول اشهر الرواتب او بناء برنامج جديد يعتمد على جدولين جدول الموظفين وجدول الرواتب ومن خلال جدول الموظفين ادخل اسماء الموظفين الجدد ومن ثم اختار من مربع تحرير وسرد الشهر المعني لطباعة الرواتب اهذا هو الحل مع الشكر الجزيل

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

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

 حسب علمي  هذا هو الحل المنطقي

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

السلام عليكم اخي العزيز ابو خليل

سوف احااول ان اعمل برنامج رواتب جديد بهذه المواصفات واي استفسار سوف اسألك عنه بشأن برنامج الرواتب الجديد وفقك الله واشكرك على تعاونك معي مع الشكر الجزيل

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

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