محمد سلامة قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 السلام عليكم ورحمة الله عند اضافة بيانات الى النموذج الفرعى تظهر هذه الرسالة فهل يمكن تفادى ظهور هذه الرسالة علما ان مصدر النموذج الفرعى استعلام ويتم فيه حسابات المرفق .. Erorr1.rar
رمهان قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي 2
محمد سلامة قام بنشر مايو 17, 2017 الكاتب قام بنشر مايو 17, 2017 في 17/5/2017 at 22:36, رمهان said: دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي Expand تحياتي استاذ رمهان هجرب بكرة ان شاء الله واوفيك بالنتيجة تحياتي بس بعتقد العيب في الاستعلام نفسه
محمد سلامة قام بنشر مايو 18, 2017 الكاتب قام بنشر مايو 18, 2017 في 17/5/2017 at 23:07, محمد سلامة said: تحياتي استاذ رمهان هجرب بكرة ان شاء الله واوفيك بالنتيجة تحياتي بس بعتقد العيب في الاستعلام نفسه Expand نجحت الطريق لكن انا اريد ان اسند قيمة الى الحقل قبل الانتقال الى سجل جديد Private Sub comm_add_Click() DoCmd.GoToRecord , , acNewRec taxt_now = 2 End Sub وبهذه الطريقة لم استطيع ان اجعل قيمة الحقل taxt_now = 2 وذلك قبل الانتقال الى سجل جديد فهل من حل لاخفاء هذه الرسالة
رمهان قام بنشر مايو 18, 2017 قام بنشر مايو 18, 2017 ماذا تعني هذه القيمة؟ لماذا اسناد القيمة قبل الانتقال ؟ تحياتي 1
محمد سلامة قام بنشر مايو 19, 2017 الكاتب قام بنشر مايو 19, 2017 في 18/5/2017 at 23:46, رمهان said: ماذا تعني هذه القيمة؟ لماذا اسناد القيمة قبل الانتقال ؟ تحياتي Expand اسند القيمة لان السجل الحالي يمثل الرتبة الحالية للموظف وقبل الانتقال الي سجل جديد يجب ان تكون قيمة السجل الحالي 2 (لا) وتعني الرتبة السابقة.. والسجل الجديدة يصبح هو الرتبة الحالية والقيمة 1 (نعم)
رمهان قام بنشر مايو 19, 2017 قام بنشر مايو 19, 2017 جرب Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else taxt_now = 2 ''DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec id_emp = Me.Parent!id_e 'End If End Sub مع العلم ان طريقتك بها خطورة نوعا ما وهي لو ضغط زر الاضافة غيرمتعمد او ضغطه ولم يكتب شيئا فانه سيتم تعديل الرتيه الاخيره وهي مازالت الرتيه الاخيره بالتوفيق 1
محمد سلامة قام بنشر مايو 19, 2017 الكاتب قام بنشر مايو 19, 2017 (معدل) في 19/5/2017 at 11:10, رمهان said: مع العلم ان طريقتك بها خطورة نوعا ما وهي لو ضغط زر الاضافة غيرمتعمد او ضغطه ولم يكتب شيئا فانه سيتم تعديل الرتيه الاخيره وهي مازالت الرتيه الاخيره بالتوفيق Expand طب استاذ رمهان من وجهة نظرك اترك للمستخدم هو يقرر ما اذا كانت الرتبة حالية او سابقة قبل الانتقال الي السجل الجديد؟ او اي طريقة اخري تفضلها حضرتك هذا وسوف اجرب الكود واوافيك بالنتيجة تم تعديل مايو 19, 2017 بواسطه محمد سلامة
رمهان قام بنشر مايو 20, 2017 قام بنشر مايو 20, 2017 المشكلة : لو ان المستخدم جالس يتصفح السجلات ثم وقف عند السجل الثاني وبعد كذا ضغط اضافة فهنا التعديل اصبح في السجل الثاني اما السجل الاخير فضل كما هو واما الطرق فاكيد هناك طرق وافكار ولكن بعد ان تجرب السابق وتم حل مكلة الرساله وبعد كذا ننتقل الى انه : يتم التعديل في السجل الاخير فقط وهذا الصح ! تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.