هذا السئوال موجه لجميع رواد المنتدى وخاصة أبو حمود

لقد جربت النسخ بواسطة filecopy وهي توقف الإجراء حتى يتم النسخ يعني لا يستمر الإجراء إلا إذا انتهت من عملها بحيث نضع مؤشر أو غيره .

قد تستطيع ذلك بواسطة دوال API ولكني لا أعرف الطريقة .

لم أضع الجواب هناك كما طلبت لأن ليس فيه فائدة .

ولك تحياتي

شكرأ أبو حمود

ويا ليت تخبرني عن الحل إذا حصل ووجدته

to top

لتكون أعلى المنتدى فقط

يا شباب الموضوع أعتقد أنه مهم وقد يحتاجه كل من يصمم برنامج

أرجو المساعده

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

الموضوع المشار اليه في قسم آخر من المنتدي لذا أجبت هنا ثانية و أقترح أن نكمل لحديث هنا ( من وجهة نظر قةاعد البيانات )

أقترح إستخدام الأمر التالي لأخذ نسخة

قم بوضع المسارات الأصلي datapath و الجديد Backuppath

فى صندوق نص علي الفورم

DoCmd.Hourglass True 
Dim m3, m4 As String 
Dim datapath As String, Backuppath As String 
m3 = Trim$(datapath) 
m4 = Trim$(Backuppath) 
DBEngine.CompactDatabase m3, m4, DB_LANG_ARABIC 
DoCmd.Hourglass False 
MsgBox " Data Copied Successfully ! ", 64, " Backup Confirmation"

أخي مصراوي

هذا تغيير لشكل الماوس فقط

أنا أريد مثلاً عباره التحديث جاري تؤشر أثاء التحديث حتى يتم

أو أريد شريط فارغ يمتلئ أثنا التحديث حتى يتم

أشكرك على جهودك

فيه طريقة تنفع شوي وهي إظهار نص على شريط المعلومات ، فمثلا إذا كنت تنفذ الإجراء من زر أمر فضع التالي :

[اسم زر الأمر].StatusBarText = "جاري النسخ ....."
' أمر النسخ
[اسم زر الأمر].StatusBarText = "تم النسخ بنجاح"

هي ليست الذي تطلبه :( :( ولكن يمكن تنفع :)

ولك تحياتي

ياسلام عليك ابو حمود تحاول من كل طريق (ما شاء الله عليك)

الله لايضرك

ابو حمود قرأت في هذا المنتدى عن الثريد وحاولت تطبيقه لكي أتعلمه ولكني لم اكمل لمشاغلى

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

إذا تكرمت

((((إلى جميع الأخوه طبعا الرد موجه لأبو حمود بحكم إجابته ولكن جميعنا مكملين لبعض فالإجابه مطلوبه ممن يعرف حتي تعم الفائده ))))))

الأخ ابوعبدالملك

ما هو الثريد وأين قرأت عنه ممكن رابط للموضوع .

ولك تحياتي