jjafferr

وعليكم السلام تفضل اذا اخترت السجل في النموذج الفرعي ، ثم ضغطت زر الحذف من النموذج الرئيسي مباشرة Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdDeleteRecord اما اذا اخترت السجل في النموذج الفرعي ، ثم اخذت لك لفة على كائنات النموذج الرئيسي فيجب ان يجب ان نخبر الكود ان عملنا سيكون على النموذج الفرعي frm_tap = اسم النموذج الفرعي Me.frm_tap.SetFocus DoCmd.RunCommand acCmdDeleteRecord جعفر

السلام عليكم الظاهر ان هذه مشكلة معروفة عند تنصيب اكثر من اصدار من الاكسس ، والافضل هو تنصيب برنامج اكسس واحد ، ثم تنصيب برنامج VMware ، منه تنصب النسخة الاخرى (انا قرأت هذه المعلومة) ، اما اختنا الفاضلة الدكتورة ام عهود فتقول انها قامت بتنصيب نسخ 3 من الاكسس ، هكذا: http://arabteam2000-forum.com/index.php?/topic/263020-كيف-انصب-نسختي-اوفيس-باصدارين-مختلفين-على-جهازي/&do=findComment&comment=1286995 جعفر

اذن نحن بحاجة الى مرفق ، ومثال جعفر

السلام عليكم جرب التالي: بإستعمال الاكسس 2003 ، افتح قاعدة بيانات جديدة ، ثم استورد جميع الكائنات من قاعدة البيانات السابقة ، واخبرنا النتيجة لوسمحت جعفر

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

وعليكم السلام اخي شفان الظاهر انا وانت تم مراسلتنا!! تفضل هذا الكود المعدل: Dim SRV As Integer Dim rs As DAO.Recordset If ([userpassfinder] & vbNullString) = vbNullString Then Exit Sub 'هذا الامر أبطأ من الامر التالي 'SRV = DLookup("[UserPass]", "tblUsers", "[UserPass] = " & [userpassfinder]) 'If IsNull(SRV) Then ' MsgBox "الرقم السري غير صحيح" ' Me.userpassfinder.SetFocus ' Exit Sub 'End If 'هذا الامر اسرع SRV = DCount("*", "tblUsers", "[UserPass] = " & [userpassfinder]) If SRV = 0 Then MsgBox "الرقم السري غير صحيح" Me.userpassfinder.SetFocus Exit Sub End If 'الحل الاول DoCmd.OpenForm "frm" Forms!frm.SetFocus Forms!frm!fsubUser.SetFocus Forms!frm!fsubUser!UserPass.SetFocus DoCmd.FindRecord Me.userpassfinder, , , , , , True 'الحل الثاني ' DoCmd.OpenForm "frm" ' Set rs = Forms!frm!fsubUser.Form.RecordsetClone ' rs.FindFirst "[UserPass] = " & Me.userpassfinder ' If rs.NoMatch Then ' MsgBox "wrong Pass", _ ' vbOKOnly + vbInformation ' Else ' Forms!frm!fsubUser.Form.Bookmark = rs.Bookmark ' End If ' rs.Close ' userpassfinder = Null جعفر 791.Database3.accdb.zip

السلام عليكم اخي @غريب طرابلس يوجد قسم اعلانات شخصية للاعضاء ، والذي تستطيع ان تعرض برامجك للبيع ، مع مراعاة وضع طريقة الاتصال بك في الموضوع: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء/ وشكرا اخي @صالح حمادي وانا ذكرت هذه الطابعة في المادة هـ.3. جعفر

آسف ، اذن هي 3 تصاريح هذا رابط به الطريقة التي كنت تريدها اصلا للدكتورة أم عهود ، الطباعة من الجانبين: http://arabteam2000-forum.com/index.php?/topic/276385-ظهور-بيانات-التقرير-في-عمودين/ جعفر

وتفضل 789.توزيع الخصم للسجلات بالفاتوره.mdb.zip

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

كذلك ما فهمت قصدك ، اعطني مثال لوسمحت

سؤال ، هل شفت في خطأ في هذه القيمة ، او بإستعمال هذه القيمة؟ هذه ميزة الرياضيات شوف المعادلة اللي كتبتها في الكود عندك: (1 - Percentage_Discount) وهناك طرق اخرى في كتابتها ، لكني اخترت الاسهل لي جعفر

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

انا لم اكن اعرف بقية الكود الآن وقد رأيته ، اقلب مكان الكودين ، يعني خلي الكود Me.AllowEdits = False تحت الكود اللي في المربع الاحمر. جعفر

شكرا ، انا اعمل على الموضوع حاليا تفضل جعفر 789.توزيع الخصم للسجلات بالفاتوره.mdb.zip

هلا والله ، حياك الله

ما تفرق ، قبل او بعد السطر Me.AllowEdits = False جعفر

ابش رايك ان تنقل الكود بالكامل ، بدل ما يكون على تركيز الزر ، اجعله على الضغط/النقر على الزر ، وبهذه الطريقة تتخلص من جميع المشاكل ، نعم ما بيكون بالطريقة التي تريدها ، ولكن هذا الحال ، مو دائما تحصل على اللي تريد بس بيصير عندك نقرة زر واحدة فقط جعفر

وعليكم السلام ابو زاهر لما أقرأ السؤال ، وما يكون واضح ، ولا فيه مثال واضح ، عادة اتركه شد الهمة ، وتعود على وضع امثله من المرفق عن الشيء اللي تريده يصير ، وبتلقانا كما الفراري نرد عليك ، ان شاء الله جعفر

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

وعليكم السلام نعم هناك الكثير منها جعفر

خلاص ، اترك لك المنتدى ، وآخذ غفوة الآن جعفر

وعليكم السلام نعم يمكن ، وتم شرحه بالتفصيل هنا: وبإختصار docmd.openreport .... Reports![your report name].filter= me.filter Reports![your report name].filteron= true جعفر

وعليكم السلام 1. تم حذف المجموعات التي لا علاقة لها بالتقرير ، ثم عمل تغيير في اعدادات جمع التسلسل ، الى جمع المجموعة . والنتيجة . جعفر 788.db1.mdb.zip

السلام عليكم 1. حياك الله 2. هم قاموا بذلك مشكورين ، من زمان 3. نحن متطوعون في المنتدى ، ونحن نفرز عصارة تجاربنا في المنتدى ، اما المواضيع التي نقدمها ، فمنها جزء من تجاربنا او جزء من برامجنا التي نعملها لعملائنا ، وعندما نرى كثرة الاسئلة حول موضوع ما ، فنقوم بوضع مثال عليه ،لتسهيل فهم طريقة العمل. 4. سأرفع وجهة نظرك الى مدير المنتدى حول تطوير البرامج و بيع منتجات الاعضاء ، كما بإمكانك رفع هذه الاقتراحات هنا https://www.officena.net/ib/forum/170-مجلس-الموقع/ حياك الله اخي شفان في الواقع جميعنا يمر في برمجته بمناطق لم يعمل عليها قبل ، او يجب عليه القيام بعمل يختلف عن المعتاد ، فهنا في المنتدى مكان تبادل هذه الخبرات جعفر