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

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

قام بنشر

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

تمنياتي لحضرتكم جميعا ان تكونوا في احسن حال

في المرفق نموذج يسجل به شهادات للتعرف على موعد انتهائها

في التقرير 

Document 1

المطلوب عند الاشاره في النموذج بعلامة صح  في خانه

manual 1 , manual 2 , manual 3 , manual 4 , manual 5 , manual 6 

لا يظهرها التقرير Document1 

ويظهر باقي البيانات فقط يخفي ولا يظهر البيانات المقابله لها 

بمعنى

عند الاشاره بصح عند annual 1 

 يخفي في التقرير 

rang1 & rang2 & based1

 

عند الاشاره بصح عند annual 2

 يخفي في التقرير 

rang3 & rang4 & based2

عند الاشاره بصح عند annual 3

 يخفي في التقرير 

rang5 & rang6 & based3

عند الاشاره بصح عند annual 4

 يخفي في التقرير 

rang7 & rang8 & based4

عند الاشاره بصح عند annual 5

 يخفي في التقرير 

rang9 & rang10 & based5

عند الاشاره بصح عند annual 6

 يخفي في التقرير 

rang11 & rang12 & till

 

اتمنى من الله ان اجل ضالتي بين خبراتكم شكرا

 

Certificates.rarFetching info...

قام بنشر

نزل الجداول مع قاعدة البيانات

لكي يتم عمل استعلام ووضع المعايير عليه

والاستعلام لا يمكن عمله من نموذج

لا بد من وجود جدول

حتى لو قمت بعمله داخل التقرير فلا بد من وجود الجداول

  • Thanks 1
قام بنشر

شكرا يا أ عبد اللطيف على ردك 

بس اعئرني انا لسه في البدايات 

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

 

  • Like 1
قام بنشر
  في 23‏/12‏/2019 at 13:45, mohamed elalfy said:

شكرا يا أ عبد اللطيف على ردك 

بس اعئرني انا لسه في البدايات 

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

 

Expand  

قصدي اخي الكريم نزل قاعدة البيانات كاملة

ولا يوجد شيء مستحيل

نحتاج الى الجداول وانت اقتطعت الجداول من القاعدة

فلا نستطيع عمل استعلام بدون جداول

  • Like 1
  • Thanks 1
قام بنشر

السلام عليكم 🙂

 

استعمل هذا الكود في التقرير Documents1 :


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

'1
    If Me.annaul_1 = -1 Then
        Me.annaul_1.Visible = False: Me.based1.Visible = False: Me.rang1.Visible = False: Me.rang2.Visible = False
    Else
        Me.annaul_1.Visible = True: Me.based1.Visible = True: Me.rang1.Visible = True: Me.rang2.Visible = True
    End If
    
'2
    If Me.annaul_2 = -1 Then
        Me.annaul_2.Visible = False: Me.based2.Visible = False: Me.rang3.Visible = False: Me.rang4.Visible = False
    Else
        Me.annaul_2.Visible = True: Me.based2.Visible = True: Me.rang3.Visible = True: Me.rang4.Visible = True
    End If
    
'3
    If Me.annual_3 = -1 Then
        Me.annual_3.Visible = False: Me.based3.Visible = False: Me.rang5.Visible = False: Me.rang6.Visible = False
    Else
        Me.annual_3.Visible = True: Me.based3.Visible = True: Me.rang5.Visible = True: Me.rang6.Visible = True
    End If
    
'4
    If Me.annual_4 = -1 Then
        Me.annual_4.Visible = False: Me.based4.Visible = False: Me.rang7.Visible = False: Me.rang8.Visible = False
    Else
        Me.annual_4.Visible = True: Me.based4.Visible = True: Me.rang7.Visible = True: Me.rang8.Visible = True
    End If
    
'5
    If Me.annual_5 = -1 Then
        Me.annual_5.Visible = False: Me.based5.Visible = False: Me.rang9.Visible = False: Me.rang10.Visible = False
    Else
        Me.annual_5.Visible = True: Me.based5.Visible = True: Me.rang9.Visible = True: Me.rang10.Visible = True
    End If
    
'6
    If Me.annual_6 = -1 Then
        Me.annual_6.Visible = False: Me.till.Visible = False: Me.rang11.Visible = False: Me.rang12.Visible = False
    Else
        Me.annual_6.Visible = True: Me.till.Visible = True: Me.rang11.Visible = True: Me.rang12.Visible = True
    End If
     
End Sub

.

كما ان الاستعلام مصدر بيانات التقرير يجب ان يُصبح:

image.png.8b06f992bf799cd74fe1027512242ffa.png

.

فيصبح التقرير:

image.thumb.png.754c82abd94d9d68eb1676cf0a166722.png

.

 

جعفر

1159.Certificates.accdb.zipFetching info...

  • Like 1
  • Thanks 1
قام بنشر

استاذنا جعفر 

الليه ينور على حضرتك ما شاء الله تبارك الله ربنا يجعل دعواتنا في ميزان حسناتك

والله اللسان يعجز عن الشكر 

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

ويسدد خطاك دايما 

الف مليون شكر 

  • Like 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