د.كاف يار

كان فيه خطأ في الكود و تم التعديل اسم الصورة رقم الهوية + الوقت الحالي بيانات.accdb

تفضل التعديل بيانات.accdb

تفضل هذي الفكرة nabil2322.accdb

اتفضل هذا التعديل و لا تنسى اذا تضيف المكتبة للبرنامج الخاص فيك pdf3.zip

تفضل طلبك DATA1412.zip

تفضل هذا التعديل تم عمل تغييرات جذرية لكن ادخال التاريخ و الرقم يكون بعد استيراد البيانات DATA1411.zip

تمت التجربة بكل المعاييير و كانت ناجحة الاغلب ان المشكلة في ملف الاكسل لديك جرب ملف الاكسل المرفق اذا تم استيراد بنجاح اذا المشكلة في ملف الاكسل الذي تعمل به Data14.xlsx

تأكد من ملف الاكسل

جرب هذا و اتأكد من المسار قبل الاستيراد DATA1410.zip

تفضل التعديل Database.accdb

استبدل الكود الخاص بأزرار التحديث بالكود التالي On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim x, z As String Set rs = CurrentDb.OpenRecordset("Table") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = Right(rs.Fields("PicPath2"), Len(rs.Fields("PicPath2")) - InStrRev(rs.Fields("PicPath2"), "\")) rs.Edit rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing DoCmd.Requery

كانت المشكلة انك تضع الرقم قبل الاستيراد جرب هذا التعديل للتوضيح في حال عدم وجود رقم في مربع الرقم سيتم اضافة قيمة عشوائية DATA149.zip

ما فهمتك الأن جربت استوردت مخزن 2 و بعدها مباشرة استوردت مخزن 3 و استوردت مخزن 4 و غيرت الرقم مافيه ايش مشكلةو استوردت الي بعده بدون اي مشاكل صور المشكلة ان امكان

تفضل التعديل النموذج الذي تم التطبيق عليه هو Formulaire1 dwrat alti lmya9m biha fard.accdb

تفضل هذا المثال الاجنبي قد يفي بالغرض Microsoft Access Calendar Form Template [Access-Templates.Com].accdb

اعتقد ان هذا الاجراء من اصدار 2010 و اكثر غير متوفر فعلا كنت استخدمها في اصدار 2007

تفضل هذا التعديل DATA148.zip

تأكد من تحديد مسار الملف

احذفه و ثم اعد تثبيته و تفعيله و ( عطل التحديثات ) بكذا تضمن انه يستمر معاك بدون مشاكل

تفضل هذي الطريقة لإنشاء نسخة من الملف بإسم مختلف و حذف النسخة الاساسية Dim x, NewFileName As String NewFileName = "الاسم الجديد للملف" Dim F As Variant, FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") DoCmd.SetWarnings False For Each F In FSO.getFolder("مسار الفولد الذي يتحوي على الملفات").Files x = x & vbNewLine & F Dim MyFile, DstFile As String Dim Syso As Object MyFile = F DstFile = CurrentProject.Path & "\" & NewFileName & ".jpg" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Kill F Next

مستحيل راجع الكود و انت تعرف السبب تفضل التعديل DATA147.zip

تفضل التعديل pdf2.zip

تفضل هذا التعديل DATA146.zip

تفضل التعديل اخي الكريم حتى تكون الطريقة سهلة تم تحويل ملف PDF الى وورد و تم ربطه بقاعدة البيانات pdf.zip

عند الاستيراد تأخذ السجلات المستوردة رقم متسلسل يبدء من A انت حين رفضت التعديل بقت على ماهي عليه دون تعديل فلو وافقت على التعديل لكانت اخذت الرقم الذي تريده الأمر بإختصار شديد في حال ادخلت رقم تم ادخاله مسبقا سوف تظهر رسالة تحذير ( الرقم مكرر هل تريد التعديل على نفس الرقم) أي هل تريد استخدام نفس الرقم ؟ في حال انك قمت بالرفض لن يحدث اي تغيير على المدخلات أرجوا ان تراجع الكود للتأكد من ذلك في حال انك وافق سيتم الاحتفاظ بالرقم المكرر المدخل اي سيتم استبدال الرقم التلقائي و الذي يبدء بحرف A الى الرقم المدخل في حال كان الرقم جديد سيتم تغيير الرقم التلقائي و الذي يبدء بحرف A الى الرقم الجديد ارجوا ان تكون الصورة اتضحت كما أرجوا ان تطلع على الكود لكي تعرف كيف تسيير الأمور