عفرنس

تفضل أرجو أن يكون المطلوب ربطت النموذج بالجدول وليس بالاستعلام وغيرت مايلزم 1عدد الاشهر.accdb

تفضل . أرجو أن يكون طلبك ,,, Database6.accdb

ضع هذا الكود في وحدة نمطية لكن تنبه ( هذا الكود يغير آخر حرف في الكلمة وليس الأول ) فإذا استطعت أن تغير فيه ما تريد فاعل .. لأنني لا أعرف كيف أعدله ,, لكني بحثت لك فوجدته . طبعا أنشئ استعلام بالجدول الذي تريد عليه التعديل . Function C_Word(T As String) As String If Right(T, 1) = "ي" Then T = Replace(T, "ي", "ى") End If T = Replace(T, "ي", "ى") C_Word = T End Function

أرفق ملفك .. ليتسنى حل مشكلتك

للرفع يا فضلاء

'الكود يتحدث إذا كان حقل الايدي فارغ If IsNull(Me![id]) = True Then ' يتم عرض رسالة تفيد بأن الحقل فارغ MsgBox " عفواً أخي الكريم حقل الآيدي " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه" ' تثبيت المؤشر في الحقل الفارغ نفسه id.SetFocus ' أخرى يتبع إلى الباقي Else If IsNull(Me![اسم المشترك]) = True Then MsgBox " عفواً أخي الكريم حقل اسم المشترك " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه" Me.اسم_المشترك.SetFocus Else If IsNull(Me![رقم الهاتف]) = True Then MsgBox " عفواً أخي الكريم حقل رقم الهاتف " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه" Me.رقم_الهاتف.SetFocus Else If IsNull(Me![البريد الالكتروني]) = True Then MsgBox " عفواً أخي الكريم حقل البريد الألكتروني " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه" Me.البريد_الالكتروني.SetFocus Else DoCmd.GoToRecord , , acNewRec End If: End If: End If: End If: بحثت لك فوجدت هذا الكود ربما يلبي لك بعض ما تريد ..

وصف المشكلة بوضوح يعتبر جزء من حل المشكلة .. لو وضحت ما تريد .. فلم أفهم عليك ..

يفضل ارسال ملفك ليتسنى مساعدتك .. في البداية .. يصدر كل واحد منهما البيانات التي عنده الى ملف اكسل . ثم ترسل إليك عن طريق البريد الالكتروني مثلا .. ثم بدورك أنت تعمل استيراد للملفين ..

شكرا لكما دكتور أحمد ، ودكتور أشرف ..

السلام عليكم أريد اضافة رسالة تنبيه قبل الإستيراد في زر الأمر ( استيراد جميع الملفات ) وكذلك زر ( استيراد الملف المحدد ) FMARK.rar

أرفق ملفك

لا تنس الضغط على افضل اجابة

الاوفيس عندي 2016 فربما المشكلة لديك في الوفيس ولعل الاخ خالد يفيدنا ما ينساناش 😘😘

أخي الفاضل النوافذ فتحت عندي تمام

1/ ضع المؤشر في الحقل الذي يحوي الكلمة التي تريد استبدالها . 2 / اضغط زر ctl+H واختر استبدال 3/ اكتب الكلمة التي تريد استبدالها في المربع اللي فوق . وفي المربع الثاني اكتب الكلمة الجديدة ثم موافق

عمل رائع أيها الرائعون تشكرون على جهوكم .. دمتم سالمين وللخير غانمين 😘😘😘😘

بعد اذن الأستاذ خالد لا أدري إن كنت تقصد هذا أو لا ؟؟ اختبار-4.accdb

والله استاذ جعفر أتمنى أعرف كيفية إنشاء الأكواد .. ومعانيها .

جميل يا جميل

بورك فيك اخي جعفر

لا أظن يمكن تكبيرها والله اعلم

تفضل print (1).accdb وهذا موقع أيقونة https://icon-icons.com/ar/

تفضل مشاركة مني .. Microsoft Access قاعدة بيانات جديد.accdb

وهذه طريقة أخرى .. اقتبستها من مشاركة للأخت زهره to word.rar

أحاول مساعدتك لكن لم يتضح لي ما تريد هل تقصد الاستعلام يكون مثل الصورة المرفقة بالضبط ؟؟