jjafferr

هل شفت الرابط اللي ارفقته لك؟

وعليكم السلام انزلت المرفق ، وكل شئ شغال تمام يعني لأول مرة نشوف سؤال ما بحاجة الى إجابة جعفر

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

شكرا جزيلا اخي شفان على المداخله والتوضيح اختي maya8 وكذلك المرفق غير موجود ، فالرابط الذي وضعتيه في مشاركتك لا يعمل لكي تضعي مرفقك في المشاركة ، فيجب عليكي 1. ضغط ملف الاكسس بصيغة rar او zip ، 2. واما الصور بصيغة jpg او gif او bmp او png فلا تحتاج الى ضغط ، 3. تستطيعين ارفاق مجموعة من الملفات والصور ، بحيث لا يتجاوز مجموع حجمها (الحد الاقصى) ، 4. طريقة ارفاق المرفقات ، وكما هو موضح في اسفل المشاركة (اسحب الملفات الي هنا لارفقاها ، او اختر ملف...) سحب المرفقات الى المنطقة المظلله اسفل المشاركة ، النقر على كلمة "اختر ملف..." (المنطقة المظلله اسفل المشاركة). جعفر

وعليكم السلام تفضل: Private Sub cmd_Open_the_File_from_Destination_Click() Dim strFilePath As String Source = DLookup("[attachemnts bath]", "bath", "[ID] = 1") Destination = DLookup("[attachemnts bath]", "bath", "[ID] = 2") strFilePath = Destination & "\" & Me.ID & ".PDF" If Dir(Source & "\" & Me.ID & ".PDF") <> "" Then FileCopy Source & "\" & Me.ID & ".PDF", Destination & "\" & Me.ID & ".PDF" 'give the slow PCs wait time until copying is completed PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 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 جعفر 584.1.Copy PDF from A folder To B Folder.accdb.zip

وعليكم السلام اخي عبدالله شوف الرابط التالي ، والوحدة النمطية GetDBPath هي مقصدك ، وغيرّها حسب طلبك جعفر

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

اخاف تعتقد اني عبقري اخبرك كيف عرفت الجواب استخدم هذا الكود: 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

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

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