اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كرار صبري _ أبو جنى

الخبراء
  • Posts

    528
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو كرار صبري _ أبو جنى

  1. السلام عليكم استاذ جعفر ... ان شاء الله تكون بخير عندي مشكلة في الجملة " As DAO.Recordset " كما في الصورة المرفقة علما اني طبقت الكود في " مثال مستقل " و عمل تمام لكن لما طبقته في " برنامج " ظهرت الرسالة كما في الصورة المرفقة ... مع شكري مقدما ... New Bitmap Image.bmp
  2. تفضل ... ارجو ان يكون التغيير واضح ... profit2.rar
  3. مبروك عليك يا استاذ جعفر ... و مبروك علينا ...
  4. السلام عليكم ... اطلع على هذا الموضوع ...
  5. وعليكم السلام و رحمة الله و بركاته ... اخي حسن أرفق الملف أو مثال بسيط للتعديل عليه ...
  6. آسف لم أقم بالبحث قبل اضافة موضوع جديد
  7. السلام عليكم اخواني و اساتذتي الكرام ... عندي قاعدة بيانات و اردت accdb ان احولها الى accde لكن ظهرت الرسالة المرفقة " تعذر انشاء الملف " و بعد تجارب و فحوصات وجدت المشكلة في نموذج واحد , اي اذا حذفته يمكن اتمام العملية ... او بالاحرى اذا حذفت الاكواد الخاصة بالنموذج يمكن اتمام العملية ... افيدونا يرحمكم الله ... مع الشكر و التقدير مقدما . New Bitmap Image.bmp
  8. اخي اسامة ممكن اعرف كيف تم تعطيل كلك يمين في النموذج ؟؟؟
  9. عسى المانع يكون خيرا ... ان شاء الله يكون بخير ...
  10. اهلا ابو عبد الله ... كلام جميل ... لكن الاخ اسامة يريد النجوم تظهر في رسالة الباسوورد و ليس في النموذج ... أخوك كرار
  11. السلام عليكم ... من رخصة الاخ حسين ... بالنسبة الى اولا : يصبح الكود Private Sub أمر19_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "q2" Me.Refresh DoCmd.SetWarnings True End Sub اما ثانيا : فحسب قوانين المنتدى , يجب فتح موضوع جديد
  12. وعليكـــــــــــــــــــــــــــــم الســـــــــــــــــــــــــــــــلام ... 1- اعد كتابة كود انشاء الملف الرئيسي لانشاء الملف الفرعي اي يتم انشاء الملف الرئيسي ثم انشاء الملف الفرعي داخله ... 2- ليس لدي الكود لكن توجد الكثير من المواضيع في المنتدى تتحدث عن السكنر ... موفق إن شاء الله ...
  13. الحمد لله وجدت الحل ... Dim xxzz Set xxzz = CreateObject("Scripting.FileSystemObject") If xxzz.FileExists(opttt) = False Then MsgBox ("nooooooooo") Else MsgBox ("yeeeeeeees") End If حيث ان opttt هو مربع نص به مسار الملف ... """ انا السائل و انا المجيب """
  14. استاذ عبد الرحمن ... فضلا و ليس امرا ... ممكن شرح للادوات المستخدمة في الكود ...
  15. اخي العزيز ... اسم المستخدم و اسم الكمبيوتر لا يتغيران الا اذا وضعت البرنامج على جهاز آخر ... او اذا كان على جهاز الكمبيوتر اكثر من حساب (حساب مستخدم على الوندوز)
  16. السلام عليكم و رحمة الله و بركاته ... اريد تعديل الكود في المرفق ... بحيث اذا كانت الصورة موجودة لا يتم النسخ ... يرجى وضع المجلد ( البرنامج ) على القرص D.rar
×
×
  • اضف...

Important Information