mrnooo2000

لكن الكود يعمل معى أخى و على 2007 بعد ان كان لا يعمل فى البداية

الافضل من وجهة نظرى هو اخفاء الجدول

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

السبب فى ذلك اغلقت الاضافة فى النموذج allowadditions

استخدم هذا الكود حيث qryname هو اسم الاستعلام DoCmd.OpenQuery "qryname"

نعم اخى ممكن اليك اخى التعديل بالكود لاحظ اننا اضفنا جدول من خانة واحدة Database1.rar

جرب اخى هذا التعديل Dim intResult As Integer Const FJetDate = "\#mm\/dd\/yyyy\#" If DCount("*", "Details", "[DateReceipt] =" & Format(Me.DateReceipt, FJetDate)) > 2 Then MsgBox "لقد وصل عدد السجلات الحد المسموح به , فضلاً اكتب تاريخاً غير هذا التاريخ", vbOKOnl…

ضع مثال حتى يمكن معرفة سبب المشكلة

نعم اخى كلامك صحيح اليك تعديل الكود Dim Ln, Lx As String Ln = Left(Me.Last_Name, 1) Lx = Val(Right(Nz(DMax("auto", "table2", "auto like '" & Ln & "*'"), "000"), 3)) Me.Auto = Ln & Format(Lx + 1, "000")

أولا أخى الكريم كلنا عباد لله ثانيا اليك التعديل EXEMPLE_1.rar

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

يمكنك ان تجرب اعادة الربط 1- احذف الجداول المرتبطة من البرنامج 2- اعد ربط الجداول من قاعدة الجداول من المفترض ان يطلب منك ادخال كلمة المرور ادخل كلمة المرور و جرب

اليك اخى ما طلبت تم التعديل بطريقتين الاولى بكود فى النموذج فى حدث بعد التحديث للاسم الاخير و الثانية و هى ما أفضله عن طريق الاستعلام و تم الاستغناء عن حقل auto بالجدول Database2.rar

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

هذا يتوقف على مكان وضع الكود

تفضل اخى اختيار.rar

لا ارى مشكلة فى الكود لكن اعتقد ان المشكلة فى تنسيق التاريخ بالكومبيوتر اى انه لا يرى التاريخ بالشكل الموجود بالقاعدة حاول ملاحظة تنسيق التاريخ بالكومبيوتر من خلال لوحة التحكم

استخدم الدالة DCOUNT مثل Me.Label99.Caption = DCount("1", "table1", "[1]='" & "1/أ" & "'")

اولا لا اعتقد ان ذلك ممكن فى الجدول لكن لما تريد عمل ذلك فى الجدول اعتقد ان ذلك افضل فى النموذج حيث سيتم ادخال البيانات

يمكنك بكل سهولة تعديل الكود الموجود فى حدث بعد التحديث للنموذج بدلا من USERFULLNAME الى USERNAME