jjafferr

وعليكم السلام تفضل هذا الرابط جعفر

اخاف تعتقد اني عبقري اخبرك كيف عرفت الجواب استخدم هذا الكود: resalh = MsgBox("subject", 1 + r_msg, "titel") msgbox "Checking= " & resalh ثم اضغط على نعم وشوف قيمة resalh ، واضغط على لا وشوف قيمة resalh جعفر

كيف زر واحد؟ شو الاوامر اللي تريدها تصير ، بالتسلسل؟

تفضل Option Compare Database Private Sub cmd_Copy_From_Source_to_Destination_Click() Source = DLookup("[attachemnts bath]", "bath", "[ID] = 1") Destination = DLookup("[attachemnts bath]", "bath", "[ID] = 2") FileCopy Source & "\" & Me.ID & ".PDF", Destination & "\" & Me.ID & ".PDF" End Sub Private Sub cmd_Open_the_File_from_Destination_Click() Dim strFilePath As String Destination = DLookup("[attachemnts bath]", "bath", "[ID] = 2") strFilePath = Destination & "\" & Me.ID & ".PDF" If Dir(strFilePath) <> "" Then Application.FollowHyperlink strFilePath Else MsgBox "There are no GAS Certificates saved for this Property. Please Add or Scan a new document!" End If End Sub Private Sub Form_Load() Dim strFilePath As String Destination = DLookup("[attachemnts bath]", "bath", "[ID] = 2") strFilePath = Destination & "\" & Me.ID & ".PDF" If Dir(strFilePath) <> "" Then 'الملف موجود، غير لون خلفية الزر الى اخضر Me.cmd_Open_the_File_from_Destination.BackColor = RGB(0, 255, 0) 'Green Else 'الملف غير موجود Me.cmd_Open_the_File_from_Destination.BackColor = RGB(255, 0, 0) 'Red End If End Sub جعفر Copy PDF from A folder To B Folder.zip

ايوه ، كده ويلا بلاش جعفر

وعليكم السلام تفضل يا زعيم 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 لحصلت على العديد من المواضيع ، منها: والرابط الذي اعطيتك في مشاركتي السابقة يدلك على نفس الطريق جعفر ثم اعد تشغيل الكمبيوتر

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