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

ازهر عبد العزيز

04 عضو فضي
  • Posts

    1,267
  • تاريخ الانضمام

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

كل منشورات العضو ازهر عبد العزيز

  1. صحيح استاذ حاولت تغير اسم الموضوع الى (التعامل مع المجلدات في اكسس) لكني لم استطيع ارجو من ادرارة المنتدى تغييرة ليكون مرجع مفيد لمن يبحث عن موضوع مشابة
  2. الاستاذ @Foksh , @محمد احمد لطفى , @kkhalifa1960 طلب اخير او قبل الاخير هل يوجد كود لحذف الفلولدر الذي يتم انشائة اي كود تحت زر لحذف الفولد بحسب اسم الكتاب الموجود في حقل BookName
  3. جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها
  4. شكرا جزبلا اخي ملاحظة كان لدي سؤال نقريبا قبل ثلاثة سنوات لنفس سؤالك الطريف بالامر انة انت من قام بالاجابة عن السؤال بنفس الكود لاجابتي حاولت اجده لم افلح لكثرة مشاركاتي
  5. تمام استاذ لمشكلة عندي انتم وضعتم MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA غيرتة الى MkDir CurrentProject.Path & "\Library1\BOOKS\" & FolderA الان تمام الاستاذ @محمد احمد لطفى الاستاذ @Foksh تعجز الكلمات عن الشكر لكن طلب اخر ارجو ان يتسع لي احتاج كو تحت زر لفتح هذا الفولدر الذي بتم انشائة
  6. اسف استاذ لم يعمل لا اعرف السبب هل قمت بتجربتة
  7. ما شاء الله عليك اخي احسنت زادك الله علما وعافية طلب اخر يا اخي القلولدرات Libraries , Library1 , BOOKS دائما ستكون موجودة بجانب القاعدة لا احتاج الى التاكد من وجودهن ممكن اختصار الكود الاخير لو تفضلت بحسب المطلوب
  8. اتعبتك يااخي لكن ممكن شرح لهذا الكود If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & FolderA
  9. جزاك الله كل خير اخي ماذا لو تم نغير المسار بالكامل مستقبلا C:\Libraries\Library1\BOOKS الى D:\Libraries\Library1\BOOKS هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات
  10. وانت بالف خير اخي ربي يحفظكم في حال الفولدر موجود تظهر رسالة خطأ ممكن حل للمشكلة
  11. If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb
  12. السلام عليكم لدي هذا المسار C:\Libraries\Library1\BOOKS اريد انشاء فولدر داخل الفولدر BOOKS من خلال الزر الموجود بحسب الاسم المدخل في مربع النص الموجود في النمودج Libraries.rar
  13. السلام عليكم لدي نموذج يحتوي زر وحقل احتاج عند النقر على الزر الموجود يضيف رقم عشوائي محصورة بين 0 الى 73 بشرط ان بتم ادراج الارقام المحصورة كافة وعند انتهاء الارقام يعيد من جديد بمعنى عند الضغط اولا تكون قيمة الحفل الرقم مثلا 44 وعند الضغط مرة ثانية يكون قيمة الحقل مثلا 55 الى ان تنتهي الارقم 72 test200.accdb
  14. السلام عليكم لدي هذا الكود Sub XY1() If ActiveControl.Text = Me.TextBox1.Text Then Me.TextBox1.Text = ActiveControl.Text My.Computer.Audio.Play("sounddd\BookName\1.wav", AudioPlayMode.Background) End If End Sub كيف اجعل تشغيل الصوت حسب الزر الذي تم الضغط علية دون اللجوء الى كتابة الكود تحت كل زر اي ياخذ قيمتة من ActiveControl.Text
  15. احسنت اخي وهو المطلوب هل توجد طريقة اخرى
  16. السلام عليكم لدي 3 نماذج FA ,FB ,FC في النموذج الفرعي FC يوجد كود Sub ccc() textboxc = 77 End Sub ماهي الطرقية التي يمكن مناداتة من النموذج الرئيسي FA والنموذج الفرعي FB عن طريق الازرار الموجودة في النموذجين وهل يوجد اكثر من طريقة لذلك CALLTEST.accdb
  17. ما شاء الله عليك اخي سهلة علي الكثير من العمل لكن ممكن شرح لطريقتك وماذا يقصد ب ActiveControl مع جزيل الشكر
  18. السلام عليكم في النموذج FLabelName D يوجد حقل LabelNameText ويوجد ثلاث ازرار A,B,C احتاج عند الضغط على احد هذة الازار تكون قيمة الخقل LabelNameText مساوية لقيمة نص تلميح عنصر التحكم للزر الذي تم الضغط علية LabelName.accdb
×
×
  • اضف...

Important Information