نجوم المشاركات

وعليكم السلام ضعي هذا الكود على زر: Dim strSQL As String Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer 'from https://stackoverflow.com/a/42239279 strSQL = "SELECT * FROM Table1 WHERE Not (Table1.image.FileData) Is Null;" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) If Not rst.BOF And Not rst.EOF Then rst.MoveFirst End If Do Until rst.EOF Set childrst = rst.Fields("image").Value childrst.MoveLast: childrst.MoveFirst RC = childrst.RecordCount For i = 1 To RC 'Debug.Print rst!ID & " > " & childrst.Fields("FileName") 'If childrst.Fields("FileName") = "11.jpg" Then childrst.Delete 'End If childrst.MoveNext Next i rst.MoveNext Loop . جعفر

=([Forms]![Form1]![txtPosition]+[Page])-1 Page Number.accdb

وعليكم السلام ورحمة الله وبركاتة بالنسبة للطلب الاول كان ل نفس السؤال ةاجابني عليه الاستاذ @jjafferr على الرابط التالي الطلب الثاني استخدم هذا السطر للتصدير لكن سيسألك عن مكان الحفظ DoCmd.OutputTo acOutputReport, "أسم التقرير ", acFormatPDF, , True, , , acExportQualityPrint ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

وعليكم السلام اخي حمدي مع اني اقرأ جميع اسئلتك ، ولكن لسبب ما ، لا اعرف الاجابة عليها السبب في حصولك على الخطأ هو عدم وجود قيمة للمتغير xMada (لاحظ ان نتيجتها False) ، فالاستعلام لا يحتوي على الحقل المطلوب ، فيظهر لك الخطأ: . وبعد عمل هذه التعديلات ، اتضح ان هناك اخطاء كثيرة في السطر: CurrentDb.Execute "UPDATE Ashgal SET " & xMada & "= '" & rstTeacher!المادة & " xFasl & " = " & rstTeacher!الفصل & " ' WHERE ((([اليوم])=" & randOFDays & "));" وعلشان اعرفها ، اضطررت ان افكك هذا السطر هكذا mySQL = "UPDATE Ashgal SET " & xMada mySQL = mySQL & " = '" & rstTeacher!المادة & "'" mySQL = mySQL & " ,Fasl" & nNumber & " = '" & rstTeacher!الفصل & "'" mySQL = mySQL & " WHERE [اليوم]=" & randOFDays Debug.Print mySQL CurrentDb.Execute (mySQL) 'DoCmd.RunSQL (mySQL) . وهذا السطر كان المعاون الاساسي لمعرفة المتغيرات Debug.Print mySQL انا لا ادري اذا كانت النتائج صحيحة ، ولكني اعرف بأن الاخطاء توقفت ، وانتهى الكود من العمل جعفر 930.‫‫تعديل.accdb.zip

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام الافاضل وقعت فى مشكلة كبيرة ولم اجد لها حل بعد محاولات كثيرة مضنية اسأل الله تعالى ان يجرى الحل على ايديكم ان شاء ويجعله فى موازين حسناتكم فى المثال المرفق اريد ضبط المعيار لكل من الاستعلامين الاول بحيث عند طلب المعيار وكتابة تاريخ محدد يفتح الاستعلام على هذا التاريخ فقط وفى حالة تجاهل المعيار وكتابة التاريخ يفتح الاستعلام على كل التواريخ وكذلك تمام فى الاستعلام الثانى ولكن فى الاستعلام الثانى بين تاريخين بداية ونهاية استخدمت الكود الاتى بهذة الاشكال ولكن لا يعمل على تاريخ محدد Like "*" & [chose date] & "*" وتارة اخرى بهذا التنسيق Like "*" & [chose date] & "#" ولكن دون جدوى فهل هناك حل جزاكم الله خيرا واعتذر للاطالة والاثقال على كاهلكم Like chose date or all date .mdb

شكرا اخى هذا المطلوب ده‌ستى ته‌ ساخبى برا خودا ته‌ بو مه‌ بهيليت

ارفق هنا نسخة مصغرة من قاعدة بياناتك او امسح مربعات النصية الغير لازمة في التقرير او اكتب شروط ان لا يكون المربع النص خالية لكي يظهر

ادعوا من الله سبحانه وتعالى ان يجعل لك في كل خطوه سلامة ويجعل هذا العمل في ميزان حسناتك .... كم ان رائع ومبدع أستاذ ali mohamed ali

اكتب هذا Like "*" & [chose date]

تفضل غياب MD-1.xlsm

تفضل ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم PDF FILE906.rar

وعليكم السلام ورحمة الله وبركاتة لو تتذكر كنت اخبرتك ان هذه الطريقة ستدخلك في متاهات كثير عموماً تفضل On Error Resume Next Fr = Null Fr = DLookup("مسلسل", "people", "مسلسل =" & text) On Error GoTo 0 If (IsNull(Me![Fr])) Then Me![ok] = False ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم __father_66-906.mdb

اتفضل Database8 (1).accdb

السادة أصحاب الإستفسارات فى المشاركات الأخبرة لو لا تزال لدبكم إستفسارات بخصوص إستخدام البرنامج أنا تحت أمركم و أنا استخدمه منذ عدة سنوات و بعمل معى بكفاءة جداً علماً بأنى إبتكرت طربقة بدوبة لتوزبع الملاحظبن فى جدول التوزبع بطربقة ممبزة و أترك البرنامج برحل الملاحظبن لجدول اللجان بالطربقة الآلبة فلو بربد أحد الإطلاع علبها أنا تحت الأمر ( اقتباس ) نريد الاطلاع على طريقتك المبتكره .. جزاك الله خيرا

يقولون لايفتى ومال في المدينة ما دام الاستاذ @jjafferr دخل على الموضوع فيجب علينا ان نصمت فكرتي عن الموضوع تتلخص بالتالي عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي نفس الحل الذي قدمه لك الاخ @AlwaZeeR وهو يعتمد نفس المبدأ الوقوف على كل سجل بالنموذج وبما ان هذه الطريقة لا تريدها دعنا نترك التعامل مع الحقل غير المنظم الموجود بالنموذج ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة لذلك سنقوم بعمل جدول مؤقت بأسم Table1_Temp ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود Private Sub cmd_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _ "FROM Table1_Temp;" DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _ " SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _ " FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _ " GROUP BY Table1.name11;" DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _ "= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];" Me.Refresh End Sub ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database88-906.rar

وعليكم السلام بدل هذا السطر Set rst = CurrentDb.OpenRecordset("Select * From Data") استعمل Set rst = CurrentDb.OpenRecordset("Select * From Data Order By [Name]") . جعفر

شاهد هذا الفيديو https://www.youtube.com/watch?v=ZufTYoeNqlY

جرب هذا التعديل ::بالتوفيق:: father_4.rar

جرب هذا التعديل ::بالتوفيق:: father_3.rar

وعليكم السلام ورحمة الله وبركاتة هل اتضح الآن الامر عموما ما هو المعرف الفريد الذي يربط الابن بالاب ؟ لكي يتم تحديث السجل عن طريقة ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة أن كنت تريد حل فتفضل هذا الحل وإن كنت تريد نصيحة فعد النظر في تصميمك للجداول اجعل للأبناء جدول خاص بهم وقم بربطه بجدول الاباء ::بالتوفيق:: father_2.rar