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

[محمد احمد لطفى]

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

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

 

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

[أبو عبدالله الحلوانى]

السلام عليكم 

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

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

 

 

[محمد احمد لطفى]

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

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

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

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

تم تعديل أكتوبر 8, 2019 بواسطه محمد احمد لطفى

[أبو عبدالله الحلوانى]

هل تقصد هذا

 

Ip.accdb

[محمد احمد لطفى]

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

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

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

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

Call OpenServerConnection()

 

تم تعديل أكتوبر 8, 2019 بواسطه محمد احمد لطفى

[أبو عبدالله الحلوانى]

نعم يمكن 

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

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

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

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

ودمتم.

 

[محمد احمد لطفى]

 

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

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

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

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

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

[أبو عبدالله الحلوانى]

نعم 

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

public sub openServerConnection()


End sub

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

call OpenServerConnection

وانتهي الأمر

[محمد احمد لطفى]

جزاك الله خيرا أستاذى

[ابو جودي]

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

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