Shivan Rekany

تم اضافة هذا السطر في بداية الكود If DCount("*", "Table1") = DMax("[id]", "table1") Then MsgBox "الترقيم تلقائي في جدول1 مضبوطة وليس في اي نواقص": Exit Sub اليك الملف بعد اضافة test2.rar

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

بلی ممكن ، تقدر تستخدم دالة DCount و DMax اذا عدد سجلات بيكون يساوي مع رقم الکبیر في الجدول هو يعني الترقيم ليس فيها نواقص واذا غير متساويين هناك بيعمل كود وسيتم ترقيم جديد

اظن ان هناك خطا في ادخال قم بحذف كل البيانات وبعدين قم بادخالها من جديد وشوف النتيجة اليك قاعدة بعد تنظيف و تعبئة من جديد تاريخ الواصل (1).rar

هل جربت هذا Docmd.Open Docmd.OpenReport "NameForReport", acViewReport

اكمال الشرح مع استاذ ابو عبدالله كما تفضل الاستاذ عندك في القاعدة جدول باسم Temp3 وبها عدد من الحقول و اسماءها F1 , F2 ,F3,F4,F5,F6,F7,F8,F9 >>> الى اخره هنا يقول الكود اذا حقل اللي اسمه F مع قيمة fld_Number وهو 3 زائد 16 اي يعني اللي اسمه F19 بيكون رقم يعمل الاتي sID = حرف F مع 3 زائد 16 اي يعني F19 sName = حرف F مع 3 زائد 12 اي يعني F15 وهكذا اي يعني قيمة fld_Number هو 3 مع زيادة رقم المكتوب معه بيساوي اسم الحقل المطلوب للعلم في رابط مشاركتك الاعلى انا قمت بتعديل الكود و كتبت في نهاية اسطر اسم الحقل تقبل تحياتي

اتفضل اليك هذا مع هذا مع القاعدة test.accdb

انا استخدم اوفيس 2010 ويعمل عندي بالتمام ليس فيها اي مشكلة تحياتي

تم تم حذف مساحات اسفل PageBreak تم اليك ملف بعد تعديل تقرير.accdb

اليك هذا استعلام حسب طلبيتك SELECT tblA.IDA, tblA.ASM, Nz(DLast("[tblB]![TAREK]","tblB","[tblB]![rbtt]=" & [IDA] & "and [tblB]![OASL]>" & 0),"لم يدفع بعد") AS TAREK, Nz(DLast("[tblB]![OASL]","tblB","[tblB]![rbtt]=" & [IDA] & "And [tblB]![OASL] >0"),0) AS OASL, Nz(DSum(" [tblB]![SAR] ","tblB","[tblB]![RBTT]=" & [IDA]),0)-Nz(DSum(" [tblB]![OASL] ","tblB","[tblB]![RBTT]=" & [IDA]),0) AS baqi FROM tblA INNER JOIN tblB ON tblA.IDA = tblB.RBTT GROUP BY tblA.IDA, tblA.ASM; تاريخ الواصل.rar

اتفضل اليك تعديل اخر الان تعمل مع اربع ملفات اكسل تم تم Fayz.rar

هناك في احدی الملفين اكسل مخصصة لمادة القران الكريم۱ وبها ۲ شیت لكن هناك اختلاف في ترتيب عمود الدروس في الشیتین لذلك حسب ذاك الملف اكسل انا عملت تعديل علی الكود لذلك انا اتوقع سيظهر لك مشكلة حين تطبیق علی ملفات اخری لذا يجب علیك ان تعمل ترتيب الاعمدة للدروس في كل شيت لكي نعمل لك تعديل اخر حسب ملفاتك تحياتي

القي نظرتا الی المرفق Fayz.rar

اعمل نسخة مصغرة من القاعدة وارفقه

ممکن تعطينا نسخة مصغرة منه ، علی رغم من عدم ظهور هذه المشكلة امامي من قبل لكن نريد ان نشوفه

ھل ھذا هو ما تبحث عنه

اھلا بک فی منتداک اذا تقدر ان ترفع نسخة مصغرة من قاعدة بياناتك سيسهل على رفقائك في المنتدى لكي يساعدك حسب فهمي لسؤالك اكتب كود الطباعة ثمانية مرات كل مرة باسم تقرير خاص تبعك لكن لا تنسى ان تعطيه شرط ريكورد لكي لا تطبع كل صفحات هذا كود طباعة DoCmd.OpenReport "Rep1", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep2", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep3", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep4", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep5", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep6", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep7", acViewNormal, , "[id]=" & Me.ID DoCmd.OpenReport "Rep8", acViewNormal, , "[id]=" & Me.ID

اهلا بك اتفضل الیك قاعدة بها كود للاستاذ جعفر وقمت بتغییز بسیط لكي يتناسب مع حاجتك اليك قاعدة بها مثال Tarix.accdb

واسعد الله اوقاتك بنسبة لي طلبيتك غير واضحة ... ممكن توضيح اكثر عن ماتريد

وعليكم السلام ورحمة الله وبركاته اتفضل اليك هذا Option Compare Database Function RiaziyatTxtToNum(SText) ' By Shivan Rekany Dim i, ii As Integer Dim Elamat Dim Encam As Double Dim sERCEM As Double Dim JimaaZuF As Integer For ii = 1 To Len(SText) If Mid(SText, ii, 1) = "+" Or Mid(SText, ii, 1) = "*" Or Mid(SText, ii, 1) = "/" Or Mid(SText, ii, 1) = "-" Then JimaaZuF = JimaaZuF + 1 End If Next ii Dim LString As String Dim LArray() As String LString = Replace(Replace(Replace(SText, "+", "*"), "-", "*"), "/", "*") LArray = Split(LString, "*", Val(JimaaZuF + 1)) For ii = 1 To Len(SText) If Mid(SText, ii, 1) = "+" Or Mid(SText, ii, 1) = "*" Or Mid(SText, ii, 1) = "/" Or Mid(SText, ii, 1) = "-" Then Elamat = Elamat & Mid(SText, ii, 1) Next ii Encam = Val(LArray(0)) For i = 1 To Len(Elamat) If Mid(Elamat, i, 1) = "+" Then Encam = Encam + Val(LArray(i)) ElseIf Mid(Elamat, i, 1) = "*" Then Encam = Encam * Val(LArray(i)) ElseIf Mid(Elamat, i, 1) = "/" Then Encam = Encam / Val(LArray(i)) ElseIf Mid(Elamat, i, 1) = "-" Then Encam = Encam - Val(LArray(i)) End If Next i RiaziyatTxtToNum = Trim(Encam) Form_TBL1.sERCEM = RiaziyatTxtToNum End Function واليك ملف تم تطبيق عليه Database2.accdb

هناك بعض اختلافات بين القاعدتين للك يظهر لك المشكلة اولا : كل الحقول المطلوبة لعمل فلتر في قاعدة الاولى من نوع نصي لكن في قاعدة بياناتك هم بنوع رقمي لذلك يجب ان تغير في الكود اي فقط يجب عليك ان تغير الكود من هذا Me.Filter = "[stage]='" & Me.a & "'" الى هذا Me.Filter = "[stage]=" & Me.a اي يجب ان تحذف هذه العلامة ( ' ) مع ( & "'" ) ثانيا : في النموذج بها حقل باسم stage ومصدره هذه الجملة المتكونة من عمودين SELECT [tswstage].[ID], [tswstage].[tswstage] FROM tswstage; لكن مصدر كومبوبوكس a مصدره متكونة من عمود واحد وهو SELECT DISTINCT tswstage.tswstage FROM tswstage; عندما تريد ان تعمل فلتر ما بيعمل لك شيء لان عمود الاول من الحقل بها ارقام ID وليس هناك شيء متساوي بين حقل ID و كومبوبوكس البحث بها اسماء الصفوف اي يجب ان يكون مصدرهما نفس الشي لذلك قمنا بتغير مصر كومبوبوكس و اعطينا رقم 2 اي عمودين في الخصائصه و قمنا باخفاء الحقل الاول ID باعطاء رقم صفر كمساحة عمود ونفس الشيء للحقلين الاخرين قمنا بتعديله القي نظرتا اليه تفضل اليك قاعدة بعد تعديل flterrr.accdb

انا ما فهمت من استعلامك ماذا تريد منه لذلك انا عملت لك تقرير جديد واضفت اليه هذا الكود عند فتحه Private Sub Report_Open(Cancel As Integer) On Error Resume Next Me.Filter = Form_form2.Filter Me.FilterOn = True End Sub اليك ملفك بعد اضافة Database1.rar

اتفضل حسب فهمي لطلبك استخدمت هذه الاكواد Public Sub a_AfterUpdate() If Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then Me.Filter = "[Safe]='" & Me.a & "'" Me.FilterOn = True ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'" Me.FilterOn = True ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'" Me.FilterOn = True ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then Me.Filter = "[Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'" Me.FilterOn = True ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then Me.Filter = "[Class]='" & Me.C & "'" Me.FilterOn = True ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then Me.Filter = "[Safe]='" & Me.a & "'" & "and [Class]='" & Me.C & "'" Me.FilterOn = True ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then Me.Filter = "[Sub]='" & Me.b & "'" Me.FilterOn = True ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then Me.Filter = "" Me.FilterOn = False End If End Sub Private Sub b_AfterUpdate() Call a_AfterUpdate End Sub Private Sub BtnCancelFilter_Click() Me.a = "": Me.b = "": Me.C = "": Me.Filter = "": Me.FilterOn = False End Sub Private Sub C_AfterUpdate() Call a_AfterUpdate End Sub اليك ملفك بعد اضافة Database1.rar

اتفضل اليك ما طلبت القي نظرتا الى الصورة واليك المرفق بعد تعديل تقسيم الاسم الرباعي.mdb شفان

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