الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعديل على كود طباعة طلاب محددين

بدأه السرااج في 26 يونيو 2014 · 3 رد · 449 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

 يوجد لدي برنامج طباعة جداول اختبارات الطلاب ولكن بعض الطلاب يفقد جدوله فاظطر إلى طباعة جداول لطلاب محددين من خلال القائمة بالتحديد عليهم .

 

ولكن الكود لم يعمل  ويعطي رسالة

 

ارجوا التعديل على الكود مع شرح التعديل ولوبسيط

 

البرنامج مرفق 

قاعدة بيانات1.rar

#2

للرفع 

#3

تفضل اخي هذا الكود :)

 

تم تصحيح سطرين في الكود:

Private Sub ÊÓãíÉ10_Click()
If Me.prent = 1 Then
DoCmd.OpenReport "استعلام3", acViewPreview, "", , acNormal
End If
If Me.prent.Value = 2 Then
Dim vItem As Variant
    Dim sWhere As String
    
    For Each vItem In zxc.ItemsSelected
        'sWhere = sWhere & "'" & zxc.ItemData(vItem) & "', "
        sWhere = sWhere & "raqm = '" & zxc.ItemData(vItem) & "' OR "
    Next vItem
    Debug.Print sWhere
    
    If Len(sWhere) > 0 Then
        'sWhere = "1.raqm IN (" & Strings.Left(sWhere, Len(sWhere) - 3) & "') "
        sWhere = Mid(sWhere, 1, Len(sWhere) - 4)
    Else
        MsgBox "ãä ÝÖáß¡ Þã ÈÇÎÊíÇÑ ØÇáÈ Ãæ ÃßËÑ ãä ÇáÞÇÆãÉ", vbExclamation, "ÈíÇäÇÊ äÇÞÕÉ"
    Exit Sub
    End If
    Debug.Print sWhere
    
    DoCmd.OpenReport "استعلام3", acViewPreview, "", sWhere
    For i = 0 To Me.zxc.ListCount - 1
          Me.zxc.Selected(i) = False
           Next i

End If
End Sub

نصيحة:

الجداول والنماذج والتقارير والاستعلامات واسماء الحقول فيها ، اجعل تسميتها تبدأ بالحروف ولا بأس في إضافة الرقم بين الحروف ، ولكن ابدا لا تجعلها تبدأ بالارقام.

 

جعفر

1
#4

بارك الله فيك 

مواضيع مشابهة