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

عبدالعليم اسماعيل

03 عضو مميز
  • Posts

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

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

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

  1. اريد تفادى رساله لايمكن اضافة سجل او تغييره لانه مطلوب سجل مرتبط اكسس مع الحفاظ على طريقه ربط الجداول ام الخطاء فى طريقه الربط 025.accdb
  2. اشكر حضرتك على تبنى الفكره ومتابع مع حضرتك من خلال جروب الواتس
  3. احترامى للجميع اتمنا من قبول الفكره وتطويره الحمد لله دى النتيجه اللى قدرت اوصل اليها ومازال ليها بعض التعديلات للتطوير والملف مفتوح المصدر للجميع PatternLock.accdb
  4. اشكرك مع العلم انى بقا لى فتره لدرجه انى جمعت كم اكواد على شان اوصل لنتيجه بس كل المحاولات بائت بالفشل
  5. بشكر الجميع على المساعده ولاكن وصلت الى هذه النتيجه ولاكن ينقصها اسهم اوعلامات لتوضيح مسار النقش قفل نمط.rar
  6. بجهز نموذج بس بينقصنى حركة الاسهم حابب استخدمه فى برنامج محل جولات
  7. السلام عليكم ورحمه الله وبركاته هل بالامكان انشاء فكره قريبه إلى نقش الهاتف بالاكسس مع احداثيات الارقام المضغوط عليها ولا من عدمه
  8. بعد البحث بالمنت وجت كودين وتم دمجمهم بنفس قاعده البيانات الاول يعطينى رقم والثانى استعادة الترقيم بعد الحذف طبعا دى محاول بس مع خبرة حضراتك هل هى صحيحه ام لا مع العلم انه يوجد علاقه بين ثلاث جداول DoCmd.GoToRecord , , acNewRec If IsNull(DMax("[kod_alad5al]", "tblControls")) Or DMax("[kod_alad5al]", "tblControls") = 0 Then Me.kod_alad5al.Value = 1 Else kod_alad5al = DMax("[kod_alad5al]", "tblControls") + 1 End If Dim i As Integer, k As Integer Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb DoCmd.SetWarnings False Set Rs = db.OpenRecordset("SELECT tblControls.* FROM tblControls ORDER BY tblControls.asm_a") If Nz(Rs.RecordCount, 0) > 0 Then Rs.MoveLast k = Rs.RecordCount Rs.MoveFirst For i = 1 To k Rs.Edit Rs!kod_alad5al = i Rs.Update Rs.MoveNext Next i End If Set Rs = Nothing Set db = Nothing DoCmd.SetWarnings True 01.rar
  9. اريد عند الغاء التعديل لايأخذ رقم بالسجل ويبقى عند اخر ترقيم 0.rar
  10. مع العلم انى بحثت بالمنتدى اريد بحث عن مجلد او ملف واظهار النتائج كما لو بالامكان اغلاق كلك يمين اعمل على برنامج ارشيف خاص لملفاتى abdo02.accdb
  11. فاهمك فى زر للفتح شفاف فوق الصوره او الملف ولو حاولت نقل الملف فى اي مكان يعمل A.rar
  12. استخدم الملف ده https://www.officena.net/ib/topic/120786-السلام-عليكم-عند-تغيير-الصوره-لايحذف-الصوره-القديمه/?do=findComment&comment=727079
  13. اشكر الجميع على المحاوله تم عمل المطلوب على طريقتى بدون تغيير المسميات ارفق الملف عسى ان يستفيد به الجميع 03.accdb
  14. اشكرك ولاكن ليس هذا ما اريده اريد عند اضافة ملف او صوره يستبدل الصوره او الملف القديم
  15. اريد عند ادراج صوره تظهر لى رساله حذ او استبدال باسم الصوره f.rar
  16. اعرض الملف طريقة إبداعية لتغيير خلفيات جميع النماذج السلام عليكم ورحمة الله وبركاته تغيير خلفيات جميع النماذج الملف مفتوح المصدر تم تجربته على نسخة 64 بت بالامكان التطوير عليه صاحب الملف عبدالعليم اسماعيل تمت الاضافه 03 سبت, 2023 الاقسام قسم الأكسيس  
  17. Version 1.0.0

    141 تنزيل

    السلام عليكم ورحمة الله وبركاته تغيير خلفيات جميع النماذج الملف مفتوح المصدر تم تجربته على نسخة 64 بت بالامكان التطوير عليه
  18. انا تعبت فيه والله بعد موافقه المنتدى على التثبيت انشاء الله سيتم وضع الملف مفتوح المصدر
×
×
  • اضف...

Important Information