كيفية تغيير شكل hyperlink لتكست للتعديل به وكيفية طباعة computer name على التقارير عند الطباعه

[shabrawy]

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

تحيه لكل اعضاء المنتدي الكرام 

عندي استفسارين واتمني من خبراء الموقع الكرام ان يفيدوني 

اول استفسار 

انا قمت بعمل حقل والتنسيق الخاص بهذا الحقل هو Hyperlink ،، ووضعت في الخصائص لهذا الحقل في النموذج ان تكون ال Default Value بقيمه ثابته 000 بحث اغير انا القيمه دي حسب رغبتي .... يعني للتوضيح القيمه الثابته دي بتكون مثلا

"\\192.168.1.1\\D\pic\000.pdf"

بس للاسف بيظهر اللينك طويل فى الحقل ولازم ادخل على اللينك واعمل تعديل للقيمه الثابته دي ، فهل في طريقه لا تظهر شكل الحقل على هيئة هايبر لينك ولا يظهر الا الرقم اللى هغيره فقط، يعني لو غيرت ال 000 الى 999 يظهر رقم 999 فقط ولا يظهر اللينك بالكامل فى الحقل لكن في نفس الوقت القيمه تمت تغييرها باللينك وعند الضغط علي اللينك يفتح الملف حسب امتداده في اي برنامج سواء صوره او بي دي اف،

 اتمني اكون وضحت على قد ما قدرت  في هذه النقطه

 

تاني استفسار

عندي اكتر من تقرير في قاعدة البيانات ، عايز عند طباعة اي تقرير يظهر

computer name 

يظهر في اسفل الصفحه عند طباعة التقرير 

يعني لو اسم الكمبيوتر (احمد) يظهر عند الطباعه على الورق ( تمت الطباعه بواسطة احمد)  او printed by ahmed

يا ريت لو فى كود اكتبه في اسفل الصفحه او الطريقه المناسبه لعمل ذلك. 

اتمني اكون وضحت كفايه

واسف جدا جدا للاطاله 

وشكرا للجميع في كل الاحوال 

 

[shabrawy]

معقول مفيش حد عنده وقت يرد على سؤالي؟

عموما شكرا للجميع 

[صالح حمادي]

السلام عليكم

من أجل الحصول على اسم الكمبيوتر ضع هذا الكود في وحدة نمطية جديدة (منقول):

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

قم بإستدعائها في مربع النص من خلال هذا الكود:

=fOSUserName()

 

[shabrawy]

الف شكر وبعتذر على الرد متاخر لكن جزاك الله كل خير

اتمني حد يساعدني فى اول استفسار واكون شاكر جدا