Eng.Qassim

يا اخي ..الله هداك ..انت تعطينا بالقطارة ضع الكود التالي: Private Sub VerCcp_Click() DoCmd.OpenForm "FrmVerment", acNormal Forms![FrmVerment]![FrmVerment_Sub]![TheValueCcp ] = Me![loan_other] Forms![FrmVerment]![FrmVerment_Sub]![TxtMonth] = Me![Auto_Date] End Sub وفي النموذج الفرعي FrmVerment_Sub.. في حدث عند التحميل تضع Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub

اذا كان النموذجين في نموذج رئيسي واحد اسمه مثلا frmMain ضع الكود التالي عند الضغط على VerCcp Private Sub VerCcp_Click() If Me.VerCcp = True Then Forms![frmMain]![FrmVerment_Sub].SetFocus DoCmd.GoToRecord , , acNewRec Forms![frmMain]![FrmVerment_Sub]!loan_other = Me.loan_other Forms![frmMain]![FrmVerment_Sub]!Auto_Date = Me.Auto_Date Else End If End Sub

بعد اذن استاذي @kkhalifa1960 لماذا لا تضيفه مباشرة من مربع التحرير الخاص بالبحث..ان كان لديك مربع تحرير ..استخدم الكود التالي Private Sub cboNumber_NotInList(NewData As String, Response As Integer) Dim strTmp As String strTmp = "Add '" & NewData & "' as a new EmpNumber?" If MsgBox(" هذا الرقم لم يتم تسجيله", vbCritical + vbYesNo, "تنبيه") = vbYes Then strTmp = "INSERT INTO Employee ( EmpNumber ) " & _ "SELECT """ & NewData & """ AS EmpNumber;" DBEngine(0)(0).Execute strTmp, dbFailOnError Response = 0 Me.cboNumber = "" Me.Requery Else Response = 0 Me.cboNumber = "" End If End Sub ولاتنسى.. limit to list=yes

عن اذن استاذي @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

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