اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اخفاء الحقول الفارغه في تقرير يتم فتحه من نموذج


elghoultk

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

السلام عليكم

عندي نموذج فيه 5 بيانات لكل عميل اريد عمل تقرير يعرض فقط الحقول التي فيها بيانات للعميل الموجود في النموذج ويتم اخفاء باقي البيانات وما تشمله من وحده

مرفق الملف المطلوب تعديله

وشكرا مقدما

 

 

 

Database1.zip

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

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

مرحبا اخي الكريم

تسمية الحقول 1 ، 2 ، 3 ... الخ خطأ ويُحدث تعارض ومشاكل في الاكواد

قمت باعادة التسمية A ، B ، C

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    If IsNull(Me.a) Then
        a.Visible = False
    End If
    
    If IsNull(Me.B) Then
        B.Visible = False
    End If
    
    If IsNull(Me.C) Then
        C.Visible = False
    End If
    
    If IsNull(Me.D) Then
        D.Visible = False
    End If
    
    If IsNull(Me.E) Then
        E.Visible = False
    End If
    
End Sub

Database1.zip

تحياتي

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

اخى العزيز \ محمد أبوعبدالله

اشكرك علي اهتمامك ومرورك الكريم

الكود الذي ادخلته يعمل علي الحقول

A  B  C 

فقط بينما الحقول

D  E

تختفي دائما

السؤال الثاني : اريد ان اخفي ايضا الليبل التابع للحقوب الموجوده في التقرير

كذلك عندما نخفي حقل من اعلي اود ان يرتفع الحقل الاسفل مكانه

 

اسف للاطاله وجزاك الله خيرا

مرفق الملف

Database1.accdb

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

4 دقائق مضت, elghoultk said:

فقط بينما الحقول

D  E

تختفي دائما

يعمل مع جميع الحقول بدون مشاكل ان شاء الله وتم اخفاء الحقول التي ليس بها بيانات

5 دقائق مضت, elghoultk said:

السؤال الثاني : اريد ان اخفي ايضا الليبل التابع للحقوب الموجوده في التقرير

تم

راجع المرفق بارك الله فيك

Database1.zip

تخياتي

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

الغالي محمد أبوعبدالله

عند اخفاء الحقل الاول والليبل التابع له يظل مكانه فارغا

اريد ان يرتفع الحقل الاسفل منه ليحل مكانه لتختفي الفراغات

 

كذلك عند اللانتقال من النموذج الي التقرير اريد ان يفتح التقرير علي نفس السجل كنوع من عوامل التصفيه

 

جعل الله مساعدتك في ميزان حسناتك

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

منذ ساعه, elghoultk said:

كذلك عند اللانتقال من النموذج الي التقرير اريد ان يفتح التقرير علي نفس السجل كنوع من عوامل التصفيه

استبدل السطر التالي

DoCmd.OpenReport "rpt", acViewPreview

بهذا

DoCmd.OpenReport "rpt", acViewPreview, , "ID = " & ID

======================================

منذ ساعه, elghoultk said:

عند اخفاء الحقل الاول والليبل التابع له يظل مكانه فارغا

اريد ان يرتفع الحقل الاسفل منه ليحل مكانه لتختفي الفراغات

ارجو ان يكون لدى الاخوة حل لهذا

تحياتي

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

 

41 دقائق مضت, محمد أبوعبدالله said:

ارجو ان يكون لدى الاخوة حل لهذا

ممكن تغيير ارتفاع الحقل الى صفر 🙂

 

في حدث "عند تنسيق" التقرير :

image.png.be60f08afac3c37a1e814e268849ec7f.png

.

نأخذ لفة في كائنات التقرير ، والحقل اللي رقمه "كما هو في النموذج" 1 و 2 و 3 و 4 و 5 ، يا اننا نظهرهم بارتفاع الحقل العادي ، او نخفيهم ويكون ارتفاع الحقل صفر ، حسب قيمتهم :

 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Dim ctl As Control
    Dim i As Integer
    Dim myFields As String
    
    myFields = "1,2,3,4,5"
    
    For Each ctl In Me.Controls
        
        ' only a textbox, and our fields names
        If ctl.ControlType = acTextBox And InStr(myFields, ctl.name) > 0 Then
        
            If Len(ctl.Value & "") > 0 Then
                ctl.Visible = True
                ctl.Height = 1440 * 0.25
                
            Else
                ctl.Visible = False
                ctl.Height = 0
            End If
        
        End If  'ctl.type
        
    Next

End Sub

.

والنتيجة للسجل الثاني:

image.png.597e957a1db8df84f11c23aff915fe55.png

.

جعفر

1265.Database1.accdb.zip

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

1 دقيقه مضت, jjafferr said:

شوف المرفق في مشاركتي السابقة 🙂

نعم هو نفس المرفق مع تعديل البيانات

1265.Database1.accdb.zip

تحياتي

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

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

 

السبب هو المسافات الرأسية ، فوق وتحت كل من هذه الحقول :

image.png.122f66033f0c83494334527af4e1f333.png

.

فاذا غيّرنا والغينا المسافة العمودية بين الحقول هذه :

image.png.476a173d51aad7caa77452cffc169b44.png

.

النتيجة ستكون:

image.png.8a406e5f70d69b7549ed61343a9e6f9b.png

.

جعفر

1265.Database1.accdb.zip

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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