Ali Sadiq

اخي الكريم . القاعدة فارغه وما فيها اي شي

السلام عليكم .اخي الكريم هناك تعديل بسيط على الكود وهو لمنع ظهور الرسالة المزعجة في كل مرة @essam rabea والشكر موصول للاستاذ بالتوفيق Dim Answer As Integer If Me.yes_no = True Then Answer = MsgBox("هل ترغب بترحيل البيانات المطلوبة ؟", vbQuestion + vbYesNo) If Answer = vbYes Then MsgBox "تم الترحيل بنجاح وسيتم حذف البيانات من الجدول الرئيسئ" Me.Requery Else MsgBox "تم التراجع عن ترحيل البيانات " Me.Undo End If End If DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Recepion ( ID,Sanf, Price ) " & "SELECT ID,Sanf,Price " & " FROM Elasnaf " & _ "WHERE yes_no = -1" DoCmd.RunSQL "DELETE * FROM Elasnaf WHERE yes_no = -1" DoCmd.SetWarnings True Me.Requery

أخي العزيز جرب هذا المثال للأستاذ أبو هاجر محدث من أبي هادي https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=2181 بالتوفيق

@essam rabeaاستاذي الفاضل من بعد اذنك اليك المرفق بعد التعديل هل هذا طلبك اخي الكريم UP1.accdb

السلام عليكم اخي محمد هل هذا هو المطلوب؟ test.accdb

تفضل اخي Forms("MyForm").ShortcutMenu = False

تفضل اخي الكريم ولو ان سؤالك هذه المرة يختلف عن السؤال الاول . اليك الملف بعد التعديل. بالتوفيق 7.accdb

السلام عليكم استاذ @essam rabea تحية لشخصك الكريم عندي مداخلة هنا بخصوص ملف الاخ السائل الجداول فيه اخطاء كثيرة منها على سبيل المثال كود الصنف نوعه عملة؟ بالنسبة للحل الذي تقدمت به فهو صحيح ميه ميه ولكن احببت ان الفت نظر الاح السائل ليس الا. وهذه الصور من الجداول. تقبل تحياتي

تفضل اخي اضطررت لعمل قاعدة بيانات جديدة لانه كان هناك خلل ما في قاعدتك واعتقد بسبب اللغة على العموم اليك الملف الان جرب واخبرني ان كان هو المطلوب. Code.accdb

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

السلام عليكم اخي محمد جرب الملف الان واخبرني بالنتيجة مع العلم لم اغير اي شيئ في كود الاستاذ @ابو ياسين المشولي بالتوفيق عدم التكرار (3).accdb

من بعد اذن الاستاذ @kanory هذه طريقه ثانية بالتوفيق db.accdb

أخي الكريم اليك التعديل الذي عملته بالتوفيق

وعليكم السلام ورحمة الله وبركاتة تفضل اخي الكريم ملفك بعد التعديل FilterCombo.mdb

تفضل اخي الملف بفد تعديل الكود. بس طريفة عملك ما فهمت منها شي ! Database.accdb

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

وردك هو الاجمل اخي وبارك الله فيك .

الشكر موصول للجميع اخي @rey360

السلام عليكم اخي @rey360 انظر للملف المرفق في مشاركتي الاخيره وستجد الفرق بعد اضافة الكود والخاص بالمسافة وبامكانك الان ان تبحث باسم محمد شاهين او محمد شاكر او محمد شريف وبوضع المسافة بين الاسم الاول والثاني. لفد اضفت هذه الاسماء في الجدول حتى ترى الفرق. تحياتي

من بعد اذن اخي واستاذي @kha9009lid اليك المرفق بعد اضافة الكود Test2.accdb

Private Sub txt3_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Me.txt3.Value = Me.txt3.Text & Chr$(32) Me.txt3.SelStart = Len(txt3.Text) End If End Sub هذا الكود لعمل المسافة وتكملة البحث ان شاءالله يكون هو المطلوب

تفضل اخي هذا الكود بالتوفيق Dim varFilter As Variant varFilter = 0 With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

من بعد اذن الاخ ياسين تفضل اخي هل هذا هو المطلوب ؟ قاعدة بيانات2.accdb

السلام عليكم ابو اشرف شوف هذا

السلام عليكم تفضل اخي الكريم ملفك بعد التعديل الطفيف DATA111.rar