ali2017 قام بنشر يونيو 26, 2018 مشاركة قام بنشر يونيو 26, 2018 السلام عليكم ورحمة الله وبركاته السادة الكرام خبراء الاكسيس لدي عمود به اسماء المواد التي رسب فيها الطالب في حقل من نوع (memo) المطلوب اريد عمل احصاء لكل مادة في استعلام جدولي اليكم المرفق count_.mdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 27, 2018 مشاركة قام بنشر يونيو 27, 2018 وعليكم السلام أخي @ali2017 هل هذا هوطلبك Ka_count.mdb 2 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 27, 2018 مشاركة قام بنشر يونيو 27, 2018 وعليكم السلام انزلت مرفق اخي kanory مما شجعني على الرد ، بنفس طريقته تقريبا ، ولكن بكود مختلف ومختزل Private Sub cmd_Go_Click() Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer Dim j As Integer Dim x() As String Set db = CurrentDb db.Execute ("Delete * From tbl_temp") Set rst2 = db.OpenRecordset("Select * From tbl_temp") Set rst = db.OpenRecordset("Select * From Table1 Where [mawad] is not null") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC x = Split(rst!mawad, "/") For j = LBound(x) To UBound(x) rst2.AddNew rst2!mawad = x(j) rst2.Update Next j rst.MoveNext Next i rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing db.Close DoCmd.OpenQuery "qry_Statistics" End Sub جعفر 932.count_.mdb.zip 4 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 ما شاء الله تبارك الله اخي جعفر .... معلم رابط هذا التعليق شارك More sharing options...
new4access2018 قام بنشر يونيو 28, 2018 مشاركة قام بنشر يونيو 28, 2018 بارك الله فيكم وجزاكم عنا كل خير لقد وضعتم حل لاكثر مشكلة تعقيدا عندي انا صاحب الموضوع ولكن تعذر علي الدخول من جهاز اخر فقمت بعمل حساب جديد عاجز عن شكركم jjafferr kanory رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.