عمر ضاحى

انا حاولت اسجل على الموقع لكن اخبرني ان الخدمة غير متاحة فى بلدي كيف سجلت انت ^_^

ما شاء الله مجهود جبار والموضوع حاسه كبير جدا علشان استوعبه مره واحده لكن جزاك الله عنا كل خير وبارك الله فى علمك وصحتك

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

اين المسطره فى الصوره ؟ هل يظهر لك شئ لا يظهر عندي ؟

اين المسطره السفليه ؟ ممكن صوره

جرب كده رسائل2.rar

عن طريق الميكرو ! فى طريقة اسهل باستخدام دالة Count جرب المرفق الخاص بك بعد التعديل اتمنى يكون هذا ما تريد بحث.accdb

نصيحه دائما ارفق ملف علشان نقدر نشوف السبب معك

الف الف مبروك للترقيه مبارك لك

اتفضل هذه الاداة لمعرفة كود كل حرف ومفتاح فى الكيبورد واذا بحثت اكثر هتجد الدرر والجواهر فى المنتدي

عند مفتاح للأسفل وتخلى مفتاح المعاينه نعم

بص انا معنديش حل لكن عندي فكره وعليك انت تجرب خلينا نتفق ان Ctrl+A بيحدد النص داخل الحقل (وغالبا لا يعمل ايضا) فانت ممكن تعمل ايه اول هتعمل حدث عن الضغط على المفتاح لاسفل وهتستخدم دالة Select Case وبداخلها هتعمل لوب او اى دالة مشابهه علشان تعمل تحديد للسجلات طبعا التحديد هيكون عن طريق اضافة حقل جديد قيمته نعم/لا علشان نحدد عن طريقه وهذا لتقريب المثل Select Case KeyCode & vbKeyControl Case 65 & 17 MsgBox "111111111" End Select طبعا انت هتستبدل كود الرساله باللوب او باى كود انت عاوزه ملاحظه رقم 65 تدل على حرف A رقم 17 تدل على مفتاح Ctrl واترك الباقى لك او لاساتذتى الكرام اذا كان هناك حل اخر افضل

طيب ما تجرب تعيد تسمية جداول احد القاعدتين ( باضافة حرف او رقم ) وتعمل ربط للقاعدتين معا وتشتغل عليهم دائما

اما بخصوص النقطه الثانيه ( لا اعرف لها حل ولم اجربها لكن اقدم لك اقتراح قد ينفع او يفشل) ممكن تستخدم دالة Select Case و دالة Replace اذا كان الحرف ى يقوم باستبداله بالحرف ي وهذا اقتراح لا اعرف اذا كان هينفع ام لا

بالنسبه للنقطه رقم 1 ممكن تعدل كود البحث باستخدام دالة len If IsNull(Me.searchtext) Or Me.searchtext = "*" Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub ElseIf Len(searchtext) < 3 Then MsgBox "عدد الاحرف المكتوبة اقل من 3 احرف": Exit Sub ElseIf Len(searchtext) >= 3 Then a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True sq1 = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area] FROM [On air 4G info sites] WHERE ((([On air 4G info sites].[Coverage Area]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));" Me.RecordSource = sq1 End If

هذا الخطأ طبيعي لان فى الاصل لازم تدخل بيانات فى النموذج الرئيسي (الجدول الرئيسي) ثم تقوم بادخال البيانات فى النموذج الفرعي لان النموذج الفرعي مرتبط بسجل فى النموذج الرئيسي واذا لم يتواجد هذا السجل كيف سيتم ارتباط السجلات ؟ لذا ممكن تعمل حدث قبل الادراج وتدخل هذا الكود If IsNull([Forms]![Cashers]![Custom]) Or [Forms]![Cashers]![Custom] = "" Then MsgBox "برجاء ادخل اولا اسم الزبون", 0, "" DoCmd.CancelEvent End If مرفق Resturant Pro.rar

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

هذا هو المطلوب بارك الله فيك

هذا ملف للتجربه عليه For Test.rar هناك ايضا ملاحظه انه اذا توافق التاريخ (اى كان هناك تاريخ موجود لا يحدث خطأ لكن اذا كان لا يحدث الخطأ

اولا اشكرك على تعليقك استاذي @Moosak جربت هذه الحل وايضا لم يصلح يبدو ان من الممكن ان يكون هناك خطأ اخر

السلام عليكم ورحمة الله وبركاته معي كود استعلام المطلوب انه بعد اضافة التاريخ الخاص بالفاتورة يبحث اذا كان قد سبق اضافة هذه الفاتورة (رقم الفاتورة وتاريخ الفاتورة متطابقين) يظهر لى رساله جربت اعملها بهذا الشكل Dim invNoCh As String Dim invDateCh As Date invNoCh = DLookup("[InvNo]", "[TblBPCash]", "[InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvNo] & "'") invDateCh = DLookup("[InvDate]", "[TblBPCash]", "[InvDate] =#" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvDate] & "# And [InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvNo] & "' ") Debug.Print invNoCh Debug.Print invDateCh If txtInvNo = invNoCh And txtInvDate = invDateCh Then MsgBox "هذه الفاتورة موجوده قبل سابق", 0, "" txtInvNo = "" End If لكن بيظهر لى خطأ فى دالة التاريخ invDateCh ومش عارف فين الغلط

اولا ده طبيعي لان الجدول اصبح مرتبط بجدولين ثانيا لعمل فاتورة سواء بيع او شراء لازم يكون هناك جدولين (جدول رأس الفاتورة وجدول محتوي الفاتورة ) لان محتوي الفاتورة اكثر من صنف ثم عملية الادخال بتكون عن طريق نموذج وليس الادخال المباشر للجداول والا فان الاكسيل هيكون افضل لك (وهذه متعة الاكسيس ) انك بتبرمج برنامج له مهام محدده كما تريد

بعد ما فتحت الملف الان وشوفت الجداول بص التعديل ده اول شئ جدول الاصناف هنسجل الاصناف عادي فيه ولما تعمل فاتورة بيع او شراء انت بتاخد كود الصنف مش اسم الصنف انظر المرفق بعد التعديل Database1.accdb

ارفق ملف كمثال حتى يتمكن الاساتذه الكرام من اجابتك بشكل صحيح