السلام عليكم ورحمة الله
لدي برنامج على الآكسس ومرتبط بالشبكة ، وطرت علي فكرة وهي هل بالإمكان معرفة اسم اليوزر في مربع نص أو حقل على النموذج بمعنى أوضح : البرنامج موزع لدى الموظفين في الشبكة وأنا المتحكم في البرنامج الرئيسي وأريد إضافة مربع نص أو حقل بحيث إذا تم تعبئة البيانات من الموظف يظهر إسمه في المربع . والمقصد من ذلك هو تصديق لإضافة بياناته بدلا من التوقيع .
هي فكرة فقط . ولكن لا تصعب على العباقرة أمثالكم .
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
سوف نستخدم هذا الكود الخاص بإظهار اسم المستخدم على الشبكة
Private Sub CmdShowUserName_Click()
Me.txtUser = Environ("UserName")
Me.Requery
End Subبالتوفيق
zoom10 كتب:السلام عليكم ورحمة الله
لدي برنامج على الآكسس ومرتبط بالشبكة ، وطرت علي فكرة وهي هل بالإمكان معرفة اسم اليوزر في مربع نص أو حقل على النموذج بمعنى أوضح : البرنامج موزع لدى الموظفين في الشبكة وأنا المتحكم في البرنامج الرئيسي وأريد إضافة مربع نص أو حقل بحيث إذا تم تعبئة البيانات من الموظف يظهر إسمه في المربع . والمقصد من ذلك هو تصديق لإضافة بياناته بدلا من التوقيع .
هي فكرة فقط . ولكن لا تصعب على العباقرة أمثالكم .
وعليكم السلام ورحمة الله وبركاته
لمعرفة اسم الجهاز
Dim dwLen As Long Dim strString As String 'Create a buffer dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String(dwLen, "X") 'Get the computer name GetComputerName strString, dwLen 'get only the actual data strString = Left(strString, dwLen) 'Show the computer name text1 = strString 'MsgBox strString
text1 = اسم الجهاز
لمعرفة يوزر الويندو للمستخدم
Dim N Dim UserN As String UserN = Space(15) N = GetUserName(UserN, 15) text1 = UserN
text1 = اسم اليوزر
لمعرفة اليوزر اذا أنت مسوي صلاحيات من معالج الأمان على مستوى المستخدم باستخدام الملف .mdw
text1 = CurrentUser()
text1 = اسم اليوزر
أعتذر منك أستاذتي زهرة فلم ألاحظ أجابتك وعلى كل حال بارك الله بجهودك ووففقك الله الى كل خير
وبالتوفيق
تم تعديل هذه المشاركة بواسطة adnan94 في 27 مايو 2012 في 20:08
بارك الله فيكي استاذة زهرة وشكرا لكي .
والشكر موصول للأخ عدنان .
آسف على تأخري في الرد لوفاة والدي رحمة الله عليه بعد مرض ألم به .
دعواتكم له ولأموات المسلمين .
zoom10 كتب:بارك الله فيكي استاذة زهرة وشكرا لكي .
والشكر موصول للأخ عدنان .
آسف على تأخري في الرد لوفاة والدي رحمة الله عليه بعد مرض ألم به .
دعواتكم له ولأموات المسلمين .
لا حول ولا قوة إلا بالله .. أحسن الله عزائكم وعظم الله أجركم ورحم الله والدك.. وجعل قبره روضة من رياض الجنة ...
أحر التعازي نقدمها لك أخي الكريم ولجميع العائلة الكريمة .. وإنا لله وإنا إليه راجعون ..
zoom10 كتب:بارك الله فيكي استاذة زهرة وشكرا لكي .
والشكر موصول للأخ عدنان .
آسف على تأخري في الرد لوفاة والدي رحمة الله عليه بعد مرض ألم به .
دعواتكم له ولأموات المسلمين .
اخي الكريم
أحسن الله عزائكم وعظم الله أجركم ورحم الله والدك.. وجعل قبره روضة من رياض الجنة ...
أحر التعازي نقدمها لك ولجميع العائلة الكريمة .. وإنا لله وإنا إليه راجعون ..
بالتوفيق
عظم الله اجرك وتقبله الله فيمن عنده من الصالحين
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
عظم الله اجركم
بارك الله في الاخت زهرة والاخ عدنان ....
كل احترام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
السلام عليكم
أكرر شكري للجميع وآسف على إعادة الرد على هذا الموضوع ولكن لأهميته لدي ولحاجتي للحل .
أشكرك أخت زهره على ردك ولكن الذي أريده هو أنني أملك برنامج على الشبكة شبيه بمتابعة المعاملات وهناك معاملات أقوم بإرسالها لمنسوبي الشبكة ومن ثم يقومون هم بالرد عليها وإرسالها لي ، وكل ما أريده هو عندما يقومون بالرد يظهر لدي إسم مستخدم الجهاز وذلك لكي أتأكد ويكون أيضا تصديقا لما أرسله
هذا ما أحببت أن أوضحه . وأريده . وشكرا لكم
يرحم الله موتانا وموتى المسلمين
آمين آمين آمين يارب العالمين
( سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم )
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
