jjafferr

على نقر الزر ، اعمل هذا الكود Me.allowadditions=true DoCmd.GoToRecord , ,acNew او مثل إقتراح الأخ husamwahab جعفر

حياك الله ومعلومات المتأخرين وين احصلها؟ جعفر

هي والله ، تفضل بس عملتها بالطريقة السهلة (مب الطريقة الافضل) جعفر 226.Edf.mdb.zip

أخي إسلام الموضوع كان عن: بينما ردك كان لإنشاء سجل جديد!! جعفر

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

وعليكم السلام الامر هو: DoCmd.GoToRecord , , acLast ويعمل على جميع اصدارات الاكسس جعفر

وعليكم السلام في خصائص النموذج ، اجعل: Allow Additions = No جعفر

وعليكم السلام أخي عبدالله الظاهر من الرسالة انك تشتغل على الاوفيس 64 بت ، فياريت تلقي نظرة على الرابط التالي: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر

السلام عليكم ورحمة الله وبركاته من المعروف ان الاوفيس يأتي بصيغة 32 بت وصيغة 64 بت ، ونظام التشغيل وندوز كذلك يأتي بصيغة 32 بت و 64 بت ، وقد يختلط الأمر على بعض الاشخاص فيعتقدون بأنه يجب تنصيب الاوفيس 64 بت على الوندوز 64 بت ، بينما في واقع الامر ، فإن مايكروسوفت توصي بإستخدام الاوفيس 32 بت على جميع نظم التشغيل ، الرابط التالي من مايكروسوفت يوضح هذا: https://technet.microsoft.com/en-us/library/ee681792.aspx وهناك حالات خاصة لتنصيب الاوفيس 64 بت (كذلك المعلومة موجودة في الرابط اعلاه) ، وهذه الحلات لا تنطبق على الاكسس. ومن المعروف انه اذا كان لديك الاوفيس 64 بت ، فإن معظم البرامج السابقة والتي تحتوي على دالة API المحتوية على 32 بت ، فإن البرنامج لن يشتغل وسيعطيك أخطاء لذلك ، وكما يقول المثل: الباب اللي يجيك منه ريح ، سده واستريح فاذا عندك اوفيس 64 بت على جهازك ، فآن الاوان ان تمسح/تلغي تنصيبه ، وتنصب اوفيس 32 بت ---------------------------------------------------------------------------------------------------------------- تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر

وعليكم السلام انا عملت برنامج لهذا الغرض ، على الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/#comment-369232 جعفر

اساذنا العزيز وهنا عملت على تصغير حجم قاعدة بياناتك ، فصغرت من 56MB الى 12MB جعفر Folow up V.2.zip

حياك الله أخي الاستاذ علي واذا حبيت ، ممكن اغير لك الرقم 1 (للغياب) ، بعلامة صح او بحرف غ جعفر الشئ المهم هو ان المرفق 221.Folow up V.2.accdb.zip يجب تغيير صيغة الملف الى 7z وطريقة تغيير الواحد الى علامة الصح ، او حرف الـ غ ، هي في التنسيق فقط جعفر Folow up V.2.accdb.zip

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

وعليكم السلام أخي انا عملت تغيير بسيط في المرفق ، واضفت سجل لموقع آخر ، باسم آخر ، وطلعت النتائج تمام في الصورة اللي ارفقتها بمشاركتك الاخيرة ، انت لا تشير (بالسهم الاحمر) الى حقل الموقع ، وانما تشير الى حقل الوظيفة/المهنة ، بينما المطلوب عمله هو صفحة مستقلة بالتاريخ والموقع جعفر 227.Human Resources DataBase.mdb.zip

وعليكم السلام تم عمل تغيير شامل على برنامجك . اعذرني عن هذه الجزئية ، فانا متخصص في البرمجة والكود وهناك من الشباب في المنتدى تخصصهم الصلاحيات جعفر 224.اصدار التراخيص.mdb.zip

وعليكم السلام الأخ طارق انزلت مرفقك واطلعت عليه ، ولكن لم افهم المطلوب بالتفصيل !! انت صاحب الموضوع والذي تعرف مداخيل برنامجك ، فلوسمحت تأخذ من وقت وتشرح المطلوب بالتفصيل ، يعني اي نموذج /جدول ننظر فيه ، اي حقل ، ثم ماذا ، ثم ... جعفر

وعليكم السلام أخوي عطني شوية وقت ، انا حاليا اشتغل على برنامجك جعفر

حياك الله اخوي وائل الاخ عزيز صاحب الموضوع وينك ، ماسمعنا منك جعفر

لما تكون دقيق في تحديد المشكلة ، تلقانا زي الفريره (على قولة مرسي الزيناتي في مدرسة المشاغبين) اضفت الاسطر التالية: Me.F_ordersubform.SetFocus DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acLast Me.F_ordersubform!Qty.SetFocus في نهاية الوحدة Sub mm(xx) الفكرة هي انك تحفظ السجل بعد كل عملية اضافة/تعديل جعفر 222.KFC.mdb.zip

السلام عليكم أخي محمد للأسف لا يمكن عمل هذا بالاكسس والظاهر ان الاستاذ رمهان سبقني في الاجابة المختصرة واليك الاجابة المفصلة لعمل الحيلة: بس انا افضل النموذج frm_Option_Group والكود حقه: Private Sub Frame10_Click() If Me.Frame10.Value = 1 Then Me.Page1.SetFocus ElseIf Me.Frame10.Value = 2 Then Me.Page2.SetFocus ElseIf Me.Frame10.Value = 3 Then Me.Page3.SetFocus End If End Sub جعفر 228.RTL_Tabs.mdb.zip

واخيرا قدرت اسبقك ، بدقيقة ، حدث تاريخي مهم جعفر

تفضل أخي الكريم رجاء متابعة الكود ، للزر "ترحيل الايام" : رسالة التاكد على انك بالفعل تريد المواصلة ، إضافة اليوم الى الجدول tbl_Available_Days (هذا شئ مؤقت ، الى ان تستخدم انت اسم جدولك) ، تغيير "تم التعويض" الى صح ، عمل سجل جديد وادخال الساعات والدقائق المتبقية اليه ، وسيكون آخر سجل في القائمة Private Sub cmd_Append_Click() '1 'التأكيد على مواصلة العمل Dim Msg, Style, Title, Response Msg = "هل انت متأكد من المواصلة" & vbCrLf & _ "Are you sure you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "رجاء التأكيد" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbNo Then ' User chose Yes. Exit Sub End If 'Ok, lets start Dim rst As DAO.Recordset '2 'add the Days to tbl_Available_Days 'only append if we have days If Val(Me.d) > 0 Then Set rst = CurrentDb.OpenRecordset("Select * From tbl_Available_Days") rst.AddNew rst!Available_Days = Val(d) rst!Pcdigit = Me.Pcdigit rst!iDate = Now rst.Update End If '3 h1 = Me.h m1 = Me.m 'set off to -1 Set rst = Me.tlb_taq_Sub.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!off = 0 Then rst.Edit rst!off = -1 rst.Update End If rst.MoveNext Next i '4 'make a new Record, and copy h:m to it 'only append if h or m are not Zero If Val(h1) > 0 Or Val(m1) > 0 Then rst.AddNew rst!Pcdigit = Me.Pcdigit rst!Tdate = Date rst!off = 0 rst!timeadd2 = h1 & ":" & m1 rst.Update End If 'refresh the totals Form_tlb_taq_Sub.off_AfterUpdate Exit Sub err_off_AfterUpdate: If Err.Number = 3021 Then 'ignor, no records 'Resume Next Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 226.Edf.mdb.zip

وعليكم السلام أخي محمد اعمل صورة من البرنامج ، واخبرني كيف تريده يصير آسف ما فهمت المصطلحات جعفر