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

: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

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

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

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

اخوك همام