jafaar قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 السلام عليكم ورحمة الله تعالى وبركاته.... بعد ان قمت بتصميم منظومة خاصة بالموظفين احتجت الى نموذج وقد اسميته نموذج التعديل. ولتسهيل عمل المنظومة قمت بفتح النموذج عن طريق زر امر موضوع في نموذج يمكن الضغط عليه لفتح نموذج التعديل... مشكلتي... عند النقر على زر الامر لفتح نموذج التعديل ، يفتح النموذج ولكن عند اول سجل وليس على السجل الذي كان فعالاً. كيف لي عند نقر الزر (تعديل) لفتح نموذج التعديل ان ... يفتح على السجل الذي كنت عليه ... مع تحياتي
Bluemind قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 hاخوي لنفرض انك تستخدم هذا الحقل ID كا حقل تعريف للسجلات الموظفين نقوم بالتالي: تروح على زر الامر وتفتح شاشه الفيجول بيسك ثم تكتب الكود التالي: Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[ID]=" & Me.ID.Value stDocName = "Form2" DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit, acDialog حيث انه يجب عليك تعديل التالي حسب ماهو موجود لديك طبعاID باسم الحقل الي رايح تستخدمه طبعا form2 يستبدل باسم نوذج التعديل الموجود لديك كما يمكنك استخدام المعالج لعمل ذلك بدل منك او ارفق قاعده البيانات للتعديل عليها
jafaar قام بنشر أغسطس 3, 2009 الكاتب قام بنشر أغسطس 3, 2009 اشكرك اخي العزيز على سرعة الاجابة ارفق لك الملف التالي في المرفقات وفيه نموذج Employee وقد كتب فيه طلبي مع شكري وامتناني
jafaar قام بنشر أغسطس 3, 2009 الكاتب قام بنشر أغسطس 3, 2009 اشكرك اخي العزيز على سرعة الاجابة وبارك الله فيكارفق لك الملف التالي في المرفقات وفيه نموذج Employee وقد كتبت فيه طلبي مع شكري وامتناني emp.rar
Bluemind قام بنشر أغسطس 3, 2009 قام بنشر أغسطس 3, 2009 اخوي في المرفق لايوجد الا نموذج واحد وهو نموذج التعديل !!!!!!!!! اين النموذج الاساسي؟؟؟؟ كما ان طلبك في المرفق يخالف سؤالك اعلاه؟؟؟!!!!!
jafaar قام بنشر أغسطس 3, 2009 الكاتب قام بنشر أغسطس 3, 2009 اخي العزيزكان طلبي الاول قد شكرتك عليه من خلال رسالتي السابقة فقد كان الحل الذي اريد هذا من ناحية ومن ناحية اخرى ارسلت لك الملف وقد طلبت فيه عرض رقم السجل الحالي للملف الذي يتألف من عدة سجلاتارجو ان لااكون قد اطلت عليك ، فلك الشكر الجزيل وتمنياتي ان ينتفع الجميع
Bluemind قام بنشر أغسطس 3, 2009 قام بنشر أغسطس 3, 2009 اخوي في النموذج روح على حدث on current واضف الكود التالي : If Me.NewRecord Then Me.Yourtxt.Value = "" Else Me.Yourtxt.Value = Me.EmployeeID End If طبعا لابد من تغيير المسميات اعلاه حسب اسماء الحقول لديك تغير yourtxt الى اسم الحقل المراد عرض رقم السجل فيه طبعا انا انصحك بعمل حقل وسمهSequenceNo واجعله autonumber ثم غير في الكود اعلاه employeeID الى SequenceNo لانه في حاله تغيير رقم الموظف الى مثلا الى ارقام تناسب رقم الموظف في الشركه فان مربع النص رايح يعرض رقم الموظف طبعا انا اسف لم استطع التغيير لوجود مشكله في الترميز وقاعده بياناتك يوجد بها حروف عربيةفي مسميات الحقول
jafaar قام بنشر أغسطس 9, 2009 الكاتب قام بنشر أغسطس 9, 2009 مشكور اخي العزيز فلقد كان حلك ناجحاً تمنياتي لك بالموفقية وأسال الله تعالى ان يزيدك علماً وايماناً .
Bluemind قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 حياك الله اخوي ولكن في حاله مسح اي سجل من هذه السجلات سوف تظهر لك مشكله في تسلسل الارقام.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.