jjafferr

وعليكم السلام تفضل يا زعيم MessageBoxH Me.hwnd resalh = MsgBox("subject", 1 + r_msg, "titel") If resalh = 1 Then MsgBox "Yes was selected" Else MsgBox "No was selected" End If جعفر

في نسخة الاكسس الانجليزية (التي استعملها انا) ، نستخدم الفاصلة ، بينما في النسخة العربية يجب استخدام الفاصلة المنقطة (;) ، فتصبح المعادلة: Expr1: Format([number1];"00") & " " & Format([number2];"00") جعفر

انت في الاستعلام عندك الحقل: Expr1: [number1] & " " & [number2] فاستبدله بالحقل Expr1: Format([number1],"00") & " " & Format([number2],"00") وصلى الله وبارك انا اتعمد احيانا ان لا اضع المرفق ، حتى يكون فهم الموضع اعمق جعفر

اعتذر منك أخي وائل فالبرنامج وكما اوضحت في الشرح هو: وهذا للمواقع التي تتطلب ادخال بيانات ، ثم استرجاع رقم الموافقة (او شئ من هذا القبيل) ، جعفر

وعليكم السلام انت في الجدول جعلت الحقلين يظهرون بصيغة رقمين ، لأنك استعملت التنسيق 00 ، فهو تنسيق وليس رقم ، يعني: اذا كان الرقم في الحقل هو 5 ، وبالتنسيق يظهر لك 05 ، فعند البحث عن الرقم هذا ، او وضع معيار في الاستعلام ، فالمعيار لا يكون 05 ، وانما يكون 5) فاستعمل التنسيق في الاستعلام كذلك ، لتحصل على الرقمين ، لكل حقل بطريقة منفصلة ، هكذا: Format([number2],"00") وبالنسبة الى الحقلين معا: Expr1: Format([number1],"00") & " " & Format([number2],"00") جعفر

السلام عليكم أخي انا انزلت المرفق ، ولكن لم افهم شئ اعطني شرح مفصل باسماء الحقول التي تريدني اتعامل معاها ، والخطوات ، واسم النموذج ووو جعفر

1. انظر هذه الروابط و 2. في صفحة VBA . . دائما غيّر اسم المشروع ، وابدا لا تسمي اسم المشروع Database او DB ، جعفر

وعليكم السلام من الصعب حل الموضوع بدون مرفق جعفر

تفضل اجعل هذا الكود على زر (طبعا بعد ان تغير اسماء الحقول): dim rst as dao.recordset set rst=me.recordsetclone Mobile_Cost = [قيمة الهاتف] Fisrt_Date_of_Payment = [تاريخ او قسط] for i=1 to [عدد الاقساط] rst.addnew rst![رقم القسط] = i rst![قيمة القسط] = Mobile_Cost / [عدد الاقساط] rst![تاريخ الاستحقاق] = dateadd("d" , i-1 , Fisrt_Date_of_Payment) rst.update next i rst.close : set rst = nothing جعفر

وعليكم السلام تفضل ورجاء مراجعة الرابط التالي اذا عندك اكسس 64بت جعفر

السلام عليكم قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف عنوان الموضوع لا يدل على محتواه ، لذلك قمت بتعديل عنوان الموضوع لعدم حذفه جعفر

السلام عليكم أستاذ علي تم تنظيف البرنامج من مخلفات تجاربي السابقة ، وهذه النتيجة بعد عمل الفاصل بين الاسابيع: . وهذا كود المسافة بعد يوم الخميس Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.DayName = "الخميس" Then Me.Detail.Height = 0.5 * 1440 Else Me.Detail.Height = Me.DayName.Height End If End Sub صافي يا لبن جعفر 459.4.AbsentLate-10-12-2016.accdb.zip

السلام عليكم رجاء متابعة هذا الرابط جعفر

السلام عليكم الحمدلله ، البرنامج شبه جاهز ، وقبل ان اضعه في مشاركة ، عندي طلب: هل هناك موقع معين تريدونا نعمل الشرح عليه؟ اذا الجواب نعم ، اعطونا الرابط جعفر

السلام عليكم اختي 1. لا يوجد مرفق في مشاركتك الاخيرة ، 2. لتفريغ بيانات جدول اسمه table1 DELETE * FROM table1 واذا اردتي تشغيله في الكود docmd.setwarnings false docmd.runsql "DELETE * FROM table1" docmd.setwarnings true 3. لطباعة موظف واحد في التقرير ، انظري الرابط جعفر

1. ماذا كانت المشكلة ؟ 2. هذا غير صحيح ، ولكن انصب اوفيس 32 بت ، بغض النظر عن نوع الوندوز سواء 32 او 64 بت. انا عندي الاوفيس 2010 ، ولا احدثه إلا اذا تم تصليح عيوب الاصدارات الجديدة جعفر

انا اعمل على اكسس 2010 وما عندي مشكلة واعتقد تستطيع الاستفادة من هذا الرابط جعفر

وعليكم السلام 1. نفترض الملف الحالي في \:C والمجلد الجديد الى \:E للنسخ FileCopy "Source Path And Name", "Destination Path And Name" FileCopy "C:\myfile.pdf", "E:\Temp\File_With_New_Name.pdf" لنقل الملف من مجلد الى آخر Name "old path AND name" As "new path AND name" Name "C:\myfile.pdf" As "E:\Temp\File_With_New_Name.pdf" 2 و 5 . عند طلب تشغيله: application.followhyperlink "E:\Temp\File_With_New_Name.pdf" 3 و 4 . If Dir("E:\Temp\File_With_New_Name.pdf") <> "" Then 'الملف موجود، غير لون خلفية حقل النص الى اخضر me.Field1.backcolor=rgb(0,255,0) 'Green Else MsgBox "الملف غير موجود" me.Field1.backcolor=rgb(255,0,0) 'Red End If جعفر

لو بحث عن OLE لحصلت على العديد من المواضيع ، منها: والرابط الذي اعطيتك في مشاركتي السابقة يدلك على نفس الطريق جعفر ثم اعد تشغيل الكمبيوتر

هذا الخطأ بسبب اعدادات الوندوز ، وهناك الكثير من المواضيع حولها ، منها: جعفر

السلام عليكم أخي شروط المنتدى لا تسمح بأكثر من سؤال في موضوع واحد (يعني بالنسبة لأسئلتك ، نقدر نقول ان السؤال 1 و 2 و 3 و 4 و 7 موضوع واحد ، يعني بالعافية) ، بينما السؤال 5 يجب ان يكون سؤال بموضوع مستقل ، والسؤال 6 يجب ان يكون سؤال بموضوع مستقل رجاء فتح مواضيع جديدة حسب شرحي اعلاه مخالف - يُغلق. جعفر

السلام عليكم هذا الرابط مشابه لمطلبك ، ولكن يجب عليك تذليله ليتلائم مع برنامجك جعفر

وعليكم السلام هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك: err_coodkindexchange_AfterUpdate: والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه) جعفر

وعليكم السلام افتح الرابط التالي ، للحصول على ارقام اللغات: https://msdn.microsoft.com/en-us/library/cc195085.aspx مثلا رقم اللغة الانجليزية: 0x09 بينما رقم اللغة العربية: 0x01 ثم اضف 2 الى رقم اللغة ، يعني للغة الانجليزية: 9 + 2 = 11 واللغة العربية: 1 + 2 = 3 ولنفترض ان اسم الحقل هو url_address ، لذا ، عند حدث تحميل النموذج ، ولجعل اللغة العربية هي الافتراضية فيه ، اكتب هذا الكود: Me.url_address.KeyboardLanguage = 3 ولكن من تجاربي السابقة (ولا اعرف اذا عملت مايكروسوفت الى حل هذه المشكلة) ، فإن التنقل من هذا الحقل الى الحقل الآخر سيكون بطيئا جدا ، لذا فقد الغيته من بعض برامجي جعفر