اذهب الي المحتوي
أوفيسنا

سؤال بخصوص تمرير اسم دخول للسيرفر وكلمة المرور من خلال كود برمجى


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

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

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

ان شاء الله غدا ان كان لى فى العمر بقية اقوم بالتجربة واوافيكم بالنتيجة ان شاء الله تعالى

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

انا لم يعمل معي فمازالت رسالة السيرفر تظهر للمطالبة بادخال اسم المستخدم والباسورد :blink:

وجدت هذا الموضوع عسى ينفعكم في شيء

https://stackoverflow.com/questions/26741669/vba-mapnetworkdrive-to-server-with-windows-credentials

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

أهلا بكم..

إذا كان أحدكم يستخدم Windows ويتصل بالانترنت عن طريق شبكة اتصال ثابتة (Router)  سلكي أو لا سلكي، فيمكن عمل محرك أقراص شبكي بعد تفعيل مشاركة الملفات والطابعات من الخصائص المتقدمة... وبعد ذلك يمكن وضع مجلد قاعدة البيانات الخلفية في مجلد المشاركة العام وذلك لتسهيل عملية الفحص والتجربة في المنزل!

قمت بتجربة الشفرة على Windows 10 وهي تعمل بشكل جيد سواء عند الاتصال أو قطع الاتصال.. يمكن مشاهدة محرك الاقراص الشبكي قبل إغلاق قاعدة البيانات.. لكن بعد إغلاق قاعدة البيانات ينقطع الاتصال بمحرك الأقراص ويختفي من القائمة.. في Windows 10 يجب أن يكون الحساب محلي وليس حساب خادم Microsoft (التسجيل باستخدم البريد الالكتروني).

من المهم جدا عند استخدام محرك الأقراص الشبكي أن يشار إليه مباشرة عند الاتصال بقاعدة البيانات الخلفية بالطريقة التالية

Tbl.Connect = ";DATABASE=Z:\tbl.mdb"

إذا كان حرف محرك الأقراص مستخدم من قبل Windows فسوف تظهر  رسالة بأن محرك الأقراص مستخدم 59f19a2c0a429_FireShotProScreenCapture007-_-www_officena_net_ib_topic_79923-----.png.46031ab7f9a2b8bd035951e7bf952906.png

من الجيد فحص الاتصال بقاعدة البيانات قبل مطالبة المستخدم بإعادة الاتصال ولتحقيق ذلك نستخدم الشفرة التالية

Function IsTblLinked() As Boolean
On Error GoTo Err_Handler
  Dim Tbl  As TableDef
  IsTblLinked = False
  For Each Tbl In CurrentDb.TableDefs
    If Len(Tbl.Connect) > 0 Then
      If Dir(Split(Tbl.Connect, "=")(1)) <> "" Then
        IsTblLinked = True
      End If
    End If
  Next
Exit_Function:
  Exit Function
Err_Handler:
      MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description
      Resume Next
End Function

 

تعيد هذه الشفرة قيمة منطقية موجبة إذا كان هناك اتصال ، أو قيمة سالبة إذا لم يكن اتصال... عندئذ يمكن إظهار نموذج أعادة الاتصال..

من المهمة هنا التحقق من تكوين محرك الشبكة والاتصال بقاعدة البيانات قبل الخروج من النموذج وذلك بإعادة تمرير الوظيفة IsTblLinked

بعد نجاح الاتصال يمكن إغلاق النموذج وفتح النموذج الرئيسي لقاعددة البيانات..

قطع الاتصال بمحرك الأقراص يكون عند إغلاق قاعدة البيانات.. فإذا لم يتم الاتصال بنجاح، أو حدث قطع الاتصال من خارج قاعدة البيانات فسيعيد إغلاق قاعدة البيانات خطاء مفاده أن محرك الأقراص غير ظاهر.

قمت بعمل الوظائف الإضافية لكني لم إدرجها في أماكنها اعتمادا على ما سبق بيانه.. أتمنى للجميع التوفيق

app.zip

تم تعديل بواسطه أبو إبراهيم الغامدي
  • Like 1
رابط هذا التعليق
شارك

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

باعتقادي ان فكرة انشاء محرك اقراص لايفي بالغرض في حالتي هذه..هل ذلك صحيح؟

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

  • 2 weeks later...

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

استاذى الجليل ومعلمى القدير واخى الحبيب استاذ @أبو إبراهيم الغامدي :fff:
اولا واخرا وقبل كل شئ شكر الله لكم جميل فضلكم وحزاكم الله الخير كله ان شاء الله على مساعدتكم ووقتكم وجهدكم الثمين
اسأل الله تعالى رب العرش العظيم فى هذا اليوم المبارك واتمنى على الله تعالى ان تكون ساعة اجابه ان شاء الله ان يغفر لكم ولكل اساتذتنا الكرام واخواننا الافاضل فى هذا الصرح الشامخ ولكل المسلمين ولابائكم وابنائكم واتمنى على الله تعالى كما جمعنا دون ان نسأله على حبه ولوجه ان لا يحرمنا هذا الجمع الطيب المبارك ان شاء الله على حوض نبينا وحبيبنا وسيدنا محمد صلوات ربى وسلامه عليه وعلى اله وصحبه
امين امين امين

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

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

  • 1 year later...
  • 6 months later...
  • أفضل إجابة

وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة

اضع هذا العمل المتواضع بين اياديكم

شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر

شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار

شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا 

شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ 

شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه :fff::fff::fff:

 

Connect To Network.mdb

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

بارك الله فيك استاذنا واخونا القدير أبا جودى ... إن شاء الله أقم بتجربته في بداية الاسبوع القادم في مق  عملي .. الى ذلك الحين اتمنى ان يخبرنا الاخوة بتجاربهم لكي تعم الفائدة 

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

متشوق لمعرفة نتيجة تجربتكم استاذى العزيز 

كما ان استاذى واخى الحبيب الاستاذ  @محمد سلامة اعطى اعجاب ولم يخبر عن نتيجة التجربة اتمنى توضيح نتيجة التجربة ان شاء الله

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

انت حضرتك فاهم غلط العفو منكم استاذى اسمح لى بتوضيح ما فهمته عنى بالغلط 

انا اقل طالب علم فى هذا المنتدى 

متشوق ان شاء الله لابداء رأيكم بعد التجربة

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

أستاذى @ابا جودى

تم التجربة على اوفيس 2003 جائت رسالة ان هناك كائن غير موجود 
سأقوم غدا بالتجربة على اوفيس 2016 مع احضار رسالة الخطأ

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

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