bigpro

وعليكم السلام ،لو بحثت بالمنتدى اكيد بتلاقي حل ،لكن اليك هذا الكود يقوم بما تريد currentDir = CurDir$ currentDir = currentDir + "\*.*" Dir (currentDir) Do While Len(currentDir) Debug.Print currentDir currentDir = Dir Loop

وعليكم السلام بالنسبة للحفظ استخدم لفتح السجل العبارة التالية al.Open "vq", cn, adOpenDynamic, adLockOptimistic

اعتقد انك تريد نسخ قاعدة البيانات والاتصال مفتوح، اغلق الاتصال اولا db.close ثم انسخ وبعدينافتح الاتصال مرة ثانية db.open

اليك الحل تم تعديل الجدول واضافة حقل user_id كذلك تم اضافة متغير من النوع الصحيح iUser_id عند النقر على القائمة نسند قيمة الحقل user_id في المتغير iUser_id نجري التعديل حسب هذا الرقم تحياتي user.rar

وعليكم السلام عزيزي السبب هو انك تفتح الجدول عن طريق الاسم نفسه اي where user_name اي تستخدمه كمعيار للتعديل وبالتالي لايمكن تعديل الاسم يجب فتح الجدول باستخدام حقل اخر لو استخدمت where user_no لتم التعديل يستحسن ان تضع مفتاح رئيسي من نوع رقم يتم التعديل عن طر…

بامكانك استخدام ListView اداة عرض رائعة اذا كان يهمك شكل العرض اما اذا كنت تقصد بالمرونة مرونة الادخال فهي لاتنفع