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

[ابو جودي]

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

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

[أبو إبراهيم الغامدي]

 

الرجاء استخدم هذا التعديل للأهمية: app_511965.zip

[sandanet]

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

[ابو جودي]

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

فى مشكله كما فى الصورة

[sandanet]

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

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

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 فسوف تظهر  رسالة بأن محرك الأقراص مستخدم 

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

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

تم تعديل أكتوبر 26, 2017 بواسطه أبو إبراهيم الغامدي

[sandanet]

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

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

[ابو جودي]

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

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

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

[أبو إبراهيم الغامدي]

آمين..

في انتظار

وأنا كذلك..

بارك الله لك في عمرك وعملك وأهلك وولد ومالك.. آمين

[sandanet]

وانا متابع في صمت 

[SEMO.Pa3x]

وعليكم السلام, راجع موضوعي هنا

 

 

حسنين

[ابو جودي]

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

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

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

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

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

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

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

 

Connect To Network.mdb

[sandanet]

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

[ابو جودي]

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

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

[محمد سلامة]

عيوني لك ياغالي 🌺🌺

بس للأسف ليس لدي شبكة داخلية حالياً في العمل حتي استطيع التجربة

[ابو جودي]

وانا فرحت لما شاهدت الاعجاب حدثتنى نفسى انك قمت بالتجربة ونالت رضاكم

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

سأقوم بالتجربة غدا إن شاء الله

[sandanet]

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

[ابو جودي]

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

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

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

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

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

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