اظهار رسالة msgbox يكون فيها عدة سجلات array

[Osama Boshi]

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

اريد ان اظهر رسالة خطأ يكون فيها عدة سجلات Array

ارجو المساعدة

Dim rSEL, rSUM, rDes As DAO.Recordset
Dim vItem_id, vQnty, vSum As Integer
Dim vDes As String
If Not IsNull(itemId) And Not IsNull(qnty_in) Then
    If qnty_in <= 0 Or qnty_in > balance Or IsNull(balance) Then
        Cancel = True
    End If
    Set rSEL = CurrentDb.OpenRecordset("SELECT item_id,item_qnty FROM basketQnty_tbl WHERE basket_id=" & basketId)
    'Check to see if the recordset actually contains rows
    If Not (rSEL.EOF And rSEL.BOF) Then
    rSEL.MoveFirst
    Do Until rSEL.EOF
        'Save itemId into a variable
        vItem_id = rSEL!item_id
        vQnty = (rSEL!item_qnty) * qnty_in
        Set rSUM = CurrentDb.OpenRecordset("SELECT sum(qnty_in*qnty_type) as QN FROM sales_tbl WHERE itemid=" & vItem_id)
        Set rDes = CurrentDb.OpenRecordset("SELECT itemDesc FROM items_main WHERE itemId=" & vItem_id)
        vSum = rSUM!QN
        vDes = rDes!itemDesc
        'Move to the next record. Don't ever forget to do this.
        If vQnty > vSum Then
            MsgBox "لديك فقط ( " & vSum & " ) من مادة ( " & vDes & " ) في المستودع"
            Cancel = True
        End If
    rSEL.MoveNext
    Loop
    End If
   rSEL.Close
End If

 

ArrayQT.rar

[ابوخليل]

اخي الكريم

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

وسبب المشكلة في النموذج هو التحويل من 2010 الى اصدار 2003

تجربة : في المرات القادمة عندما تريد التحويل اتبع ما يلي

افتح قاعدة جديدة 2003 ثم اجلب اليها الكائنات اللازمة من قاعدة 2007 أو 2010

[Osama Boshi]

اشكرك اخي ابو خليل على الملاحظة

تم تعدبل قاعدة البيانات متل ما شرحت

Database2.rar

تم تعديل أبريل 11, 2013 بواسطه Osama Boshi

[Osama Boshi]

كيف يمكنني اظهار قيم الموجودة في المتغير vSum

عدة اسطر في msgbox واحد

بدلا من اظهار msgbox واحد تلو الآخر

[zahof]

كيف يمكنني اظهار قيم الموجودة في المتغير vSum

عدة اسطر في msgbox واحد

بدلا من اظهار msgbox واحد تلو الآخر

zahof.rar