Eng.Qassim

عن اذن استاذي @kkhalifa1960 هل هذا ماتريد debit.rar

اعتقد هذا الموضوع يفيدك..وفيه ملف جاهز

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

وعليكم السلام .. جرب المرفق Students.rar

اذا اردت الحفاظ على الترقيم التلقائي..اعمل نص غير منظم في النموذج ..من خلال زر الحفظ سيتم البحث عن نفس الاسم او الرقم للطالب في الجدول..فاذا كان مكررا فلن يتم الحفظ ولن يكون هناك ترقيم تلقائي جديد.....استخدم الكود التالي في زر الحفظ Private Sub btnSave_Click() Dim strStudentName As String strStudentName = Me.txtStudent.Value ' معرفة اذا كان اسم الطالب موجود مسبقا If Not IsNull(DLookup("studentName", "tblStudentDetails", "studentName='" & strStudentName & "'")) Then MsgBox "اسم الطالب موجود مسبقا", vbInformation, " تكرار" Me.txtStudent.SetFocus Me.txtStudent.Text = "" Exit Sub Else CurrentDb.Execute "INSERT INTO tblStudentDetails (studentName) VALUES ('" & strStudentName & "')" MsgBox "تم التسجيل بنجاح.", vbInformation, "تسجيل" Me.txtStudent.SetFocus Me.txtStudent.Text = "" End If End Sub

لا يوجد خطأ

وعليكم السلام استخدام الترقيم التلقائي خاص لل access فقط. وهو غير قابل للتعديل الا في حالة الضغط والاصلاح يجب عليك استخدام حقل رقم إذا كنت تريد الاحتفاظ بالتسلسل.وتكون القيمة الافتراضية : =DMax("[strStudentNumber]","tblStudentDetails")+1

جرب بعض الدرجات للتأكد pass.rar

وعليكم السلام استاذ صالح.. بصراحة الموضوع جديد علي..لم اسمع بهذه المشكلة سابقا...قرأت المقال التالي لعله يفيدك في بعض جوانبه https://www.accessrepairnrecovery.com/blog/access-database-table-recovery

انظر للخطوات في الصورة.. 1- تختار تجميع حسب الاسم 2- تضغط على (nam footer) 3-من التنسيقات تختار force new page=After section

هذه ممتازة لانه لم يأخذ الاسم الاخير حينما لايكون هناك نشاط

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

هل لديك حقل مفهرس يأخذ اكثر من 3450 حرفا؟

وعليكم السلام استاذ محمد.. في رأيي..افضل طريقة بوضع شارطة قبل التسمية التي تريد كمثال ..محمد احمد/ مقاولات ...محمد احمد/ مقاولات عامة ثم تستخدم الموديول التالي ..وتستدعيه من الاستعلام .. Public Function splitword(myNamX As String) As String Dim exampleString As String Dim exampleArray() As String exampleString = myNamX exampleArray = Split(exampleString, "/") splitword = exampleArray(1) End Function

لا اقصد ترفع كل الملف..اعمل ملف جديد..واستورد من الملف الاصلي فقط النموذج والجدول الذي يخص تلك الجزئية

وعليكم السلام .. ليس هذا السبب فقط ..اذا انتبهت للرسالة .. ال integer لايتحمل ارقام حسابية كبيرة ..راجع حجم البيانات التي يأخذها ولهذا استخدم Double OR long

ممكن تبعث الملف اللي فيه شغلك؟

طيب شوف المحاولة هذه ..الحقيقة عملت تقرير تجميع بالاسماء وبعدها عملت تقرير لكل صلاحية .. طبعا حتشوف لما يفتح التقرير ان chkbox فارغ ل3 صلاحيات لان لايمكن تغييره عند فتح التقرير يمكن تنزيل جميعهم في التقرير ونعملهم مخفيات t11(1).rar

الكلمات العربية بتلخبط الكود ..بعدين ما اعرف رأسه من رجليه

وعليكم السلام.. لم افهم ماذا تقصد بكل صلاحية تقرير..هل تقصد كل اسم تقرير منفصل ؟

تفضل اخي @ابن فلسطيـن said.rar

اهلا ومرحبا بك اخي @ابن فلسطيـن طيب انت برنامجك الاولي ممتاز ويشتغل على الباركود

تفضل Gestion.rar

وعليكم السلام .. في الوقت الحاضر ليس لدي غير علاج الكي ...وهو كثرة الاستعلامات ..بعدد المواد ان سنحت لي فرصة اعمل لك موديل لتمرير قيم المواد ...لكن مشي حالك بهذا الحل في الوقت الحاضر قابل للرفع.rar

وعليكم السلام .. السبب ..انك لم تضع تاريخ الميلاد لكي يقرأه الكود Gestion.rar