ysharthy

اظهار اسم الجهاز في التقرير

3 ردود في هذا الموضوع

مرحبا . . لدي مشروع اكسيس مربوط بالشبكة المحلية، كيف ممكن اخلي اسم الجهاز او المستخدم الي قام بالطباعة يظهر في التقرير؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

:angry: بداية اشكر المشرفين على هذا المنتدى لما ابدوه من حسن اشراف وتعاون في الرد على استفسارات الاعضاء.

موضوعي صار له اكثر من شهر ولم اتلقى اي رد عليه.

وبحمدلله وتوفيقه تمكنت من العثور على اجابتي في احدى المواقع الاجنبية، اما موقعكم فهو خاص بناس دون ناس مع فائق احترامي لكم ولمنتداكم.

ودمتم سالمين.

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

Declare Function api32_GetComputerName Lib "kernel32" Alias "GetComputerNameA" _

(ByVal lpBuffer As String, nSize As Long) As Long

Public Function smsGetComputerName() As String

On Error Resume Next

Dim strComputerName As String * 512

Dim lngBufLen As Long

Dim lngRet As Long

lngBufLen = 503

strComputerName = String(512, 0)

lngRet = api32_GetComputerName(strComputerName, lngBufLen)

If lngRet <> 0 Then

smsGetComputerName = Left(strComputerName, lngBufLen)

Else

smsGetComputerName = ""

End If

End Function

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الله يسامحك يا اخي

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

انا شخصيا بشكرك واعتذر ان كان في تقصير

اخوك همام

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .