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

[ysharthy 1]

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

[ysharthy 1]

: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

[hammamsana 136]

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

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

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

اخوك همام