ابو جودي

جزاكم الله خيرا والدى الحبيب و استاذى الجليل و معلمى القدير استاذ @jjafferr

' Requires reference to Microsoft Office xx Object Library xx=Version No OF Access وهذا مثال على التنفيذ FileDialog.accdb

اتفضل 1373.حفظpdf.accdb

بسم الله ما شاء الله فكرة الكود ولا اروع استاذى الجليل ومعلمى القدير دكتور @د.كاف يار ولكن للاسف مع عدد السجلات المهول داخل الجدول لا يستطيع التعامل باجراءات العمليات داخل الكود ويتوقف التطبيق وهنا خصيصا أتذكر قولة والدى الحبيب ومعلمى القدير واستاذى الجليل الاستاذ @jjafferr الاستعلامات داخل الاكسس قوية جدا ويجب ان نهتم فى القاعدة على بناء الاستعلامات الصحيحة ونحاول قدر الإمكان التعامل معها وبها بدلا من الاكواد فهى أقوى او هى بناء قوى تسطيع معالجة البيانات من خلالها ان امكن

ممكن مرفق يمكن افهم معلش فهمى على اد حالى ومش قادر افهمك

طبعا يا والدي الحبيب وأستاذي الجليل ومعلمي القدير الأستاذ @jjafferr ، انت تدري ، مو انت المقصود من هذا التوضيح

بعد اذن اساتذتى العظماء ومشاركة للحصول على نتيجة الطباعة pdf 1372.حفظpdf.accdb

اتفضل Correct_data_without_duplication(5)

اتفضل Correct data without duplication 3.zip

اتفضل Correct data without duplication (1).mdb

ممكن تستعمل الكود الاتى Private Sub Form_Current() If sousf = "laptop" Then CodeInv = "lap" End Sub او Private Sub sousf_AfterUpdate() If sousf = "laptop" Then CodeInv = "lap" End Sub

اتفضل فقط قم باستيراد الجدول tblGetFieldName وكذلك النموذج frmChangeDefaultValue الى القاعدة الخاصة بك وغير القيمة لاى حقل فى اى جدول Change default value programmatically.mdb

البيانات تبقى كما هى بنفس الجدول Table2 يتم ترحيل البيانات الى الجدول tblTempData بدون اى تكرار اخطار التى تناسب احتياجاتك Correct data without duplication .mdb

مشاركة متواضعة مع أساتذتي العظماء للعلم فقط كان ممكن التصميم يقتصر على عدد 2 استعلام فقط وجدول لترحيل البيانات الصحيحة بدون تكرار ولكن حاولت حل المشكلة دون ان يكون تأثير على تصميمك يعنى التعديل فى الاخر بيتم ع الجدول الاساسى كما انه كان من الممكن الاستغناء عن كل الاستعلامات بكتابة جملة SQL لكل استعلام حسب ترتيبه على زر الامر ولكن حتى يسهل عليك التعرف على الافكار ببساطه Correct data without duplication_.zip

طيب ايه بس ياللى مش فاهمه ؟

لا تقول لحالك شئ تانى ولا تكلمه دى اخرتها هاهاهاهاهاها

ونقلا عن الاستاذ @ناقل اتفضل المرفق MusndWZwayid001(2).accdb

والان حتى تكتمل الفائدة المرفق النهائى يحتوى على جميع الافكار Tab05 (1).accdb

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير @husamwahab ولان الاستاذى الفاضل الكريم @nssj طلب كود ذكى هاهاهاهاها عجباني قوى كود ذكى دى وحضرتك تفضلت علينا جميعا بحلولك الرائعة وأكوادك الأروع أرد بضاعتكم اليكم بإعادة التكويد ليكون روتين عام داخل موديول ليسهل التعامل معه فى زوايا البرنامج سواء كان مصدر البيانات استعلام او جدول الكود داخل الموديول Public Function RcrdSrc(ByVal RecordSource As String) On Error GoTo ErrorHandler Dim FirstChar As Long Dim SecondChar As Long Dim XCount As Long RecordSource = Replace(RecordSource, ";", " ") FirstChar = InStr(RecordSource, "from") + 5 SecondChar = InStr(FirstChar, RecordSource, " ") XCount = SecondChar - FirstChar RcrdSrc = Mid(RecordSource, FirstChar, XCount) ExitHere: On Error GoTo 0 Exit Function ErrorHandler: Select Case Err.Number Case Is = 5 RcrdSrc = (RecordSource) Case Else MsgBox Err.Description, , "ERROR " & Err.Number GoTo ExitHere End Select End Function ولجلب مصدر البيانات يتم استخدام الكود الاتى MsgBox (RcrdSrc(RecordSource)) طبعا انا استخدمت فى الشرح صندوق رسائل كل واحد يضع الكود أينما يريد بدلا من صندوق الرسائل المستخدم فى للشرح هنا فقط DB(2).mdb

جزاكم الله خيـــــرا استأذى الجليل عاجز هن شكركم كما تستحقون سأفحص المرفق الان ولكن أرجوكم عدك تغيير أفضل إجابة فأنا فقط استمتعت بالمشاركة معكم أستاذي الجليل وتعلمت منكم جزاكم الله خيرا ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وشربة خنيئة من يد سيدنا ونبينا وحبيبنا صل الله عليه وعلى اله وسلم

اتفضل وهذا مرفقكم بعد التعديل valu (1).accdb مفيش أي تعب تحت امر حضرتك يا اهلا بيك

طيب انت لاحظت ان c2 ده حقل رقمي فى الجدول ؟! على كل حال ان كان الحقل نصى الكود يكون بهذا الشكل DoCmd.SetWarnings False DoCmd.RunSQL$ "insert into tbc(idn, cdatex, c1,c2 )VALUES(idn,tdatex, c1,'Rm')" DoCmd.SetWarnings True

اى حقل c1 ام C2 فى المنتدى انت طلبت c1 وفى المرفق طلبت c2 الله يرضى عليك ركز

ممكن مرفق وما المقصود بـ قيمة الحقل c1 في الجدول بعد الترحيل تساوي Rm

ههههههههه اى اناا عفريت المصباح