ekseer

شكرا للأخ ريان هذه مشاركة اخرى EK_MHB.rar

تأسف إدارة الفريق العربي لغلق الموضوع وذلك لمخالفته قوانين المشاركات . قواعد طرح المشاركات /index.php?showtopic=29343

بسم الله الرحمن الرحيم تمت الإجابة على الموضوع إدارة الفريق العربي للبرمجة

وعليكم السلام والله يا أخي لم استخدم أكسيس 2007 للأن !!!

ولايهمك أخوي .. عليك استبدال الكود .. بهذا الكود هو فيه تغيير بسيط .. فقط .. واخبرني بالنتيجة Dim winPath As String winPath = Environ$("windir") MsgBox winPath & ":" & "ملف النظام لديك" FileCopy "C:\prog\123.mdb", winPath & "\system32\123.mdb" MsgBox "تم نسخ ا…

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

تفضل أخي الكريم المثال ينسخ لمجلد الويندوز مباشرة .. هذا هو كوده Dim winPath As String winPath = Environ$("windir") MsgBox winPath & ":" & "ملف النظام لديك" FileCopy "C:\prog\123.mdb", winPath & "\123.mdb" MsgBox "تم نسخ الملف بنجاح", _ vbInformation + vbOKOnl…

وعليكم السلام ورحمة الله هلا أخوي أبو عبدالله .... غالي والطلب رخيص بالحيل هل تريد النسخ يتم لمجلد الويندوز C:\WINDOWS أم لمجلد النظام C:\WINDOWS\system32 في انتظارك

السلام عليكم ورحمة الله وبركاته أخي الكريم .. طلبك كان وهذا يعني أنك تريد القاعدة على الارقام المتكررة في الحقل فقط مثل 11111 66666 99999 33333 لكن ماذا لو ورد في نفس الحقل ارقاما غير متجانسه مثل 86754 76124 هنا نريد أن نميز الرقم هل هو متجانس أم لا ؟ ماذا فعل…

حاضر .. أخي .. ساوضحه لك بمشيئة الله الليلة

ان كنت تقصد الاطلاع على كود البرنامج - فهذا غير ممكن

السلام عليكم الحقيقة لا لايوجد غرابه في مشكلتك .. انما حلها يحتاج كود ممكن يكون طويل شوي وفيه بعض التمحيص والتعقيد قليلا .. لكن لا تهتم محلولة باذن الله .. فقط أمنحنا وقتا أضافيا

يتم قراءة الاحداث واحدا تلو الاخر في التسلسل فقط بعد حدث الفتح في محرر الـ VBA أكتب كودا أضافيا وليكن هذا مثلا Msgbox"أهلا يوسف" تلاحظ أن الفورم فتح ( وهذا حدث ) ثم طلعت الرسالة السابقة ( وهذا حدث ثاني ) فقط هذا كل مافي الامر

ممكن ترفق ملفك للإطلاع عليه وتحديد المشكلة

اخي الكريم : نعم هذا ممكن والامثلة في المنتدى على ذلك كثيرة فقط أبحث .. وبالتوفيق

السلام عليكم تفضل أخي الكريم Ek_shick.rar

ارفق المثال

ارفق المثال

السلام عليكم ورحمة الله تفضل أخي الكريم المثال - طبعا راجع المودويل لتتعرف على عمله أنظر الاستعلام - وضعت له شروطا - هي ان كان الرقم متشابه - يعطينا اول خانه للرقم مثل 11111 = 1 88888 = 8 ان كان الرقم غير متشابه يكتب لنا ( الرقم غير متشابه مثل 34211 = رقم غير …

بسم الله الرحمن الرحيم تمت الإجابة على الموضوع إدارة الفريق العربي للبرمجة