(تمت الاجابة) ادراج اسم المستخدم (برنامج صلاحيات) في التقرير عند الطباعة

[عبدالله المجرب]

السلام عليكم

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

http://www.officena.net/ib/index.php?showtopic=24909

وطلبي هنا كيفية ادراج اسم المستخدم في مربع نص(جديد - مضاف ) في التقرير قبل الطباعة

[ابوخليل]

ضع هذه السطر في الحدث المناسب

myfield = MyUser.UserName

غير myfield الى اسم الحقل لديك

[محمد ايمن]

http://www.officena.net/ib/index.php?showtopic=41865&hl=

[عبدالله المجرب]

السلام عليكم

الاستاذ الفاضل ابوخليل شكراً للرد

والمطلوب ان تكون قيمة حقل (غير منظم) في التقرير وليس الفورم مساوياً لاسم الدخول في الفورم frm-UserLogon

===

ما قمت به ويحتاج الى اكمال في جزئية التقرير

1. في الوحدة النمطية Defs اضفت هذا السطر

Public Ab As String

لتصبح

Option Compare Database

Public MyUser As New CUser

Public Ab As String

Option Explicit

2. في حدث النقر على زر دخول في الفورم frm-UserLogon اضفت هذا السطر في بداية الكود

Ab = user

ما اريده ان اجعل قيمة مربع النص (غير منضم - غير مقترن) في التقرير الذي سيطبع يساوي Ab

==========

شكراً اخي ممحمد على مرورك

[محمد ايمن]

استاذ عبد الله تحية طيبة و بعد

اذا كنت احسنت الفهم عنك

في حدث فتح التقرير ضع هذا الكود

me.aa=ab

حيث aa هو اسم الحقل الذي تريده في التقرير

[ابوخليل]

ابو احمد سلمك الله

ضع هذه السطر في الحدث المناسب

وهذا هو في المثال

الاسم zz أو xx والباسوورد = 1

user.rar

[عبدالله المجرب]

بارك الله فيك استاذ ابو خليك

كانت غائبة عني حدث التقرير ولم انتبه الا في المرفق

شكراً جزيلاً لك

[عبدالله المجرب]

السلام عليكم

تمت الاجابة بفضل الله ثم بمساعدة الاستاذ ابوخليل حفظه الله

===

للفائدة

1. في الوحدة النمطية Defs اضفت هذا السطر

Public Ab As String

لتصبح

Option Compare Database

Public MyUser As New CUser

Public Ab As String

Option Explicit

2. في حدث تذييل التقرير

MyTxt= Ab

حيث MyTxt هو اسم مربع النص في التقرير

[ابوخليل]

تمام .. عملك هذا عام يصلح لكل برنامج يشتمل على نموذج دخول

اما اجابتي فتخص برنامج الاستاذ مهند