gadelrab قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 (معدل) الاخوة الاعزاء السلام عليكم ورحمة الله لدى جدول به سجل يعرض فى نموذج به زر تحديدث اريد عند الضغط على زر التحديث يتم تحديث جميع الخلايا لتصبح فارغة على ان تبقى الخلايا التالية كما هى بنفس البيانات دون تحديث : [g1s11] - [g1s12] -[g1s13] -[g1s14] -[g1s15] up.accdbFetching info... تم تعديل سبتمبر 10, 2022 بواسطه gadelrab
jjafferr قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 وعليكم السلام 🙂 اجعل اسم الزر cmd_clear_fields ، ثم ضع الكود في حدث النقر على الزر: Private Sub cmd_clear_fields_Click() On Error GoTo err_cmd_clear_fields_Click Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.Name <> "g1s11" And _ ctl.Name <> "g1s12" And _ ctl.Name <> "g1s13" And _ ctl.Name <> "g1s14" And _ ctl.Name <> "g1s15" Then ctl.Value = "" End If End If Next Exit_cmd_clear_fields_Click: Exit Sub err_cmd_clear_fields_Click: If Err.Number = 2448 Then 'can't change autonumber Resume Next ElseIf Err.Number = 3314 And ctl.Name = "g1s3" Then 'a date must be entered ctl.Value = Date Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_cmd_clear_fields_Click End Sub جعفر up.zipFetching info... 3
متقاعد قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 في 10/9/2022 at 07:21, gadelrab said: اريد عند الضغط على زر التحديث يتم تحديث جميع الخلايا لتصبح فارغة على ان تبقى الخلايا التالية كما هى بنفس البيانات دون تحديث Expand الموضوع بسيط والاستاذ جعفر عمل حلقة في حقول النموذج تمر على الحقول وتستثني ما لا ترغب في تحديثة وايضا ممكن عملها باستعلام تحديث لكن السؤال هذه الحقول التي حدثتها الى فارغ لن تستطيع الرجوع اليها ؟ فلماذا لا تقوم بدلا من التحديث بنقل البيانات المستناه الى سجل جديد وبالتالي يكون لديك بيانات متكاملة حاليه وسابقة لكل سيارة ويمكن الرجوع عند الحاجة وجهة نظر غير ملزمة واشبه ماتكون بالتفكير بصوت مرتفع استاذي العزيز @jjafferr خالفت اتفاقي معك فالطبع يغلب التطبع 1
jjafferr قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 في 10/9/2022 at 08:57, مبرمج متقاعد said: خالفت اتفاقي معك فالطبع يغلب التطبع Expand اهلا وسهلا بك مرة اخرى 1
متقاعد قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 في 10/9/2022 at 09:04, jjafferr said: اهلا وسهلا بك مرة اخرى Expand هههههه في 10/9/2022 at 08:57, مبرمج متقاعد said: فلماذا لا تقوم بدلا من التحديث بنقل البيانات المستناه الى سجل جديد وبالتالي يكون لديك بيانات متكاملة حاليه وسابقة لكل سيارة ويمكن الرجوع عند الحاجة Expand لتنفيذ هذه الفكرة ممكن استخدام الامر التالي في زر امر If Me.NewRecord Then Exit Sub Dim x As Variant Dim a As Variant x = ([g1s11] & "|" & [g1s12] & "|" & [g1s13] & "|" & [g1s14] & "|" & [g1s15]) DoCmd.GoToRecord , , acNewRec a = Split(x, "|") [g1s11] = a(0) [g1s12] = a(1) [g1s13] = a(2) [g1s14] = a(3) [g1s15] = a(4) وممكن بدون الحاجة الى مصفوفة عن طريق حلقة مشابهه لكود استاذنا جعفر تحياتي 2
gadelrab قام بنشر سبتمبر 10, 2022 الكاتب قام بنشر سبتمبر 10, 2022 (معدل) الاخوة الاعزاء جزاكم الله خير الجزاء على كل رددودكم الاخ العزيز مبرمج متقاعد انا فعلا اقوم بنسخ السجل فى جدول اخر قبل التعديل للرجوع اليه وكنت اريد عمل هذه الخطوة فى استعلام فارجو منك ان تتفضل بعمل استعلام تحديث يعيد الخلايا الفارغة ويترك الخلايا المطلوبة كما هى حيث اننى حاولت ان اضع المعيار " " فى التحديث ولكنه لم يفلح مع كل الخلايا ولا ادرى لماذا وشكرا للجميع مرة اخرى تم تعديل سبتمبر 10, 2022 بواسطه gadelrab
متقاعد قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 في 10/9/2022 at 11:56, gadelrab said: انا فعلا اقوم بنسخ السجل فى جدول اخر قبل التعديل للرجوع اليه Expand ولماذا تنسخ السجل في جدول اخر الكود الذي وضعته في مشاركتي السابقة يقوم بنسخ معلومات السيارة الى سجل جديد في نفس الجدول وجاهز لاضافة معلومات العميل تكرار البيانات في اكثر من جدول ليس اجراء صحيح اما اذا كنت مصر على تفريع الحقول فكود استاذنا جعفر يقوم بذلك تحياتي
AbuuAhmed قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 وهذه مساهمة مني: Dim crl As Control On Error Resume Next For Each crl In Me.Controls With crl If Not Right(.Name, 2) Like "1[1-5]" Then .Value = Null End If End With Next crl 3
jjafferr قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 في 10/9/2022 at 12:25, AbuuAhmed said: On Error Resume Next Expand اللي قبلك كان اشطر منك (انا في هذه الحالة 🙂) ، استعملتها في البداية ، واذا بالحقل "g1s3" يعرض لي تاريخ مال زمان 30/10/1899 ، فاضطررت ان اصطاد اخطاء الكود واضبط تاريخ الحقل 🙂 في 10/9/2022 at 12:25, AbuuAhmed said: Like "1[1-5]" Expand فكرة جميلة 🙂 جعفر
AbuuAhmed قام بنشر سبتمبر 10, 2022 قام بنشر سبتمبر 10, 2022 (معدل) في 10/9/2022 at 13:20, jjafferr said: للي قبلك كان اشطر منك (انا في هذه الحالة 🙂) ، استعملتها في البداية ، واذا بالحقل "g1s3" يعرض لي تاريخ مال زمان 30/10/1899 ، فاضطررت ان اصطاد اخطاء الكود واضبط تاريخ الحقل 🙂 Expand حياك الله أستاذ جعفر ، تحسين في الكود: Dim crl As Control On Error Resume Next For Each crl In Me.Controls With crl If Not Right(.Name, 2) Like "1[1-5]" Then Err.Clear .Value = "" If Err.Number <> 0 Then .Value = Date 'لا أنصح بهذا السطر End If End With Next crl تم تعديل سبتمبر 10, 2022 بواسطه AbuuAhmed 3
gadelrab قام بنشر سبتمبر 11, 2022 الكاتب قام بنشر سبتمبر 11, 2022 الاخوة الاعزاء السلام عليكم ورحمة الله قمت بعمل استعلام لجعل بعض الخلايا فارغة وبقاء البعض الاخر دون تحديث ووضعت فى خانة التحديث الى المعيار " " ولكن الاستعلام لا يعمل فما هو الخطا ارجو التطبيق على المثال المرفق up2.accdbFetching info...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.