اذهب الي المحتوي
أوفيسنا

طباعة تقرير من بحث


99عمرو

الردود الموصى بها

الاخوه الافاضل انا انشأت نموذج بحث لقاعدة بياناتى بحيث اكتب احمد بيقوم بتصفيه القاعده لكل اللى اسمهم احمد اريد طريقة طباعة تقرير بنتيجة البحث مثلا بحث بكل من اسمهم محمد ظهرت نتيجة البحث اريد ان اطبعها فى تقرير 

رابط هذا التعليق
شارك

السلام عليكم

اضافه الى ما تفضل به اخي العزيز صالح 

يمكن وضع القيمه التاليه بباراميتر اسم الفلتر بامر فتح التقرير

Me. Filter

المعذره انا اكتب من الموبايل لظروف السفر 

و ارجو ان تكون الفكره واضحه 

بالتوفيق للجميع

 

 

  • Like 2
رابط هذا التعليق
شارك

اعتذر عن التأخير 

الكود سيكون كالتالي

DoCmd.OpenReport "rpt1", acViewPreview, , Me.Filter

حيث أن rpt1 هو اسم التقرير 

 

مرفق مثال لتتضح لك الفكرة 

 

بالتوفيق للجميع

filterName.rar

تم تعديل بواسطه يوسف أحمد
  • Like 2
رابط هذا التعليق
شارك

اخى ًصالح حمادى اسف لاتعابك معى ولكن اريد ان اضيف علامة صح بجوار كل اسم  لاقوم بتحديد الاسماء التى سيتم طباعتها  

ما قد وصلت اليه 
Dim strCriteria As String
Dim varItemsSelected As Variant

    If Me.YourListBox.ItemsSelected.Count = 0 Then
        MsgBox "You must select at least one record."
        Exit Sub
    End If
   
    For Each varItemsSelected In Me.YourListBox.ItemsSelected
        strCriteria = strCriteria & "," & Me.YourListBox.ItemData(varItemsSelected)
    Next varItemsSelected

    strCriteria = Right(strCriteria, Len(strCriteria) - 1)

    DoCmd.OpenReport "YourReport", acViewPreview, , "YourID IN(" & strCriteria & ")"

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information