jjafferr

وعليكم السلام اخي شفان الظاهر انا وانت تم مراسلتنا!! تفضل هذا الكود المعدل: 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-مجلس-الموقع/ حياك الله اخي شفان في الواقع جميعنا يمر في برمجته بمناطق لم يعمل عليها قبل ، او يجب عليه القيام بعمل يختلف عن المعتاد ، فهنا في المنتدى مكان تبادل هذه الخبرات جعفر

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

1. انت تريد التركيز يذهب الى السجل الاول ، وهذه هي الطرق: docmd.gotorecord,,acfirst او Me.Recordset.MoveFirst او Me.RecordsetClone.MoveFirst Me.Bookmark = Me.RecordsetClone.Bookmark . 2. بالنسبة الى الحقل/الكائن الذي سيكون عليه التركيز عندما يذهب الكود الى السجل الاول ، فيعتمد على الترتيب الذي انت وضعته ، الصورة المرفقة هي اعدادات الحقل "state/province" ، وترتيبها للتركيز عليها هو 4 (في الواقع 5 ، لأن الاكسس يبدأ حسابه من الرقم 0) ، وكلمة Yes التي تحت الرقم تدل على انك تريد ان يتوقف المؤشر عليها عند ضغطك على زر الكيبورد Tab او Enter ، هناك حالتين لا يتوقف عليها المؤشر ، اذا كتبت No في هذا الاعداد ، او كان الحقل/الكائن مخفي ، لذلك ، فتأكد ان السجل الاول فيه حقل اول توقف . 3. قد لا يكون المكان الصحيح لوضع هذا الكود في المكان الذي اخبرتك ، ولكن الكود صحيح ، فأنظر اين تضعه في المكان الصحيح جعفر

وعليكم السلام واخيرا كاسر يعطينا سؤال سهل هذا السطر الاخير في الكود End If 'DCount اكتب وراه DoCmd.GoToRecord , , acfirst جعفر

وعليكم السلام حسب المعلومات اللي اعطيتنا ، عرضنا الجواب ليش ما ترفق قاعدة بياناتك ، وتخبرنا بالضبط اللي تريده ، ونعمل لك التعديل حسب الحقول والبيانات عندك. جعفر

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