Alsalim1 قام بنشر يونيو 11, 2015 قام بنشر يونيو 11, 2015 مرحبا شباب ما هي الطريقة الصحيحة لمسح البيانات التي أدختلها في النموذج لإجراء عملية حسابية أخرى مرفق النموذج مسح بيانات النموذج.rar
jjafferr قام بنشر يونيو 11, 2015 قام بنشر يونيو 11, 2015 وعليكم السلام مو انتوا والرحمة ، لا مطر ولا حتى سحاب في مسقط رجاء تشرح بإسهاب ، وياريت مثال لوسمحت جعفر
Alsalim1 قام بنشر يونيو 11, 2015 الكاتب قام بنشر يونيو 11, 2015 مرحبا استاذ جعفر وينك من فترة فاقدنك لا حس ولا خبر نفس الشئ أنا في مسقط ما شئ مطر يعني لو دخلت رقم في حقل العدد الاول ورقم في حقل العدد الثاني وطلع الناتج أريد أمسح حقل العدد الاول وحقل العدد الثاني وحقل الناتج هل طريقة أني أعمل زر امر وأضع الكود التالي me.FN = "" me.SN = "" me.AN = "" هي الصحيحة أو في طريقة أخرى
jjafferr قام بنشر يونيو 11, 2015 قام بنشر يونيو 11, 2015 هيوا طريقتك صحيحة تعمل زر ، وعلى الحدث تضع الاوامر اللي قلتها انت ، بس السؤال ، حمو ماجربتها وحدك ، صاك بتحصل النتيجة يوم تجربها وخليت لك طريقة ثانية ، بس هذه الطريقة أحتفظ بحقوق نشرها ، لأني انا مبتكرها هاي الله يسلمك ، لما تدخل قيمة في الحقل SN مثلا ، وتريد تخوز القيمة ، انقر على الحقل مرتين ، والجني بيوخرها ، بس لازم لك بخور من الزين جعفر 101.مسح بيانات النموذج.accdb.zip 1
Elsayed Bn Gemy قام بنشر يونيو 11, 2015 قام بنشر يونيو 11, 2015 ههههههههههههه اخى جعفر مالك ومال الجن مش عاجبك مارد :power: اضافة الى ما تكرم به اخى جعفر يمكنك ايضا استخدام هذه الدالة ضع هذا الكود فى وحدة نمطية Public Sub ClearTextBoxes(frm As Form) For Each Control In frm.Controls If TypeOf Control Is TextBox Then Control.SetFocus Control.Text = "" End If Next Control End Sub ثم نادى على المارد يووووووه اقصد الدالة من خلال هذا الكود ضعه فى حدث عند النقر لزر جديد وليكن اسمه مسح Call ClearTextBoxes(Me) 2
jjafferr قام بنشر يونيو 12, 2015 قام بنشر يونيو 12, 2015 حياك الله بس أخي مارد اذا تسمح لي أضيف معلومة للفائدة ، وكودك ذكرني فيه في أحد البرامج الكبيرة اللي عملتها ، كنت مضطر اعمل معيار criteria للإستعلام ، لحقول البحث في النموذج ، وكان عندي حقول ارقام ، وحقول نص بالكامل (من مربع سرد Combobox) ، وحقول نص جزئي ، وتاريخ ، وكان في الكثير من الحقول ، والكثير من النماذج ، فاللي عملته هو اني كتبت اسماء الحقول في النموذج على اساس نوع الحقل ، مثلا: حقل رقم ، اسميته n_Serial_Number ، n_Reservation_Number ، ... حقل نص ، اسميته t_Full_Name ، t_Address ، .. ... وبهذه الطريقة اصبح عندي شغلتين ، اسم الحقل مثل Full_Name ، ونوع الحقل والذي هو t اي نص نرجع لموضوعنا فاذا اخونا السالم كان عنده مجموعة حقول ، وكان يريد ان يفرغ بعض الحقول فقط ، وكان يريد يستعمل طريقتك ، فيمكنه ان يضيف الحرف c مثلا قبل كل اسم حقل (فحقل SN مثلا تصبح c_SN) ، عليه يصبح الكود حقك: Public Sub ClearTextBoxes(frm As Form) dim ctl as control For Each ctl In frm.Controls If ctl.ControlType = acTextBox and left(ctl.Nmae,1)="c" Then ctl.value = "" End If Next End Sub جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.