النجاشي قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 (معدل) السلام عليكم ورحمه الله وبركاته عندي نموذج اسمه اضافه عميل اريد ان ادخل الرقم بهذه الطريقه 35020-15100 ويحفظ معي بالجدول وبعد الحفظ يعطنا رساله اذا أدخلت نفس الرقم يعطيك رساله انا الرقم مكرر تحياتي حفظ رقم العميل.rar تم تعديل أبريل 14, 2017 بواسطه ابو زاهر رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 وعليكم السلام ورحمة الله وبركاته فضلا مراجعة المرفق تحياتي حفظ رقم العميل.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أبريل 14, 2017 الكاتب مشاركة قام بنشر أبريل 14, 2017 ما ضبط اخي@محمد ابوعبد الله واريده الصفر قبل الرقم يحفظ بالجدول مثلا2222-011111 تحياتي ليك رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 عذرا اخي ابو زاهر ارفقت مرفق خطأ فضلا مراجعة المرفق تحياتي حفظ رقم العميل_2.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أبريل 14, 2017 الكاتب مشاركة قام بنشر أبريل 14, 2017 (معدل) 5 ساعات مضت, محمد ابوعبد الله said: عذرا اخي ابو زاهر ارفقت مرفق خطأ فضلا مراجعة المرفق تحياتي حفظ رقم العميل_2.rar شاكر اخي @محمد ابوعبد الله بس اخي بقي عندي التعديل يعطينا رساله انا العميل غير موجود وهو موجود بالجدول ممكن اخي تعدل لي الكود ويستدعي لي البيانات ويعدلها تحياتي ليك تم تعديل أبريل 14, 2017 بواسطه ابو زاهر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 استأذن من السيد @محمد ابوعبد الله على المداخلة و مشاركة معه اخي ابو زاهر احذف سطر الاخير اي احذف Docmd.Close واضف Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" اي في النهاية الكود سيكون كالتالي Private Sub S_Click() Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Alamla.*FROM Alamla;") Rs.AddNew Rs("NoEmp") = Me.NoEmp Rs("NaEMP") = Me.NaEMP Rs("SAL") = Me.SAL Rs("Alhdalmsmh") = Me.Alhdalmsmh Rs.Update Rs.close MsgBox "تم الاضافه بنجاح" Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" End Sub لكي عند الحفظ الريكورد ان يفرغ المربعات النصية ولكي تكدر تعمل سجل جديد وفي النموذج التعديل وفي مربع نصي رقم العميل Noepm شوف الكود بعد تحديث كان هكذ Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = " & NoEmp & "") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub اضف اليها هذا ( ' ) مرتين لكي يشتغل بشكل جيد لان الحقل رقم العميل هو نصي اي سيكون الكود كالتالي Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = '" & NoEmp & "'") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub واخيرا اتفضل مع قاعدة البيانات تقبل تحياتي حفظ رقم العميل_2.rar 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أبريل 14, 2017 الكاتب مشاركة قام بنشر أبريل 14, 2017 2 دقائق مضت, Shivan Rekany said: استأذن من السيد @محمد ابوعبد الله على المداخلة و مشاركة معه اخي ابو زاهر احذف سطر الاخير اي احذف Docmd.Close واضف Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" اي في النهاية الكود سيكون كالتالي Private Sub S_Click() Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Alamla.*FROM Alamla;") Rs.AddNew Rs("NoEmp") = Me.NoEmp Rs("NaEMP") = Me.NaEMP Rs("SAL") = Me.SAL Rs("Alhdalmsmh") = Me.Alhdalmsmh Rs.Update Rs.close MsgBox "تم الاضافه بنجاح" Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" End Sub لكي عند الحفظ الريكورد ان يفرغ المربعات النصية ولكي تكدر تعمل سجل جديد وفي النموذج التعديل وفي مربع نصي رقم العميل Noepm شوف الكود بعد تحديث كان هكذ Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = " & NoEmp & "") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub اضف اليها هذا ( ' ) مرتين لكي يشتغل بشكل جيد لان الحقل رقم العميل هو نصي اي سيكون الكود كالتالي Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = '" & NoEmp & "'") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub واخيرا اتفضل مع قاعدة البيانات تقبل تحياتي حفظ رقم العميل_2.rar جزاكم الله خير اخواني@Shivan Rekany والاخ@محمد ابوعبد اللهربنا يجعله بميزان حسناتك أدخلت الفرحه علي قلبي ربي يحفظكم أينما كنتم وكل من تحبون شاكر لكم تحياتي 1 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أبريل 14, 2017 مشاركة قام بنشر أبريل 14, 2017 الحمد لله على انتهاء المشكلة اخي ابو زاهر والشكر موصول لاستاذنا الفاضل Shivan Rekany لا حرمنا الله منه ابداً ولا من ابداعاته والشكر للجميع تحياتي 2 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أبريل 14, 2017 الكاتب مشاركة قام بنشر أبريل 14, 2017 18 دقائق مضت, محمد ابوعبد الله said: الحمد لله على انتهاء المشكلة اخي ابو زاهر والشكر موصول لاستاذنا الفاضل Shivan Rekany لا حرمنا الله منه ابداً ولا من ابداعاته والشكر للجميع تحياتي الحمدلله حلت المشكله تماما بارك الله فيكم استاذتي كلم ما تقصرو ربنا يجعله بميزان حسناتكم والعفو منك احي محمد أبو عبدالله الرجال شارك بطلب مني هوعزيز غالي دوما يساعدنا وانت ماقصرت ربي يسعدك تحياتي لكم تصبحو على خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.