التأكد من وجود ملف على الشبكة

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

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

 "\\192.168.1.2\Pro\IP.mdb"

وكود نقل الجداول 

 

        DoCmd.DeleteObject acTable, "WorkerSub"
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "\\192.168.1.2\Pro\IP.mdb", acTable, "WorkerSub", "WorkerSub", False
        
        DoCmd.DeleteObject acTable, "Workstation"
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "\\192.168.1.2\Pro\IP.mdb", acTable, "Workstation", "Workstation", False

و لا يتم النقل الا اذا كان الملف موجود و تظهر رسالة ( التحديث غير متاح الأن )

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

Ip.rar

[ابو جودي]

2 ساعات مضت, محمد احمد لطفى said:

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

 "\\192.168.1.2\Pro\IP.mdb"

وكود نقل الجداول 

 

        DoCmd.DeleteObject acTable, "WorkerSub"
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "\\192.168.1.2\Pro\IP.mdb", acTable, "WorkerSub", "WorkerSub", False
        
        DoCmd.DeleteObject acTable, "Workstation"
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
        "\\192.168.1.2\Pro\IP.mdb", acTable, "Workstation", "Workstation", False

و لا يتم النقل الا اذا كان الملف موجود و تظهر رسالة ( التحديث غير متاح الأن )

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

Ip.rar 23.84 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

 

 

'هذا الكود فى وحدة نمطيه
Public Function FileExist(strpath As String) As Boolean
    If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False
End Function
'--------------------------------


'هذا الكود فى النموذج

Private Function Go()
هنا كود الحدث الذى تريده
End Function

'---------------------------------
'هذا الكود على حدث النقر على زر امر
If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go

 

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

أستاذى العزيز @ابا جودى

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

هناك حالاتان 

1 - اذا كان الملف غير متشير تأتى الرسالة التالية 
2 - اذا كان الجهاز غير مفتوح يبطىء البرنامج مدة قصيرة و تأتى الرسالة التالية 
فالمطلوب
اذا كان الملف غير موجود على الشبكة (غير متشير) او غير قادر على الوصول اليه تأتى رسالة ( التحديث غير متاح الأن )

[ابو جودي]

23 دقائق مضت, محمد احمد لطفى said:

أستاذى العزيز @ابا جودى

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

هناك حالاتان 

1 - اذا كان الملف غير متشير تأتى الرسالة التالية 
2 - اذا كان الجهاز غير مفتوح يبطىء البرنامج مدة قصيرة و تأتى الرسالة التالية 
فالمطلوب
اذا كان الملف غير موجود على الشبكة (غير متشير) او غير قادر على الوصول اليه تأتى رسالة ( التحديث غير متاح الأن )

بسيطة ولا تزعل اتفضل 

'هذا الكود فى وحدة نمطيه
Public Function FileExist(strpath As String) As Boolean
On Error GoTo ErrHandler
    If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False
ErrHandler:
    If Err Then Exit Function
End Function

'--------------------------------


'هذا الكود فى النموذج

Private Function Go()
هنا كود الحدث الذى تريده
End Function

'---------------------------------
'هذا الكود على حدث النقر على زر امر
If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go Else MsgBox "sorry, update not available now"
 

 

تم تعديل يوليو 23, 2019 بواسطه ابا جودى

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

جزاك الله خيراً أستاذى @ابا جودى
تم الوصول الى الحل بفضلك 

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

Ip.rar

[ابو جودي]

3 دقائق مضت, محمد احمد لطفى said:

جزاك الله خيراً أستاذى @ابا جودى
تم الوصول الى الحل *********************** 

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

Ip.rar 26.25 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

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

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

سبجانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

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

2 دقائق مضت, ابا جودى said:

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

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

سبجانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

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