أبا عمر

لا يمكن التعرف على تنسيق قاعدة البيانات والأوفيس عندي 2007

أخي الحبيب مثالك لم أستطع فتحه عندي 

السلام عليكم ورحمة الله وبركاته تفضل أخي الحبيب أرجو أكون قد أحسنت الفهم XXX.rar

جزاك _الله_ خيراً أستاذ محمد 

جزاكم _الله_ خيرا

السلام عليكم ورحمة _الله_ وبركاته مشكور أي السائل والمجيب لكن لي إستفسار ما سبب هذا العطب أصلا

السلام عليكم ورحمة _الله_ وبركاته هذا مثال على ما طلبت  A_X.rar

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي الكريم تم عمل باركود في نموذج إدخال الأصناف وربطه بكود الصنف الموجود في نموذج الأصناف الآن أدخل رقم الصنف في الفواتير عن طريق قارئ الباركود.  كل ما عليك هو إضافة الخط التالي وهو موجود في المرفقات الى مجلد خطوط الويندوز (IDAutomationHC39M.ttf) مع ملاحظة عند نسخ الخط الى مجلد الخطوط ان كان موجودا لا تقم بعمل نسخ واستبدال لكن قم بحذف الأول وإضافة الجديد بعد ذلك. A_Store.rar  

جزاكم _الله_ خيرا أختي الفاضلة

جزاكم _الله_ خيرا أختي الفاضلة وأحسن ربي إليك إحسانا لم يخطر لك ببال ومن تحبي ومن تخصينهم بالدعاء أختي الفاضلة هذه الطريقة هي أعمل بها حاليا. لكني أريد الإضافة من مربع القائمة كما في المثال فهل هي ممكنة ؟ أكون لكي من الشاكرين  جزاكم _الله_ خيرا 

السلام عليكم ورحمة _الله_ وبركاته كيف حال إخواني الكرام كل عام وانت بخير الملف المرفق لإرسال رسائل الجوال وهو يعمل معي بصورة جيدة لكن حاولت إضافة نموذج لإضافة أرقام الجوالات دفعة واحدة عن طريق مربع قائمة لكن ينقل رقم واحد فقط أرجو النظر فيه وتصحيح الخطأ Send Sms.rar  

جزاكم _الله_ خيراً أختي الكريمة  تم التعديل بنجاح  أسأل _الله_ في عليائه أن يبشركِ بما تحبين ويمن عليكِ من فضله بما لم يخطر لكي ببال ومن تحبين ومن تخصينهم بالدعاء

أختي الفاضلة جزاكي ربي جنته  أعتذر على إزعاجكم عند التطبيق كما في الكود الأخير المعدل من قبلكم لوحظ وجود خطأ كما في المرفق بعد التطبيق xx_2.rar جزاكم _الله_ خيرا الجزاء ورفع قدركم ومن تحبون ومن تخصونهم بالدعاء

السلام عليكم ورحمة الله وبركاته أختي الفاضلة جزاكم _الله_ خيرا  لكن نفس المشكلة يعطي رسالة لقد قمت بإلغاء العملية السابقة

السلام عليكم ورحمة _الل_ه وبركاته كل عام وأنتم إخواني بخير وعافية كل عام وأنتم الى _الله_ أقرب  أسأل _الله_ في عليائه أن يعفر لكم أجمعين الكود التالي كود للتنبيه  لا يعمل معي بهذه الطريقة الموضحة بالكود لكن في حال استبدال X برقم ( أي المدة المطلوبة يعمل ) أرجو إفادتي  مثال /  xx.rar Public Function exp()Dim intStore As IntegerDim x As Integer("x = DLookup("[S]", "SS("intStore = DCount("[SRYAL_]", "[amer]", "[DATE_AMER] <=Date()- x AND [ekaf] =0 If intStore = 0 ThenExit FunctionElseIf MsgBox("يوجد " & intStore & "معاملة " & _ "تجاوزت موعدها " & vbCrLf & vbCrLf & _ " " & _ " هل تريدالمعاينة الآن؟ " & _ " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _ "تنبيه") = vbYes Then DoCmd.OpenForm "FRM_AMER3"End IfEnd IfEnd Function