AlwaZeeR

ما الفائدة من الرقم 1000 وماذا سيحدث لو تم الكتابة في Namex وتركت idx فارغا؟ هل سيقوم بالترقيم؟؟

جرب بدونه وسترى نفس النتيجة

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

فهم السؤال ثلثي الاجازة اعمل مربع نص وسميه مثلا ALLRec ضع فيه =Count(*) واجعل نهاية For هذا الحقل For i = 1 To AllRec لا تنس عمل إخفاء للمربع المذكور 🙂

ماذا تقصد بتبديل الارقام؟ تبديل يدوي؟ ممكن تشرح الغرض واكيد سيكون حل باذن الله

فقط تحتاج الى إضافة حقل في الجدول ترقيم تلقائي وفرز حسب هذا الحقل test550055vv.mdb

وعليكم السلام ورحمة الله وبركاته تفضل ضع هذا الكود في وحدة نمطية Public Function UpdateCounter() Dim SQL As String Dim Rs As New ADODB.Recordset Dim counter As Long counter = 1 SQL = "SELECT IDx" & _ " FROM table1 ORDER BY table1.Idx" With Rs .Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic Do While Not .EOF ![idx] = counter counter = counter + 1 .Update .MoveNext Loop .Close End With Set Rs = Nothing End Function وقم باستدعائه تحت زر الامر هكذا UpdateCounter Me.Requery test550055.mdb

وعليكم السلام ورحمة الله وبركاته انا قمت بتبديل المسميات العربية بحروف انجليزية لتسهيل العمل اختصرت لك الأوامر التي قمت بعملها انت جرب ووافني بالنتيجة هذا هو الاستعلام المعمول به بدل الثلاثة استعلامات الخاصة بك وأعطى نفس النتيجة التي تريد SELECT DFTbl.ID, DFTbl.Dt, DFTbl.Dw, DFTbl.Fw, DSum("[fw]","Qry","ID<=" & [ID])-DSum("[dw]","Qry","ID<=" & [ID]) AS FwateerPalance, DateDiff("d",[Dt],Now()) AS DtNum, moneyAge([DtNum]) AS [note] FROM DFTbl ORDER BY DFTbl.ID, DFTbl.Dt; يبقى امر سرعة الانجاز :: تحياتي اعمار_الديون_-_اسلام_الشيمى.accdb

وعليكم السلام ورحمة الله وبركاته تفضل كشف.accdb

تفضل TestDBv.mdb

تفضل أستاذ عبد جرب وللاسترجاع اعكس الأوامر مع عمل نموذج ارجاع مصدره الجدول TargetTbl Private Sub Command1_Click() Dim db As DAO.Database Dim StrSQLADD As String Dim StrSQLDEL As String ' تعريف القاعدة الحالية Set db = CurrentDb ' ادراج السجل الحالي في جدول التخزين StrSQLADD = "INSERT INTO TargetTbl SELECT * FROM [SourceTbl] WHERE IDREC = " & Me!IDREC db.Execute StrSQLADD 'حذف السجل الحالي بعد حفظه في الجدول السابق StrSQLDEL = "DELETE * FROM SourceTbl WHERE IDREC = " & Me!IDREC db.Execute StrSQLDEL ' تحديث النموذج للتخلص من السجل المحذوف Me.Requery End Sub TestDB.mdb

كيف لا تستطيع ادخال بيانات؟ وماذا تقصد بالرصيد المتبقي اليك صورة

تستطيع استبدال الفاصلة بنقطة كي يستطيع الاكسس فرزها هكذا TestField: Replace([المعدل العام],",",".")

حسب علمي لا اظن ذلك جرب احذف سجل وانظر الى امر التراجع في الاكسس في الأعلى هل يظهر؟؟ لا يظهر اذن لا اظن على حسب خبرتي يتم التراجع بعد الحذف نهائياً

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

وعليكم السلام ورحمة الله وبركاته تفضل وابتعد عن المسميات التي بينها فراغ مثلا استخدم بدل هذا Opening balance Opening_balance New Microsoft Access Database.accdb

وعليكم السلام ورحمة الله وبركاته لا اعتقد وحسب خبرتي المتواضعة جدا انه يصلح عمل ما تريد في النماذج المستمرة يمكن التحايل على ذلك عن طريق خلق ماسك بواسطة IIF مثلا Mask: IIf([WDelivered]="لا","███████████████","") وتعمل مربع نص وتجعل مصدره mask وتنسيقه شفاف وتضعه على مربع التاريخ لاخفائه :: هذه المشكلة واجهتني قديماً في أحد البرامج واتحدث عن قديماً ارجو ان يكون قد تم تطوير حل لها غير ما ذكرت انا :: تحياتي

اعتقد لان السؤال غير واضح يا ريت شوية تفصيل وان شاء الله تجد من يساعدك :: تحياتي

سبب تحديد الكل أنك لم تحدد مصدر مربع التحديد وهو DelChk عموما تفضل 3 (2) - Copy.rar

مصدر النموذج أصلاً من الجدول بمعنى ان حددت في النموذج فتلقائي سيتم تحديث الجدول والعكس صحيح

يعطيكم العافية جميعا اسمحوا لي بمداخلة بنفس الطريقة اخي العزيز تستطيع التحديد والالغاء لتحديد الكل: CurrentDb.Execute "UPDATE L SET [Delchk] = true " Me.Requery وإلغاء التحديد: CurrentDb.Execute "UPDATE L SET [Delchk] = False " Me.Requery وتستطيع وضعها تحت نفس الزر مع بعض التغييررات لاسم الزر تحياتي لشخصك الطيب أستاذ عبد اللطيف القيمة نعم يتم تخزينها أصلا -1 والقيمة لا 0

وعليكم السلام ورحمة الله وبركاته اسهل طريقة أنشئ حقل في جدول L الخاص بك وليكن اسمه DelChk واجعل نوع البيانات فيه رقم والقيمة الافتراضية false الان اذهب الى النموذج الخاص بالجدول وهو عندك L وانشئ زر أمر وضع في الحدث الخاص به الكود التالي CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true" Me.Requery تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك Delchkrecord.accdb

انا لم يكن للباركود يوماً سبيلاً في عملي واظن انه لن يكون ولكن رايت موضوعا للأستاذ العزيز جعفر ابدع فيه بذلك انتظر رايه وسوف تجد الحل الشافي باذن الله تحياتي

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

تفضل وهذه النتيجة بعد التنقل بين صفحات التقرير FahrasTest.accdb طبعا لا اعرف هل هذه النتيجة التي تريدها ام لا لكن الكود الذي وضعته انت يقوم بهذا عند معاينة التقرير والتنقل بين محتوياته