دالة Dcount في حقل من نوع مذكرة

[ali2017]

السلام عليكم ورحمة الله وبركاته

السادة الكرام  خبراء الاكسيس

 

لدي عمود به اسماء المواد التي رسب فيها الطالب  في حقل من نوع (memo)

المطلوب    اريد عمل احصاء    لكل مادة   في استعلام جدولي

 

اليكم المرفق

count_.mdb

 

[kanory]

وعليكم السلام أخي @ali2017 هل هذا هوطلبك

 

Ka_count.mdb

[jjafferr]

وعليكم السلام

 

انزلت مرفق اخي 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

[kanory]

ما شاء الله تبارك الله اخي جعفر .... معلم

[new4access2018]

بارك الله فيكم  وجزاكم عنا كل خير

لقد وضعتم حل لاكثر مشكلة تعقيدا عندي

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

 

jjafferr           kanory