اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عمل وحدة نمطية لتمرير اسم المستخدم وكلمة السر الكود بالداخل


إذهب إلى أفضل إجابة Solved by أبو عبدالله الحلوانى,

الردود الموصى بها

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

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

 

Dim NetworkObject As Object
    Dim FSO As Object
    Dim Directory As Object
    Dim Filename As Object
    Dim ServerShare As String
    Dim UserName As String
    Dim Password As String

    ServerShare = "\\corp-server\HostingFolder"
    UserName = "mydomain\myuser"
    Password = "freddie123"

    Set NetworkObject = CreateObject("WScript.Network")
    Set FSO = CreateObject("Scripting.FileSystemObject")

    NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

    Set Directory = FSO.GetFolder(ServerShare)
    For Each Filename In Directory.Files
        Debug.Print Filename.Name
    Next

    Set Filename = Nothing
    Set Directory = Nothing
    Set FSO = Nothing

    NetworkObject.RemoveNetworkDrive ServerShare, True, False

    Set NetworkObject = Nothing


وجزاكم الله خيرا

من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً

Ip.accdb

رابط هذا التعليق
شارك

السلام عليكم 

أعتقد أن لأخينا أبي جودي باعا في هذا وله موضوع مشابه مررت به قريبا وكان به مرفق يقوم بعمل ما تريد 

أظنه هنا تفقده لعلك تجد ما تريد

 

 

  • Thanks 1
رابط هذا التعليق
شارك

أستاذى @أبو عبدالله الحلوانى

الكود يعمل بالفعل و تم تجربته أنا و أستاذى @ابا جودى


أريد وضعه فى وحده نمطية و يتم استدعائها فى النموذج

بدلا من وضع الكود على الزرار

تم تعديل بواسطه محمد احمد لطفى
  • Haha 1
رابط هذا التعليق
شارك

جزاك الله خيرا أستاذى سأقوم بتجربتها غدا على الشبكة

و هل يمكن أن تكون البيانات فى الوحدة النمطية أيضا 

Call OpenServerConnection("\\corp-server\HostingFolder", _
                         "mydomain\myuser", _
                         "freddie123")

و يتم منادتها فى النموذج مثل هذا الكود فقط
 

Call OpenServerConnection()

 

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

نعم يمكن 

مع تغيرات داخل الموديل 

1- حول الـ function الي sub 

2- مع ازالة البرمترات 

3- والغ تعليق الأكواد المعلقة داخل المودل.

ودمتم.

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

 

أستأذنك  أستاذى @أبو عبدالله الحلوانى ممكن ممكن تنفذها 

لأنى معرفش أعمل دول 

2- مع ازالة البرمترات 

3- والغ تعليق الأكواد المعلقة داخل المودل.

و لا يعنى ارجعها ذى الكود فى المشاركة الاولى مع تغيير ـ function الي sub 

رابط هذا التعليق
شارك

  • أفضل إجابة

نعم 

وتصير البداية هكذا

public sub openServerConnection()


End sub

ثم نناديها من داخل الزر هكذا

call OpenServerConnection

وانتهي الأمر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

جزاكم الله خيرا استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى :clapping::fff:

ولكم يسعدنى ويشرفنى ان يكتمل رونق العمل بلمساتكم الطيبة يا طيب :jump::signthankspin:

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information