تعديل كود استعراض موقع الملف

[al.sheen2000]

السلام عليكم 

فضلا عن الضغط على خانة استعراض موقع الملف يعطي خطاء في الكود  سواء لمسار النسخ او مسار موفع الملف 

امل من الاخوان التعديل جزاكم الله خيرا 

db1.rar

[د.كاف يار]

تفضل

 

db1.zip

[al.sheen2000]

الف شكر لك

[Barna]

الان, al.sheen2000 said:

الف شكر لك

دائما اخي الكريم عند نسخ نموذج من ملف انسخ ملحقاته من المديولات .....

انظر ملفك بعد اضافة المديولات الناقصة .....

 

db1.rar

[al.sheen2000]

تسلم حفظك الله ورعاك 

[al.sheen2000]

السلام عليكم 

فضلا منك كود النسخ اكيد فيه خطاء لان النسخ لا يعمل حسب ماهو محدد كل ساعة .

ففضلا منك ارجو تعديل الكود اكون لك من الشاكرين  تحياتي 

db1.rar

[د.كاف يار]

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

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

لكن تفضل هذا عداد وقت قم بتكييفه مع برنامجك حسب التصميم لديك

Sub NewTimer()
Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 3600
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
    call NewTimer()
End Sub

 

[al.sheen2000]

اشكرك جزاك لله خيرا